关于WINsock的使用方法

[sengye]

各位高手是否有相关的WINSOCK的VFP源程序相送，谢谢

[xgming]

上面已经有贴；
本人最看近刚好研究了一下VFP中使用WinSock，但我是使用控件，在采用UDP方式时成功，但使用TCP方式时，VFP程序作为服务端可以，但作为客户端则不行，发出Connect命令后，服务器端毫无反应。
其实采用UDP方式也可完成一定的功能，而且应该比TCP稳定。
WinSock控件使用（UDP）：

Server端（控件实名ws）：
ws.LocalIP=<本机IP地址>
ws.LocalPort=<给本机指定一个网络端口号，以便其它客户机可主动发消息过来，端口号是一个整数，最好在于2000，这样与其它程序冲突较少>
ws.bind(ws.LocalPort,ws.LocalIP)

Client端：
与服务器端一样指定IP地址和端口；
发送信息时设置：
ws.remoteHost=<对方机器的IP地址>
ws.remotePort=<对方机器用于本程序的端口号>
ws.SendData(<要发送的内容>)

发送后，服务器端的ws控件会产生一个DataArrival事件，在该事件中使用GetData方法便可收取信息内容，回复发送时与客户机一样。

[sengye]

to xgming(km)
您好！
谢谢您上次给我的指教！您在上次给的我回复中有一句“ws.bind(ws.LocalPort,ws.LocalIP)”在何处用，如何用？其二：“在该事件中使用GetData方法便可收取信息内容”我却不行总出错，该如何用！谢谢！

[xgming]

1、bind()在Init()中用；
2、GetData()用法为：
ss=[]
=GetData(@ss)
ss即为得到的内容。