Winsock控件的屬性及應用方法

呂娜

【摘 要】隨著互聯網在各個領域中的應用，計算機應用系統的開發也由傳統方式轉向網絡環境。V B提供了基于Windows Sockets網絡編程接口的Winsock控件，使得開發TCP/IP變得簡單、輕松。本文簡要介紹Winsock控件的屬性及應用方法。

【關鍵詞】Winsock；控件；屬性；應用

隨著互聯網在各個領域中的應用，計算機應用系統的開發也由傳統方式轉向網絡環境。由此Visual Basic提供了基于Windows Sockets網絡編程接口的Winsock控件，使得開發TCP/IP變得簡單、輕松。本文簡要說明Winsock控件的屬性及應用方法。

Winsock控件是一個在運行中不可見的控件，可以很容易的訪問TCP和UDP網絡服務，使用它不需要了解TCP/IP的具體細節。只要設置Winsock控件的屬性和調用該控件的方法，就可以輕松編寫網絡應用程序、連接到遠程計算機并進行雙向的數據交換。

1 Winsock控件的屬性

（1）BytesReceived（接受數據的字節數）反映接收到的數據量，它以字節為單位，是只讀屬性，在設計時不可用。

（2）LocalHostName（本地機器名），LocalIP（本地機器IP地址），LocalPort（本地機器通信程序端口），此屬性構成本地機器的網絡地址。

LocalHostName，LocalIP為只讀屬性，返回本地機器名和IP地址。

（3）RemoteHost（遠程機器名稱），RemoteHostIP（遠程機器的IP地址），RemotePort（遠程機器通信程序端口），此屬性構成遠程機器的網絡地址。

RemoteHost和RemotePort用于設置遠程主機和端口號，RemoteHost應用是一字符串，它可以是域名，也可以是IP地址。例如：要同IP地址為202.99.6.100，端口號為1024的程序通信，可設置為：

Winsockl.RemoteHost=202.99.6.100

Winsockl.RemotePort=1024

（4）SocketHandle（提供給調用Winsock API的句柄參數）用于調用低層Winsock API函數。在要求較高的情況下，可調用API來成更復雜的操作。

（5）State（連接的當前狀態）屬性為返回當前狀態，在應用中常讀取其值已得到當前狀態，從而決定下一步的處理。

2 Winsock控件的應用方法

（1）Accept方法

用于接受TCP連接請求。在TCP建立連接時，當有連接請求時，用此方法接受請求建立連接。調用格式如下：Winsock對象.Accept Request ID

（2）Bind方法

用于存在多協議接口卡的情況下，用此方法把接口卡和IP地址捆綁在一起。調用格式為：Winsock對象.Bind端口號，IP地址

（3）Close方法

用于關閉一個TCP連接。調用格式為：Winsock對象.Close

（4）Connect方法

用于向遠程主機發出連接請求。調用格式為：Winsock對象. Connect﹝遠程主機IP，遠程端口﹞

（5）Listen方法

用于服務器程序，等待客戶訪問。調用格式為：Winsock對象. Listen

（6）GetData和PeerData方法

這兩種方法都用來獲取接受數據。GetData方法取回數據后清除接收緩沖區，PeerData方法只是獲取當前接收數據拷貝，不清除緩沖區。調用格式為：Winsock對象. GetData（PeerData）變量﹝，數據類型﹝，最大長度﹞﹞

（7）SendData方法

用于發送數據，可用在TCP和UDP兩種方式下。調用格式為：

Winsock對象. SendData數據

3 Winsock控件的主要事件

（1）ConnectRequest事件

當遠程計算機請求連接時出現，僅適用于TCP服務器應用程序。當本地計算機接收到遠程計算機發送的連接請求時，控件的ConnectRequest事件將會被觸發。

（2）SendProgress事件

在發送數據期間出現。當一端的計算機正在向另一端的計算機發送數據時，SendProgress事件將被觸發。SendProgress事件記錄了當前狀態下已發送的字節數和剩余字節數。

參數：bytesSent是從上一次激活事件以來已發送的字節數：bytesRemaining是在發送緩沖區等待發送時的字節數。

（3）SendComplete事件

在完成一個發送操作時出現。當所有數據發送完成時，被觸發。

（4）DataArrival事件

當數據到達時出現。DataArrival事件連接后，接受到了新數據就會觸發這個事件。注意：如果在接受到新數據前，緩沖區中非空，就不會觸發這個事件。

（5）Error事件

發生錯誤時出現。當在工作中發生任何錯誤都會觸發這個事件。

4 Winsock控件應用實例

TCP是一種面向連接的服務，連接兩臺計算機就可彼此進行數據傳輸。UDP 是一種雙向無連接協議。跟 TCP 的操作不同，計算機并不建立連接。另外 UDP 應用程序可以是客戶機，也可以是服務器；所以程序編寫上比TCP方式簡單。我們使用UDP建立一個“聊天”程序，“聊天”是指兩個程序能夠發送數據給對方，在此兩者之間是平等的、處于同一地位，沒有服務和客戶的區別。

建立【聊天A】程序的步驟：

（1）打開VB6.0中文版，建立標準程序，設置窗體標題為“聊天A”。

（2）把Winsock控件拖到窗體中，設置Protocol屬性為I-sckUDPProtocol，其他屬性為缺省值。

（3）在窗體放置兩個標簽和文本框，設置兩個標簽的Caption屬性分別為“接收窗”和“發送窗”。

編寫代碼：

（1）在Form Load過程中設置網絡地址，設置LocalPort，RemoteHost和RemotePort屬性。

【聊天A】的RemoteHost設置為運行【聊天B】程序的主機地址。

【聊天A】的RemotePort設置要與【聊天B】的LocalPort屬性一致。

（2）在文本框的Change事件中，發送用戶輸入數據。

（3）有數據到達時，顯示對方數據內容。

到此【聊天A】程序設計完成，保存將其編譯為執行文件。因為A、B是平等的，所以【聊天B】程序設計，只需要按上述原則在Form Load中設置好網絡地址其他部分則完全與A相同。

【參考文獻】

[1]張樹兵，戴紅，陳哲.Visual Basic6.0中文版入門與提高[M].北京：清華大學出版社，1999.

[2]曾強聰.isual Basic6.0程序設計教程[M].北京：中國水利水電出版社，2003.

[責任編輯：湯靜]