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

核心提示： VB调用控件方式: VB时面调用要方便很多,这得益于VB的很多自动化功能,请看下图: 图三 VB调用控件方法 同样，双击我们的控件，标准MFC WinSock ActiveX控件开发实例(II)高级篇(5)，然后添加控件事件，如下图： 图片看不清楚？请点击这里查看原图（大图），指正错

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

图三 VB调用控件方法

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

图片看不清楚？请点击这里查看原图（大图）。

图四 VB响应控件事件

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

Private　Sub　Command1_Click()
MFCWinSock1.Connect　CStr(ip),　CLng(port)
End　Sub

Private　Sub　Command2_Click()
MFCWinSock1.SendData　"SendData:　欢迎使用!",　0,　50,　3
End　Sub

Private　Sub　MFCWinSock1_CloseWinsock()
MFCWinSock1.DisConnect
MsgBox　"服务器断开了连接,请检查!"

End　Sub

Private　Sub　MFCWinSock1_RecvSockEvent()
Dim　data　As　Variant
Dim　data2(100)　As　Long
Dim　data3　As　String
Dim　l　As　Long
data　=　data2　'在VB里当把一个Variant变量data等于另一个确定变量data2时,data将被初始化为与data2相同的类型变量
'data　=　data3　'如果让data等于data3,那么data将变成字符串型的变量参数
l　=　MFCWinSock1.GetData(data,　0,　100,　3)　'这时data里面已存放了接收到的数据
data3　=　data(0)　'这里只显示接收到的首字符编码
MsgBox　data3
End　Sub 大家可以看到，对于SAFEARRAY类型的数据进行相关处理也并不可怕，由于在源码里给出了具体代码和详细注解，在这里我就不再赘述了，

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

结束语：

全文至此暂告一段落，本文向大家展示了MFC ActiveX控件的魅力，以及所用的VARIANT类型参数，还详细给出了WinSock的开发代码，

以用在VC,VB的调用方法，由于这段时间忙于一些新项目的开发，因此没办法花太多时间进行详细解释，所以很多地方都直接给出源代码

再加上注解，而没有进行通俗的讲解，还请各位读者仔细查看源代码。

本控件目前只能作为客户端，阁下还可以继续进行完善，比如进行端口的监听，实现服务器的相关处理等等，但这已经不是本文的目的，

授人以鱼，不如授人如渔，剩下的功能，就由各位读者去实现了，也欢迎与我进行交流，谢谢！

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

声明:

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

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

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