标准 MFC WinSock ActiveX 控件开发实例(II)高级篇

回顾:在上一篇文章《标准MFC WinSock ActiveX控件开发实例》中我们详细介绍了控件的开发过程，以及接口和事件的添加和响应方法。现在我们将继续上次没有写完的控件继续进行开发，并完善作为一个WinSock控件应该具备的功能。

二、按照前一篇文章提到的知识，现在我们来添加两个新的接口分别是SendData()和GetData()，它们看起来如下：

01. //网络数据发送,在指定的超时时间内进行发送然后返回,成功返回实际发送字节数,否则返回负数

02. long CMFCWinSockCtrl::SendData(const VARIANT FAR& Data,

03. const VARIANT FAR& DataType,

04. const VARIANT FAR& DataLength,

05. const VARIANT FAR& TimeOut)

06. {

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

08.  

09. return 0;

10. }

11.  

12. //获取数据,并指定获取数据的超时时间,返回实际获取到的数据长度,否则返回负数

13. long CMFCWinSockCtrl::GetData(VARIANT FAR* Data,

14. const VARIANT FAR& DataType,

15. const VARIANT FAR& DataMaxLength,

16. const VARIANT FAR& TimeOut)

17. {

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

19.  

20. return 0;

21. }

两个接口的参数除了第一个参数外,其它都类似。SendData()是发送数据，不要求将数据带回，因此直接用 VARIANT，而GetData()则要求将数据带回来给调用者，因此定义为 VARIANT *类型，第二个参数DataType故名思义是定义所传送或接收数据的类型，第三个参数是传送或接收数据的长度，这里的长度以char作为一个长度，假如传入的类型是int类型，则长度为4,如果定义的是字符串，一个中文字符占用2个长度。最后一个参数，是网络发送或读取时的超时时间。

三、为Connect()接口添加源代码，看起来如下：

01. //网络数据发送,在指定的超时时间内进行发送然后返回,成功返回实际发送字节数,否则返回负数

02. long CMFCWinSockCtrl::SendData(const VARIANT FAR& Data,

03. const VARIANT FAR& DataType,

04. const VARIANT FAR& DataLength,

05. const VARIANT FAR& TimeOut)

06. {

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

08. if(!OnlySock)

09. return -1;//网络尚未开始建立连接

10.  

11. int gDataType = VariantToLong(DataType);

12. long gDataLength = VariantToLong(DataLength);

13. int gTimeOut = VariantToLong(TimeOut);

14. if(gDataType < 0)

15. return -2;

16. if(gDataLength >24)&0xff;

17. buffer[m++] = (gData.lVal>>16)&0xff;

18. buffer[m++] = (gData.lVal>>8)&0xff;

19. buffer[m++] = gData.lVal&0xff;

20. }  

21. }

22. else//long = char*1 //数据可能溢出

23. {

24. buffer = new char[gDataLength];

25. for(m=0,n=0; n< gDataLength; n++)

26.  

27. {

28. SafeArrayGetElement(Data.parray,&n,&gData.lVal);

29. buffer[n] = (char)gData.lVal;

30. }

31. }

32. break;

33. case VT_ARRAY|VT_INT://以整型数组发送 

34. gData.vt = VT_INT;

35. if(gDataType != 0)

36. {

37. //一个int等于四个char

38. buffer = new char[gDataLength];

39. for(m=0,n=0; n< gDataLength/4; n++)

40. {

41. SafeArrayGetElement(Data.parray,&n,&gData.intVal);

42. buffer[m++] = (gData.intVal>>24)&0xff;

43. buffer[m++] = (gData.intVal>>16)&0xff;

44. buffer[m++] = (gData.intVal>>8)&0xff;

45. buffer[m++] = gData.intVal&0xff;

46. }

47. }

48. else

49. {

50. buffer = new char[gDataLength];

51. for(n=0; n< gDataLength; n++)

52. {

53. SafeArrayGetElement(Data.parray,&n,&gData.intVal);

54. buffer[n] = (char)gData.intVal;

55. }

56. }

57. break;

58. case VT_ARRAY|VT_UI1://以BYTE数组发送   

59. gData.vt = VT_UI1;//一个char等于一个BYTE不必进行转换

60. buffer = new char[gDataLength];

61. for(n=0; n< gDataLength; n++)

62. {

63. SafeArrayGetElement(Data.parray,&n,&gData.bVal);

64. buffer[n] = gData.bVal;

65. }

66. break;

67. default://在这里没有一一列出其它类型,剩下的就由阁下进行数据转换处理了,我就偷懒了^_^

68. return -3;//传入的数据类型不被支持

69. }

70.  

71. len = send(OnlySock, buffer, gDataLength, 0);//发送数据

72. delete[] buffer;

73. buffer = NULL;

74.  

75. if (len>24)&0xff;

76. buffer[1] = (lData>>16)&0xff;

77. buffer[2] = (lData>>8)&0xff;

78. buffer[3] = lData&0xff;

79.  

80. //4个char组成一个long

81. lData_2 = ( (buffer[0] &0xff ) < < 24) +

82. (( buffer[1] &0xff ) < < 16) +

83. (( buffer[2] &0xff ) < < 8) +

84. ( buffer[3] &0xff );

四、现在来看看GetData()的处理,具体实现,请看如下代码:

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

02. if(!OnlySock)

03. return -1;//网络尚未开始建立连接

04.  

05. int gDataType = VariantToLong(DataType);

06. long gDataMaxLength = VariantToLong(DataMaxLength);

07. int gTimeOut = VariantToLong(TimeOut);

08. if(gDataType < 0)

09. return -2;

10. if(gDataMaxLength bstrVal = _com_util::ConvertStringToBSTR(buffer);

11. break;

12. case VT_BYREF|VT_UI1:   //按BYTE*形式接收

13. memcpy(Data->pbVal,buffer,gDataMaxLength);

14. break;

15. case VT_BYREF|VT_I1://按 char * 形式接收

16. memcpy(Data->pcVal,buffer,gDataMaxLength);

17. break;

18. case VT_BYREF|VT_I4://以长整型指针接收

19. buffer[gDataMaxLength]='\0';

20. for(n=0; n< gDataMaxLength; n++)

21. {

22. Data->plVal[n] = buffer[n];

23. }

24. break;

25. case VT_ARRAY|VT_I4://以长整型数组接收 

26. gData.vt = VT_I4;

27. if(gDataType != 0)

28. {

29. for(m=0,n=0; n < gDataMaxLength;n++)

30. {

31. gData.lVal = ( ( buffer[m]&0xff ) < < 24) +

32. ( ( buffer[m+1]&0xff ) < < 16) +

33. ( ( buffer[m+2]&0xff ) < < 8) +

34. ( buffer[m+3]&0xff );

35.  

36. SafeArrayPutElement( Data->parray,&n,&gData.lVal );

37. m = m+4;

38. }

39. }

40. else

41. {

42. for(n = 0; n< gDataMaxLength; n++)

43. {

44. gData.lVal = (long)buffer[n];

45. SafeArrayPutElement( Data->parray,&n,&gData.lVal );

46. }

47. }

48. break;

49. case VT_ARRAY|VT_INT://以整型数组接收 

50. gData.vt = VT_INT;

51. if(gDataType != 0)

52. {

53. for(m=0,n=0; n< gDataMaxLength;n++)

54. {

55. gData.intVal = ( ( buffer[m]&0xff)parray);

56. delete data;

57.  

58. }

59.  

60. void CTestMFCWinSockDlg::OnCloseWinsockMfcwinsockctrl1()

61. {

62. // TODO: Add your control notification handler code here

63. m_sock.DisConnect();//调用断开连接接口

64. AfxMessageBox("服务器断开了该次连接,请检查!");

65. }

66.  

67. void CTestMFCWinSockDlg::OnConnect()

68. {

69. // TODO: Add your control notification handler code here

70. UpdateData(TRUE);

71. if(!m_sock.Connect(COleVariant(m_ip),COleVariant(m_port)))

72. AfxMessageBox("与服务器建立连接失败,请确认服务器是否存在!");

73. }

VB调用控件方式:

VB时面调用要方便很多,这得益于VB的很多自动化功能,请看下图:

图三 VB调用控件方法

同样，双击我们的控件，然后添加控件事件，如下图：

图四 VB响应控件事件

然后,添加相关代码如下：

01. Private Sub Command1_Click()

02. MFCWinSock1.Connect CStr(ip), CLng(port)

03. End Sub

04.  

05. Private Sub Command2_Click()

06. MFCWinSock1.SendData "SendData: 欢迎使用!", 0, 50, 3

07. End Sub

08.  

09. Private Sub MFCWinSock1_CloseWinsock()

10. MFCWinSock1.DisConnect

11. MsgBox "服务器断开了连接,请检查!"

12.  

13. End Sub

14.  

15. Private Sub MFCWinSock1_RecvSockEvent()

16. Dim data As Variant

17. Dim data2(100) As Long

18. Dim data3 As String

19. Dim l As Long

20. data = data2 '在VB里当把一个Variant变量data等于另一个确定变量data2时,data将被初始化为与data2相同的类型变量

21. 'data = data3 '如果让data等于data3,那么data将变成字符串型的变量参数

22. l = MFCWinSock1.GetData(data, 0, 100, 3) '这时data里面已存放了接收到的数据

23. data3 = data(0) '这里只显示接收到的首字符编码

24. MsgBox data3

25. End Sub

大家可以看到，对于SAFEARRAY类型的数据进行相关处理也并不可怕，由于在源码里给出了具体代码和详细注解，在这里我就不再赘述了，

至于BSTR和char *类型的数据，相信不用我多说，大家也已经知道如何使用了。

结束语：

全文至此暂告一段落，本文向大家展示了MFC ActiveX控件的魅力，以及所用的VARIANT类型参数，还详细给出了WinSock的开发代码，以用在VC,VB的调用方法，由于这段时间忙于一些新项目的开发，因此没办法花太多时间进行详细解释，所以很多地方都直接给出源代码再加上注解，而没有进行通俗的讲解，还请各位读者仔细查看源代码。

本控件目前只能作为客户端，阁下还可以继续进行完善，比如进行端口的监听，实现服务器的相关处理等等，但这已经不是本文的目的，授人以鱼，不如授人如渔，剩下的功能，就由各位读者去实现了，也欢迎与我进行交流，谢谢！

另外：本文的示例，需要一个服务器程序，大家可以在网上随便下载一下进行测试，我就不提供了。