Winsock控件可以供Microsoft Acess、Visual Basic,Visual C++或Visual Foxpro的開發(fā)人員使用。本文以Visual Basic 6企業(yè)版為開發(fā)環(huán)境來向大家介紹一下Winsock控件的初步應(yīng)用。
Winsock控件可以使用兩種協(xié)議:TCP協(xié)議和UDP協(xié)議,下面來分別介紹。
TCP協(xié)議即數(shù)據(jù)傳輸協(xié)議,它允許創(chuàng)建和維護(hù)與遠(yuǎn)程計(jì)算機(jī)的連接,使其彼此可以進(jìn)行數(shù)據(jù)傳輸。利用TCP協(xié)議通訊必須分別建立客戶應(yīng)用程序和服務(wù)器應(yīng)用程序。
在創(chuàng)建客戶應(yīng)用程序時,必須知道服務(wù)器計(jì)算機(jī)名或其IP地址(存于RemoteHost屬性)、及服務(wù)器計(jì)算機(jī)進(jìn)行偵聽的端口(存于RemotePort屬性),然后調(diào)用Connect方法。
創(chuàng)建服務(wù)器應(yīng)用程序時,就應(yīng)相應(yīng)設(shè)置一個偵聽端口(LocalPort屬性)并調(diào)用listen方法。當(dāng)客戶機(jī)需要連接時(connect),就會發(fā)生ConnectionRequest事件。為了完成連接,你可以在ConnectionRequest事件中調(diào)用Accept方法。建立連接后,任何一方計(jì)算機(jī)都可以發(fā)送、接收對方數(shù)據(jù)。如果你要發(fā)送數(shù)據(jù),需調(diào)用SendData方法。當(dāng)接收到數(shù)據(jù)時,會發(fā)生DataArrival事件,調(diào)用DataArrival事件中的GetData方法就可以獲得對方傳送的數(shù)據(jù)。
如果只有兩臺計(jì)算機(jī),那十分容易。假設(shè)甲機(jī)為客戶機(jī),乙機(jī)為服務(wù)器,且其IP為192.192.192.1,接收端口為1200(任意選一個未被使用的端口即可)。首先在甲機(jī)客戶端程序中加入一個Winsock控件,起名為sckconnect,并設(shè)置其屬性:RemoteHost=“192.192.192.1”,(即甲機(jī)IP地址),RemotePort=1200(即甲機(jī)偵聽端口);再在乙機(jī)服務(wù)器程序中假如一個名為sckserver(0)的Winsock控件,其LocalPort=1200,
在乙機(jī)服務(wù)器程序中Form_Load()加入
sckserver(0).bind sckserver(0).LocalPort '與本地端口綁定
sckserver(0).listern ' 偵聽
如果要傳輸數(shù)據(jù),兩機(jī)必須先建立連接。建立連接的程序如下:
甲機(jī)客戶機(jī)要先請求連接
sckconnect.connect sckconnect.RemoteHost, sckconnect.RemotePort
此句執(zhí)行時會觸發(fā)服務(wù)器程序中的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
連接建立好以后,甲機(jī)或乙機(jī)都可以應(yīng)用SendData方法來傳送數(shù)據(jù)。例如,如果是甲機(jī)要傳送一個叫string的
字符串,只需在代碼中加入:
sckconnect.SendData string
甲機(jī)傳送數(shù)據(jù)后,會觸發(fā)乙機(jī)的DataArrival事件,在其過程中用GetData方法可以收到傳送的數(shù)據(jù):
新聞熱點(diǎn)
疑難解答
圖片精選