标准MFC WinSock ActiveX控件开发实例

http://www.vckbase.com/index.php/wv/1577

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

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

图一 创建工程

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

图二 创建完成

二、架设Socket环境：

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

1. #include < afxsock.h >        // MFC socket extensions

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

01. //

02. // CMFCWinSockApp::InitInstance - DLL initialization

03.  

04. BOOL CMFCWinSockApp::InitInstance()

05. {

06. BOOL bInit = COleControlModule::InitInstance();

07.  

08. if (bInit)

09. {

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

11. if (!AfxSocketInit())

12. {

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

14. return FALSE;

15. }

16. WSADATA wsaData;

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

18. int errCode;       

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

20. if (errCode)

21. {

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

23. return FALSE;

24. }

25. }

26.  

27. return bInit;

28. }

29.  

30.  

31. ///

32. // CMFCWinSockApp::ExitInstance - DLL termination

33.  

34. int CMFCWinSockApp::ExitInstance()

35. {

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

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

38. return COleControlModule::ExitInstance();

39. }

40.  

三,提供控件接口和事件

1.在MFCWinSockCtl.cpp加入如下代码:

1. #ifndef WM_MYWINSOCK

2. #define WM_MYWINSOCK WM_USER+1888

3. #endif

4.  

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

图三 创建接口

这个时候，我们为这个控件添加了一个Connect()的接口，出于通用性，安全性和扩展性的考虑，我们采用了VARIANT类型的参数，
很多人可能都不太了解该类型，又或者有接触过，但被吓怕了，那么我们来看清它的本来面目：

01. struct  tagVARIANT

02. {

03. union

04. {

05. struct  __tagVARIANT

06. {

07. VARTYPE vt;

08. WORD wReserved1;

09. WORD wReserved2;

10. WORD wReserved3;

11. union

12. {

13. LONG lVal;

14. BYTE bVal;

15. SHORT iVal;

16. FLOAT fltVal;

17. DOUBLE dblVal;

18. VARIANT_BOOL boolVal;

19. _VARIANT_BOOL bool;

20. SCODE scode;

21. CY cyVal;

22. DATE date;

23. BSTR bstrVal;

24. IUnknown __RPC_FAR *punkVal;

25. IDispatch __RPC_FAR *pdispVal;

26. SAFEARRAY __RPC_FAR *parray;

27. BYTE __RPC_FAR *pbVal;

28. SHORT __RPC_FAR *piVal;

29. LONG __RPC_FAR *plVal;

30. FLOAT __RPC_FAR *pfltVal;

31. DOUBLE __RPC_FAR *pdblVal;

32. VARIANT_BOOL __RPC_FAR *pboolVal;

33. _VARIANT_BOOL __RPC_FAR *pbool;

34. SCODE __RPC_FAR *pscode;

35. CY __RPC_FAR *pcyVal;

36. DATE __RPC_FAR *pdate;

37. BSTR __RPC_FAR *pbstrVal;

38. IUnknown __RPC_FAR *__RPC_FAR *ppunkVal;

39. IDispatch __RPC_FAR *__RPC_FAR *ppdispVal;

40. SAFEARRAY __RPC_FAR *__RPC_FAR *pparray;

41. VARIANT __RPC_FAR *pvarVal;

42. PVOID byref;

43. CHAR cVal;

44. USHORT uiVal;

45. ULONG ulVal;

46. INT intVal;

47. UINT uintVal;

48. DECIMAL __RPC_FAR *pdecVal;

49. CHAR __RPC_FAR *pcVal;

50. USHORT __RPC_FAR *puiVal;

51. ULONG __RPC_FAR *pulVal;

52. INT __RPC_FAR *pintVal;

53. UINT __RPC_FAR *puintVal;

54. struct  __tagBRECORD

55. {

56. PVOID pvRecord;

57. IRecordInfo __RPC_FAR *pRecInfo;

58. }   __VARIANT_NAME_4;

59. }   __VARIANT_NAME_3;

60. }   __VARIANT_NAME_2;

61. DECIMAL decVal;

62. }   __VARIANT_NAME_1;

63. };

64.  

它先是一个结构体，里面有一个重要成员VARTYPE vt；vt即是指明当前的数据类型，比如整型或者字符型，当指明vt后，后面看到各种变量类型包括在一个联合体当中，也就是说指明vt后，你只能使用对应的其中之一变量类型。看着这众多的各种不同类型变量集中在一起，确实让人吓了一跳，但细细看来，大多数变量跟我们平时的用法相似。值得一提的是SAFEARRAY __RPC_FAR *parray;也许有很多人还没有接触过SAFEARRAY类型的变量，SAFEARRAY实际上也是一个结构，大家可以参考MSDN，我也将在后面介绍它的具体使用方法。

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

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

图四 创建事件

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

图五 重载WindowProc()

四、编写代码

1.编写VariantToLong()转换函数，该函数代码如下：

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

02. long CMFCWinSockCtrl::VariantToLong(const VARIANT &var)

03. {

04. long r;

05. switch(var.vt)

06. {

07. case VT_UI2://USHORT

08. r = var.uiVal;

09. break;

10. case VT_UI4://ULONG

11. r = var.ulVal;

12. break;

13. case VT_INT://INT

14. r = var.intVal;

15. break;

16. case VT_UINT://UINT

17. r = var.uintVal;

18. break;

19. case VT_I4://LONG

20. r = var.lVal;

21. break;

22. case VT_UI1://BYTE

23. r = var.bVal;

24. break;

25. case VT_I2://SHORT

26. r = var.iVal;

27. break;

28. case VT_R4://FLOAT

29. r = (long)var.fltVal;

30. break;

31. case VT_R8://DOUBLE

32. r = (long)var.dblVal;

33. break;

34. default:

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

36. break;

37. }

38. return r;

39. }

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

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

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

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

然后再编写Connect()，看起来如下：

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

02. {

03. // TODO: Add your dispatch handler code here

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

05. return FALSE;

06.  

07. CString IPAddress;

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

09.  

10. switch(RemoteHost.vt)

11. {

12. case VT_BSTR://字符串型

13. IPAddress = CString(RemoteHost.bstrVal);

14. break;

15. case VT_BYREF|VT_I1://CHAR *

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

17. break;

18. default:

19. IPAddress = "";

20. return FALSE;

21. }

22.  

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

24. if(Port<=0)

25. return FALSE;

26.  

27. _TCHAR *ip = 0;

28. struct hostent *host = 0;

29. struct sockaddr_in addr;

30. ULONG dotIP = inet_addr(IPAddress);

31.  

32. OnlySock = socket(AF_INET, SOCK_STREAM, 0);

33.  

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

35. if (OnlySock == INVALID_SOCKET)

36. {

37. shutdown(OnlySock, 0x02);

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

39. return FALSE;

40. }

41.  

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

43. // 设定 SOCKADDR_IN 结构的内容

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

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

46. addr.sin_family = AF_INET;

47. addr.sin_port = htons(Port);

48. addr.sin_addr.S_un.S_addr = dotIP;

49. if (dotIP == INADDR_NONE)

50. {

51. host = gethostbyname(IPAddress);

52. if (!host)

53. {

54. shutdown(OnlySock, 0x02);

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

56. return FALSE;

57. };

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

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

60. }

61.  

62. //开始连线

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

64. {

65. shutdown(OnlySock, 0x02);

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

67. return FALSE;

68. }

69.  

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

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

72. {  

73. shutdown(OnlySock, 0x02);

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

75. return FALSE;

76. } 

77.  

78. isOnlyConnect = true;

79. return TRUE;

80. }

有必要提一下WSAAsyncSelect(),这里接收网络数据到达和断开的两个消息,我们收到WM_MYWINSOCK消息时将处理该消息并作为事件传送给调用者.
第二个参数，窗口句柄，我们传送了m_hWnd，这是因为MFC ActiveX也属于一个窗口，并且是可见的，因此可以成功。

3.编写WindowProc()，代码看起来如下：

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

02. {

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

04. switch(message)

05. {

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

07. switch(WSAGETSELECTEVENT(lParam))

08. {

09. case FD_READ://有新数据到达

10. FireRecvSockEvent();

11. break;

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

13. FireCloseWinsock();

14. break; 

15. }

16. break;

17. default:

18. break;

19. }

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

21. }

本部分结束语:

好了,现在一个可以运行的控件已经完成，里面提供有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环境下的使用方法。

声明:

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

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

3.欢迎访问www.vcfans.cn，感谢您的支持！