创建控件全过程
创建控件全过程
小青_1989 发表于4年前
创建控件全过程
  • 发表于 4年前
  • 阅读 32
  • 收藏 1
  • 点赞 0
  • 评论 0

腾讯云 技术升级10大核心产品年终让利>>>   

一、MFC ActiveX控件开发步骤(VC 6.0):

  New->Projects->MFC ActiveX ControlWizard,然后输入MFCWinSock工程名。如下图:

  图片看不清楚?请点击这里查看原图(大图)。

  图一 创建工程

  一路狂按Next,直至Finsh出现,再按下OK,如下图:

  图二 创建完成

  二、架设Socket环境:

  首先在StdAfx.h文件中加入下面这句代码:

#include <afxsock.h>

// MFC socket extensions 

  打开MFCWinSock.cpp文件,添加代码,看起来如下:

////////////////////////////////////////////////////////////////////////////

// CMFCWinSockApp::InitInstance - DLL initialization

 

BOOL CMFCWinSockApp::InitInstance()

{

 

BOOL bInit = COleControlModule::InitInstance();

 

 

if (bInit)

 

{

 

// TODO: Add your own module initialization code here.

 

if (!AfxSocketInit())

 

{

 

 

AfxMessageBox("无法初始化Socket,请检查!");

 

 

return FALSE;

 

}

 

WSADATA wsaData;

 

WORD wVersion = MAKEWORD(1, 1);//设定为Winsock 1.1版

 

int errCode;

 

 

errCode = WSAStartup(wVersion, &wsaData);//启动Socket服务

 

if (errCode)

 

{

 

 

AfxMessageBox("无法找到可以使用的 WSOCK32.DLL");

 

 

return FALSE;

 

}

 

}

 

 

return bInit;

}

 

 

////////////////////////////////////////////////////////////////////////////

// CMFCWinSockApp::ExitInstance - DLL termination

 

int CMFCWinSockApp::ExitInstance()

{

 

// TODO: Add your own module termination code here.

 

WSACleanup();//结束网络服务

 

return COleControlModule::ExitInstance();

}

   

  三,提供控件接口和事件

  在MFCWinSockCtl.cpp加入如下代码:

#ifndef WM_MYWINSOCK 

#define WM_MYWINSOCK WM_USER+1888

#endif

   

  View->ClassWizard->Automation->Add Method…如下图:

  图片看不清楚?请点击这里查看原图(大图)。

  图三 创建接口

  这个时候,我们为这个控件添加了一个Connect()的接口,出于通用性,安全性和扩展性的考虑,我们采用了VARIANT类型的参数,

  很多人可能都不太了解该类型,又或者有接触过,但被吓怕了,那么我们来看清它的本来面目:

struct tagVARIANT

  {

  union 

    {

    struct __tagVARIANT

      {

      VARTYPE vt;

      WORD wReserved1;

      WORD wReserved2;

      WORD wReserved3;

      union 

        {

        LONG lVal;

        BYTE bVal;

        SHORT iVal;

        FLOAT fltVal;

        DOUBLE dblVal;

        VARIANT_BOOL boolVal;

        _VARIANT_BOOL bool;

        SCODE scode;

        CY cyVal;

        DATE date;

        BSTR bstrVal;

        IUnknown __RPC_FAR *punkVal;

        IDispatch __RPC_FAR *pdispVal;

        SAFEARRAY __RPC_FAR *parray;

        BYTE __RPC_FAR *pbVal;

        SHORT __RPC_FAR *piVal;

        LONG __RPC_FAR *plVal;

        FLOAT __RPC_FAR *pfltVal;

        DOUBLE __RPC_FAR *pdblVal;

        VARIANT_BOOL __RPC_FAR *pboolVal;

        _VARIANT_BOOL __RPC_FAR *pbool;

        SCODE __RPC_FAR *pscode;

        CY __RPC_FAR *pcyVal;

        DATE __RPC_FAR *pdate;

        BSTR __RPC_FAR *pbstrVal;

        IUnknown __RPC_FAR *__RPC_FAR *ppunkVal;

        IDispatch __RPC_FAR *__RPC_FAR *ppdispVal;

        SAFEARRAY __RPC_FAR *__RPC_FAR *pparray;

        VARIANT __RPC_FAR *pvarVal;

        PVOID byref;

        CHAR cVal;

        USHORT uiVal;

        ULONG ulVal;

        INT intVal;

        UINT uintVal;

        DECIMAL __RPC_FAR *pdecVal;

        CHAR __RPC_FAR *pcVal;

        USHORT __RPC_FAR *puiVal;

        ULONG __RPC_FAR *pulVal;

        INT __RPC_FAR *pintVal;

        UINT __RPC_FAR *puintVal;

        struct __tagBRECORD

          {

          PVOID pvRecord;

          IRecordInfo __RPC_FAR *pRecInfo;

          }

__VARIANT_NAME_4;

        }

__VARIANT_NAME_3;

      }

__VARIANT_NAME_2;

    DECIMAL decVal;

    }

__VARIANT_NAME_1;

  };

   

它先是一个结构体,里面有一个重要成员VARTYPE vt;vt即是指明当前的数据类型,比如整型或者字符型,当指明vt后,

后面看到各种变量类型包括在一个联合体当中,也就是说指明vt后,你只能使用对应的其中之一变量类型。看着这众多的各种不同类型变量集中在一起,确实让人吓了一跳,但细细看来,大多数变量跟我们平时的用法相似。值得一提的是SAFEARRAY __RPC_FAR *parray;

  也许有很多人还没有接触过SAFEARRAY类型的变量,SAFEARRAY实际上也是一个结构,大家可以参考MSDN,我也将在后面介绍它的具体使用方法。

  用同样的方法创建DisConnect()接口

  创建两个事件,FireCloseWinsock()响应网络断开事件,FireRecvSockEvent()响应网络有数据到达的事件。创建方法如下图:

  图片看不清楚?请点击这里查看原图(大图)。

  图四 创建事件

  重载控件消息处理函数WindowProc(),在View->ClassWizard中打开类向导,在消息映射中找到WindowProc,如下图:

  图片看不清楚?请点击这里查看原图(大图)。

  图五 重载WindowProc()

  四、编写代码

  编写VariantToLong()转换函数,该函数代码如下:

//类型转换,将VARIANT类型转换成Long类型

long CMFCWinSockCtrl::VariantToLong(const VARIANT &var)

{

 

long r;

 

switch(var.vt)

 

{

 

case VT_UI2://USHORT

 

 

r = var.uiVal;

 

 

break;

 

case VT_UI4://ULONG

 

 

r = var.ulVal;

 

 

break;

 

case VT_INT://INT

 

 

r = var.intVal;

 

 

break;

 

case VT_UINT://UINT

 

 

r = var.uintVal;

 

 

break;

 

case VT_I4://LONG

 

 

r = var.lVal;

 

 

break;

 

case VT_UI1://BYTE

 

 

r = var.bVal;

 

 

break;

 

case VT_I2://SHORT

 

 

r = var.iVal;

 

 

break;

 

case VT_R4://FLOAT

 

 

r = (long)var.fltVal;

 

 

break;

 

case VT_R8://DOUBLE

 

 

r = (long)var.dblVal;

 

 

break;

 

default:

 

 

r = -1;//无法转换该值

 

 

break;

 

}

 

return r;

}

 

   

大家可以看到,该函数将最基本的若干中数据类型转换成了long类型,但VARIANT决不是个简单的谱,我将在后面继续揭开它的神秘面纱.

  编写我们刚才的接口Connect(),代码代码如下: 在MFCWinSockCtrl.h中加入

SOCKET OnlySock;//建立的唯一Socket,不允许重复建立多个

bool isOnlyConnect;//是否建立了连接

   

然后再编写Connect(),看起来如下:

BOOL CMFCWinSockCtrl::Connect(const VARIANT FAR& RemoteHost, const VARIANT FAR& RemotePort) 

{

 

// TODO: Add your dispatch handler code here

 

if(isOnlyConnect)//该连接已建立,还没有断开

 

return FALSE;

 

 

CString IPAddress;

 

int Port;//转换成整型的端口

 

 

switch(RemoteHost.vt)

 

{

 

case VT_BSTR://字符串型

 

 

IPAddress = CString(RemoteHost.bstrVal);

 

 

break;

 

case VT_BYREF|VT_I1://CHAR *

 

 

IPAddress.Format("%s",RemoteHost.pcVal);//RemoteHost.pbstrVal);

 

 

break;

 

default:

 

 

IPAddress = "";

 

 

return FALSE;

 

}

 

 

Port = VariantToLong(RemotePort);//我们编写的一个VARIANT转换成long类型的函数

 

if(Port<=0)

 

return FALSE;

 

 

_TCHAR *ip = 0;

 

struct hostent *host = 0;

 

struct sockaddr_in addr;

 

ULONG dotIP = inet_addr(IPAddress);

 

 

OnlySock = socket(AF_INET, SOCK_STREAM, 0);

 

 

// 判断是否为点IP地址格式

  

if (OnlySock == INVALID_SOCKET)

 

{

 

shutdown(OnlySock, 0x02);

 

closesocket(OnlySock);//释放占有的SOCK资源

 

return FALSE;

 

}

 

  memset(&addr, 0, sizeof(struct sockaddr_in));

  // 设定 SOCKADDR_IN 结构的内容

  // 如果通讯协议是选择IP Protocol,那此值固定为AF_INET

  // AF_INET 与 PF_INET 这两个常量值相同

  addr.sin_family = AF_INET;

  addr.sin_port = htons(Port);

  addr.sin_addr.S_un.S_addr = dotIP;

  if (dotIP == INADDR_NONE)

  {

    host = gethostbyname(IPAddress);

    if (!host)

    {

 

shutdown(OnlySock, 0x02);

 

closesocket(OnlySock);//释放占有的SOCK资源

 

return FALSE;

    };

    ip = inet_ntoa(*(struct in_addr*)(*host->h_addr_list));

    addr.sin_addr.S_un.S_addr = inet_addr(ip);

  }

 

  //开始连线

  if (connect(OnlySock, (LPSOCKADDR)&addr, sizeof(SOCKADDR)))

  {

    shutdown(OnlySock, 0x02);

 

closesocket(OnlySock);//释放占有的SOCK资源

 

return FALSE;

  }

 

 

int  iError = WSAAsyncSelect(OnlySock, m_hWnd,WM_MYWINSOCK, FD_READ|FD_CLOSE); //只对网络断开和数据到达通知感兴趣

 

if(iError == SOCKET_ERROR)//无法绑定Winsock的事件通知

 

{  

 

shutdown(OnlySock, 0x02);

 

closesocket(OnlySock);//释放占有的SOCK资源

 

return FALSE;

 

} 

 

 

isOnlyConnect = true;

 

return TRUE;

}

   

有必要提一下WSAAsyncSelect(),这里接收网络数据到达和断开的两个消息,我们收到WM_MYWINSOCK消息时将处理该消息并作为事件传送给调用者.

第二个参数,窗口句柄,我们传送了m_hWnd,这是因为MFC ActiveX也属于一个窗口,并且是可见的,因此可以成功。

  编写WindowProc(),代码看起来如下:

双击代码全选

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

LRESULT CMFCWinSockCtrl::WindowProc(UINT message, WPARAM wParam, LPARAM lParam) 

{

 

// TODO: Add your specialized code here and/or call the base class

 

switch(message)

 

{

 

case WM_MYWINSOCK://响应自定义的消息

 

switch(WSAGETSELECTEVENT(lParam))

 

{

 

case FD_READ://有新数据到达

 

 

FireRecvSockEvent();

 

 

break;

 

case FD_CLOSE://对方已断掉当前连接

 

 

FireCloseWinsock();

 

 

break;

 

 

}

 

break;

 

default:

 

 

break;

 

}

 

return COleControl::WindowProc(message, wParam, lParam);

}

   

  本部分结束语:

  好了,现在一个可以运行的控件已经完成,里面提供有Connect()和DisConnect()接口,和RecvSockEvent()及CloseWinsock()事件。以及WinSock的使用方法。

  在下一部分(高级篇)将讲解两个重要接口SendData()和GetData(),下期内容如下:

  long SendData(const VARIANT FAR& Data, const VARIANT FAR& DataType,const VARIANT FAR& DataLength, const VARIANT FAR& TimeOut)

  long GetData(VARIANT FAR* Data, const VARIANT FAR& DataType, const VARIANT FAR& DataMaxLength, const VARIANT FAR& TimeOut)

  VARIANT和SAFEARRAY的复杂用法。

  控件开发出来后在VC和VB环境下的使用方法。

  声明:

  部分资料来源于网络,本文所用的所有源代码仅供非商业用途,并请保留原版权,否则后果自负!

  欢迎大家拍砖,或指正不足的地方,一起探导更好的方法。

 


共有 人打赏支持
粉丝 4
博文 44
码字总数 12913
×
小青_1989
如果觉得我的文章对您有用,请随意打赏。您的支持将鼓励我继续创作!
* 金额(元)
¥1 ¥5 ¥10 ¥20 其他金额
打赏人
留言
* 支付类型
微信扫码支付
打赏金额:
已支付成功
打赏金额: