标准MFC WinSock ActiveX控件开发实例(基础篇)
标准MFC WinSock ActiveX控件开发实例(基础篇)
小青_1989 发表于4年前
标准MFC WinSock ActiveX控件开发实例(基础篇)
  • 发表于 4年前
  • 阅读 221
  • 收藏 0
  • 点赞 0
  • 评论 0

摘要:本文主要介绍如何开发一个ActiveX控件,提供接口,与相应事件挂钩。文中涉及到VARIANT,SAFEARRAY,BSTR的详细使用方法。
另外还提供了WinSock的详细开发步骤,以及如何响应网络超时,网络断开的事件方法以及在VC,VB调用该控件的方法。
关键字:ActiveX,Socket,VARIANT, SAFEARRAY,BSTR。

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

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

    标准MFC WinSock ActiveX控件开发实例(基础篇) - 极限ぷ英豪 - 烟雨楼


    图一 创建工程

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

   
标准MFC WinSock ActiveX控件开发实例(基础篇) - 极限ぷ英豪 - 烟雨楼
图二 创建完成

二、架设Socket环境:

  1. 首先在StdAfx.h文件中加入下面这句代码: #include <afxsock.h>// MFC socket extensions 

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

////////////////////////////////////////////////////////////////////////////// CMFCWinSockApp::InitInstance - DLL initializationBOOL 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 terminationint CMFCWinSockApp::ExitInstance(){// TODO: Add your own module termination code here.WSACleanup();//结束网络服务return COleControlModule::ExitInstance();}      
三,提供控件接口和事件

  1. 在MFCWinSockCtl.cpp加入如下代码:
    #ifndef WM_MYWINSOCK #define WM_MYWINSOCK WM_USER+1888#endif      

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

    标准MFC WinSock ActiveX控件开发实例(基础篇) - 极限ぷ英豪 - 烟雨楼


    图三 创建接口
    这个时候,我们为这个控件添加了一个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,我也将在后面介绍它的具体使用方法。

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

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

    标准MFC WinSock ActiveX控件开发实例(基础篇) - 极限ぷ英豪 - 烟雨楼


    图四 创建事件

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

    标准MFC WinSock ActiveX控件开发实例(基础篇) - 极限ぷ英豪 - 烟雨楼


    图五 重载WindowProc()

四、编写代码

  1. 编写VariantToLong()转换函数,该函数代码如下: //类型转换,将VARIANT类型转换成Long类型long CMFCWinSockCtrl::VariantToLong(const VARIANT &var){long r;switch(var.vt){case VT_UI2://USHORTr = var.uiVal;break;case VT_UI4://ULONGr = var.ulVal;break;case VT_INT://INTr = var.intVal;break;case VT_UINT://UINTr = var.uintVal;break;case VT_I4://LONGr = var.lVal;break;case VT_UI1://BYTEr = var.bVal;break;case VT_I2://SHORTr = var.iVal;break;case VT_R4://FLOATr = (long)var.fltVal;break;case VT_R8://DOUBLEr = (long)var.dblVal;break;default:r = -1;//无法转换该值break;}return r;}      
    大家可以看到,该函数将最基本的若干中数据类型转换成了long类型,但VARIANT决不是个简单的谱,我将在后面继续揭开它的神秘面纱.

  2. 编写我们刚才的接口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 hereif(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也属于一个窗口,并且是可见的,因此可以成功。

  3. 编写WindowProc(),代码看起来如下: LRESULT CMFCWinSockCtrl::WindowProc(UINT message, WPARAM wParam, LPARAM lParam) {// TODO: Add your specialized code here and/or call the base classswitch(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(),下期内容如下: 

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

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

  3. VARIANT和SAFEARRAY的复杂用法。

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


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