对于局域网用户中的编程爱好者来说,如果能自己编一个局域网通信程序,那么这一切将是多么美妙!可是,如果要从头开始完全由自己来编写一段用于通信的
程序,必须对相关的网络协议及其他的一些较底层的技术有较深入的了解,这可不是一件容易的事。而现在有了Winsock控件,一切就不同了,它已经替你封装了所有烦琐的技术细节,并提供了访问TCP和UDP网络服务的方便途径。你只需通过设置控件的属性并调用其方法就可轻易连接到一台远程
计算机中,并且还可以双向交换数据,而这一切都不需你了解TCP的细节或调用低级的Winsock APIs。
Winsock控件可以供Microsoft Acess、Visual Basic,Visual C++或Visual Foxpro的开发人员使用。本文以Visual Basic 6企业版为开发环境来向大家介绍一下Winsock控件的初步应用。
Winsock控件可以使用两种协议:TCP协议和UDP协议,下面来分别介绍。
TCP协议即数据传输协议,它允许创建和维护与远程
计算机的连接,使其彼此可以进行数据传输。利用TCP协议通讯必须分别建立客户应用程序和服务器应用
程序。
在创建客户应用
程序时,必须知道服务器计算机名或其IP地址(存于RemoteHost属性)、及服务器
计算机进行侦听的端口(存于RemotePort属性),然后调用Connect方法。
创建服务器应用
程序时,就应相应设置一个侦听端口(LocalPort属性)并调用listen方法。当客户机需要连接时(connect),就会发生ConnectionRequest事件。为了完成连接,你可以在ConnectionRequest事件中调用Accept方法。建立连接后,任何一方
计算机都可以发送、接收对方数据。如果你要发送数据,需调用SendData方法。当接收到数据时,会发生DataArrival事件,调用DataArrival事件中的GetData方法就可以获得对方传送的数据。
说了这么多,大家可能还是不太了解,让我用
程序来详细说明。
如果只有两台
计算机,那十分容易。假设甲机为客户机,乙机为服务器,且其IP为192.192.192.1,接收端口为1200(任意选一个未被使用的端口即可)。首先在甲机客户端程序中加入一个Winsock控件,起名为sckconnect,并设置其属性:RemoteHost=“192.192.192.1”,(即甲机IP地址), RemotePort=1200(即甲机侦听端口);再在乙机服务器
程序中假如一个名为sckserver(0)的Winsock控件,其LocalPort=1200,
在乙机服务器
程序中Form_Load()加入
sckserver(0).bind sckserver(0).LocalPort ''与本地端口绑定
sckserver(0).listern '' 侦听
如果要传输数据,两机必须先建立连接。建立连接的
程序如下:
甲机客户机要先请求连接
sckconnect.connect sckconnect.RemoteHost, sckconnect.RemotePort
此句执行时会触发服务器
程序中的ConnectRequest事件,在此过程中决定是否建立连接,其代码如下:
Private sub sckserver_connectionrequest(index as Integer,Byval requestid as long)
if sckserver.count=1 then
load sckserver(1)
sckserver(1).accept requestId
end if
end sub
连接建立好以后,甲机或乙机都可以应用SendData方法来传送数据。例如,如果是甲机要传送一个叫string的字符串,只需在代码中加入:
sckconnect.SendData string
甲机传送数据后,会触发乙机的DataArrival事件,在其过程中用GetData方法可以收到传送的数据:
Private sub sckserver_DataArrival(Index as integer,Byval BytesTotal as long)
dim sdata as string
sckserver(1).GetData sdata,
vbstring
end sub
最后别忘了在关闭
程序前要先关闭Winsock控件
privat sub form_unload(cancel as integer)
if sckconnect.state <>sckclosed then
sckconnect.close
end if
end sub
这只是最简单的情况,如果有多台
计算机,那就稍微复杂一些,客户端程序可以不做改动,而服务器端程序需要略做改动:
Private