呂娜

【摘 要】隨著互聯(lián)網(wǎng)在各個領(lǐng)域中的應(yīng)用，計算機應(yīng)用系統(tǒng)的開發(fā)也由傳統(tǒng)方式轉(zhuǎn)向網(wǎng)絡(luò)環(huán)境。V B提供了基于Windows Sockets網(wǎng)絡(luò)編程接口的Winsock控件，使得開發(fā)TCP/IP變得簡單、輕松。本文簡要介紹Winsock控件的屬性及應(yīng)用方法。

【關(guān)鍵詞】Winsock；控件；屬性；應(yīng)用

隨著互聯(lián)網(wǎng)在各個領(lǐng)域中的應(yīng)用，計算機應(yīng)用系統(tǒng)的開發(fā)也由傳統(tǒng)方式轉(zhuǎn)向網(wǎng)絡(luò)環(huán)境。由此Visual Basic提供了基于Windows Sockets網(wǎng)絡(luò)編程接口的Winsock控件，使得開發(fā)TCP/IP變得簡單、輕松。本文簡要說明Winsock控件的屬性及應(yīng)用方法。

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

1 Winsock控件的屬性

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

（2）LocalHostName（本地機器名），LocalIP（本地機器IP地址），LocalPort（本地機器通信程序端口），此屬性構(gòu)成本地機器的網(wǎng)絡(luò)地址。

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

（3）RemoteHost（遠程機器名稱），RemoteHostIP（遠程機器的IP地址），RemotePort（遠程機器通信程序端口），此屬性構(gòu)成遠程機器的網(wǎng)絡(luò)地址。

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

Winsockl.RemoteHost=202.99.6.100

Winsockl.RemotePort=1024

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

（5）State（連接的當(dāng)前狀態(tài)）屬性為返回當(dāng)前狀態(tài)，在應(yīng)用中常讀取其值已得到當(dāng)前狀態(tài)，從而決定下一步的處理。

2 Winsock控件的應(yīng)用方法

（1）Accept方法

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

（2）Bind方法

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

（3）Close方法

用于關(guān)閉一個TCP連接。調(diào)用格式為：Winsock對象.Close

（4）Connect方法

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

（5）Listen方法

用于服務(wù)器程序，等待客戶訪問。調(diào)用格式為：Winsock對象. Listen

（6）GetData和PeerData方法

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

（7）SendData方法

用于發(fā)送數(shù)據(jù)，可用在TCP和UDP兩種方式下。調(diào)用格式為：

Winsock對象. SendData數(shù)據(jù)

3 Winsock控件的主要事件

（1）ConnectRequest事件

當(dāng)遠程計算機請求連接時出現(xiàn)，僅適用于TCP服務(wù)器應(yīng)用程序。當(dāng)本地計算機接收到遠程計算機發(fā)送的連接請求時，控件的ConnectRequest事件將會被觸發(fā)。

（2）SendProgress事件

在發(fā)送數(shù)據(jù)期間出現(xiàn)。當(dāng)一端的計算機正在向另一端的計算機發(fā)送數(shù)據(jù)時，SendProgress事件將被觸發(fā)。SendProgress事件記錄了當(dāng)前狀態(tài)下已發(fā)送的字節(jié)數(shù)和剩余字節(jié)數(shù)。

參數(shù)：bytesSent是從上一次激活事件以來已發(fā)送的字節(jié)數(shù)：bytesRemaining是在發(fā)送緩沖區(qū)等待發(fā)送時的字節(jié)數(shù)。

（3）SendComplete事件

在完成一個發(fā)送操作時出現(xiàn)。當(dāng)所有數(shù)據(jù)發(fā)送完成時，被觸發(fā)。

（4）DataArrival事件

當(dāng)數(shù)據(jù)到達時出現(xiàn)。DataArrival事件連接后，接受到了新數(shù)據(jù)就會觸發(fā)這個事件。注意：如果在接受到新數(shù)據(jù)前，緩沖區(qū)中非空，就不會觸發(fā)這個事件。

（5）Error事件

發(fā)生錯誤時出現(xiàn)。當(dāng)在工作中發(fā)生任何錯誤都會觸發(fā)這個事件。

4 Winsock控件應(yīng)用實例

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

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

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

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

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

編寫代碼：

（1）在Form Load過程中設(shè)置網(wǎng)絡(luò)地址，設(shè)置LocalPort，RemoteHost和RemotePort屬性。

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

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

（2）在文本框的Change事件中，發(fā)送用戶輸入數(shù)據(jù)。

（3）有數(shù)據(jù)到達時，顯示對方數(shù)據(jù)內(nèi)容。

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

【參考文獻】

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

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

[責(zé)任編輯：湯靜]