Winsock控件建立在TCP、UDP协议的基础上,完成与远程计算机的通信。即使对TCP/IP不太熟悉的用户,使用该控件也可以在十几分钟内创建一个简单的客户机/服务器程序。下面我们对Winsock控件的事件、方法、属性按其在程序中出现的顺序分别作详细的介绍,以便更好地理解程序源代码。
服务器程序的实现过程是:
(1)服务器程序必须设置好LocalPort属性,作为侦听端口,该值为一个整数(只要是一个其它TCP/IP应用程序没有使用过的值即可)。
(2)使用Listen方法进入侦听状态,等待客户机程序的连接请求。
(3)客户机程序发出连接请求,使服务器程序产生ConnectionRequest事件,该事件得到一个参数requestID。
(4)服务器程序用Accept方法接受客户机程序的requestID请求。这样,服务器程序就可以用SendData方法发送数据了。Accept方法必须用上一步得到的requestID作为其参数。
(5)当服务器程序接收到数据时,产生DataArrival事件,参数BytesTotal包含接收到的数据字节数。在该事件中,可以用GetData方法接收数据。
(6)如果接受到Close事件,则用Close方法关闭TCP/IP连接。
客户机程序的实现过程是:
(1) 客户程序设置Remotehost属性,以便指定运行服务器程序的主机 名,该字符串可在"控制面板|网络|标识|计算机名"中查到。
(2) 设置RemotePort属性,以便指定服务器程序的侦听端口。
(3)使用Connect方法,向服务器提出连接请求。
(4)服务器接受客户机程序的请求,客户机程序产生Connect事件,就可以用SendData方法发送数据了。
(5)当客户机程序接收到数据时,产生DataArrival事件,参数BytesTotal包含接收到的数据字节数。在该事件中,可以用GetData方法接收数据。
(6)如果接受到Close事件,则用Close方法关闭连接。
Winsock控件还有两个重要的属性,即Protocol和State。Protocol设定使用的协议是TCP还是UDP:取值sckTCPProtocol表示TCP, 取值sckUDPProtocol则表示UDP。因为Winsock控件的缺省设置是sckTCPProtocol,所以程序中并没有使用Protocol属性。State属性反映的是当前TCP/IP的连接状态,取值如表1所示。
表1 Winsock控件的State属性及其描述
常数 | 值 | 描述 |
sckClosed | 0 | 缺省值,关闭。 |
SckOpen | 1 | 打开。 |
SckListening | 2 | 侦听 |
sckConnectionPending | 3 | 连接挂起 |
sckResolvingHost | 4 | 识别主机。 |
sckHostResolved | 5 | 已识别主机 |
sckConnecting | 6 | 正在连接。 |
sckConnected | 7 | 已连接。 |
sckClosing | 8 | 同级人员正在关闭连接。 |
sckError | 9 | 错误。 |
winsock1.getdata sdata ,vbstring 中的vbstring 是什么意思?
winsock1.GetData data, [type,] [maxLen]
type 的设置值是:
------------------
描述 常数
Byte vbByte
Integer vbInteger
Long vbLong
Single vbSingle
Double vbDouble
Currency vbCurrency
Date vbDate
Boolean vbBoolean
SCODE vbError
String vbString
Byte Array vbArray + vbByte
-----------------------
说明:vbString是常量: Const vbString = 8 表示以字符串方式对接收的数据进行解码
评论