利用Winsock控件實(shí)現(xiàn)局域網(wǎng)通信(一)

2024-09-12 21:52:41

字體：大中小

供稿：網(wǎng)友

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