呂娜

【摘 要】隨著互聯(lián)網(wǎng)在各個(gè)領(lǐng)域中的應(yīng)用，計(jì)算機(jī)應(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變得簡(jiǎn)單、輕松。本文簡(jiǎn)要介紹Winsock控件的屬性及應(yīng)用方法。

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

隨著互聯(lián)網(wǎng)在各個(gè)領(lǐng)域中的應(yīng)用，計(jì)算機(jī)應(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變得簡(jiǎn)單、輕松。本文簡(jiǎn)要說(shuō)明Winsock控件的屬性及應(yīng)用方法。

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

1 Winsock控件的屬性

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

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

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

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

RemoteHost和RemotePort用于設(shè)置遠(yuǎn)程主機(jī)和端口號(hào)，RemoteHost應(yīng)用是一字符串，它可以是域名，也可以是IP地址。例如：要同IP地址為202.99.6.100，端口號(hào)為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來(lái)成更復(fù)雜的操作。

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

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

（1）Accept方法

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

（2）Bind方法

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

（3）Close方法

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

（4）Connect方法

用于向遠(yuǎn)程主機(jī)發(fā)出連接請(qǐng)求。調(diào)用格式為：Winsock對(duì)象. Connect﹝遠(yuǎn)程主機(jī)IP，遠(yuǎn)程端口﹞

（5）Listen方法

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

（6）GetData和PeerData方法

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

（7）SendData方法

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

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

3 Winsock控件的主要事件

（1）ConnectRequest事件

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

（2）SendProgress事件

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

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

（3）SendComplete事件

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

（4）DataArrival事件

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

（5）Error事件

發(fā)生錯(cuò)誤時(shí)出現(xiàn)。當(dāng)在工作中發(fā)生任何錯(cuò)誤都會(huì)觸發(fā)這個(gè)事件。

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

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

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

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

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

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

編寫代碼：

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

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

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

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

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

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

【參考文獻(xiàn)】

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

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

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