Winsock控件使用手冊(cè)

1、Winsock控件使用手冊(cè)本文使用Word2000排版，如你閱讀時(shí)版面較凌亂，請(qǐng)使用Word2000閱讀。Winsock控件對(duì)用戶是不可視的，可以很容易地訪問(wèn)TCP和UDP網(wǎng)絡(luò)服務(wù)。TOM注：制作網(wǎng)絡(luò)通訊軟件，應(yīng)該沒(méi)有比VB+WINSOCK控件更簡(jiǎn)單的方案了吧？其可以被Microsoft Access, Visual Basic ,Visual C+或Visual FoxPro開發(fā)人員使用。用Winsock控件編寫客戶和服務(wù)器應(yīng)用程序，不需要了解TCP或調(diào)用底層Winsock API的具體細(xì)節(jié)。通過(guò)設(shè)置Winsock控件的屬性和調(diào)用該控件的方法，可以很容易地連接到遠(yuǎn)程計(jì)算機(jī)并進(jìn)行雙向的數(shù)據(jù)交換

2、。TCP基本知識(shí)TCP（Transfer Control Protocol）允許你創(chuàng)建并維護(hù)一個(gè)與遠(yuǎn)程計(jì)算機(jī)的連接，使用該連接，兩臺(tái)計(jì)算機(jī)之間就可以交換數(shù)據(jù)了。如果你在創(chuàng)建一個(gè)客戶應(yīng)用程序，你必須知道服務(wù)器計(jì)算機(jī)的名字T注：建議用IP地址或IP地址（RemoteHost屬性），以及要監(jiān)聽的端口號(hào)（RemotePort屬性），然后調(diào)用Connect方法。如果你在創(chuàng)建一個(gè)服務(wù)器應(yīng)用程序，設(shè)置要監(jiān)聽的端口號(hào)（LocalPort屬性），調(diào)用Listen方法。當(dāng)客戶建立連接請(qǐng)求時(shí)，產(chǎn)生ConnectionRequest事件。要完成該連接，在ConnectionRequest事件中調(diào)用Accept方法。一

3、旦建立了連接，兩臺(tái)計(jì)算機(jī)之間就可以發(fā)送和接受數(shù)據(jù)了。要發(fā)送數(shù)據(jù)，調(diào)用SendData方法。當(dāng)接受數(shù)據(jù)時(shí)，產(chǎn)生DataArrival事件。在DataArrival事件中調(diào)用GetData方法來(lái)檢取數(shù)據(jù)。UDP基本知識(shí)UDP（User Datagram Protocol）是無(wú)連接的協(xié)議。與TCP操作不同，計(jì)算機(jī)并不建立一個(gè)連接。并且，UDP應(yīng)用程序可以是客戶也可以是服務(wù)器。要傳輸數(shù)據(jù)，首先設(shè)置客戶計(jì)算機(jī)的LocalPort屬性。服務(wù)器計(jì)算機(jī)T注：實(shí)際含義是指發(fā)送方只需要將RemoteHost屬性設(shè)置為客戶計(jì)算機(jī)T注：實(shí)際上的意思是指接收方的IP地址，將RemotePort屬性設(shè)置為客戶計(jì)算機(jī)上的L

4、ocalPort屬性值，然后調(diào)用SendData方法開始發(fā)送數(shù)據(jù)?？蛻粲?jì)算機(jī)在DataArrival事件中使用GetData方法檢取數(shù)據(jù)。Winsock控件的屬性BytesReceived屬性，LocalHostName屬性，LocalIP屬性，LocalPort屬性，RemoteHost屬性（ActiveX控件），SocketHandle屬性，State屬性（Winsock控件），Protocol屬性（Winsock控件），Name屬性，Parent屬性，RemoteHost屬性（ActiveX控件），RemotePort屬性（ActiveX控件），Index屬性（ActiveX控件），Ta

5、g屬性（ActiveX控件），Object屬性（ActiveX控件）。Winsock控件的方法Accept方法，Bind方法，Close方法（Winsock控件），Listen方法，PeerData方法，SendData方法，GetData方法（WinSock控件），GetData方法（ActiveX控件）。Winsock控件的事件Close事件，ConnectionRequest事件，DataArrival事件，SendComplete事件，SendProgress事件T注：該事件表示開始發(fā)送了，發(fā)送中，好像一般用不到，所以沒(méi)有說(shuō)明Error事件，Connect事件（Winsock控件），C

6、onnect事件。請(qǐng)參閱可捕獲的Internet Transfer 控件錯(cuò)誤，使用Winsock控件。以下的內(nèi)容以字母為序排列Accept方法只對(duì)于TCP服務(wù)器應(yīng)用程序適用。該方法用于在處理ConnectionRequest事件時(shí)接受連入請(qǐng)求。應(yīng)用于Winsock控件。語(yǔ)法object.Accept requestedobject是Winsock控件的對(duì)象表達(dá)式。數(shù)據(jù)類型Long返回值Void說(shuō)明在ConnectionRequest事件中使用Accept方法。ConnectionRequest事件相應(yīng)的參數(shù)RequestID也應(yīng)傳遞給Accept方法。下面是一個(gè)例子：Private Sub W

7、insock1_ConnectionRequest _(ByVal requestID As Long)' Close the connection if it is currently open' by testing the State property.If Winsock1.State <> sckClosed Then Winsock1.Close' Pass the value of the requestID parameter to the' Accept method.Winsock1.Accept requestedEnd Sub

8、T注：該例寫得不是太好，應(yīng)在新的控件實(shí)例中使用該方法，即動(dòng)態(tài)地加載（LOAD）一個(gè)新的WINSOCK控件，用新控件而不是處于監(jiān)聽狀態(tài)的控件去連接請(qǐng)參閱Connect方法，ConntectionRequest事件。下面示例的例子列出了使用TCP連接Winsock控件必須的代碼，使用RequestID標(biāo)識(shí)請(qǐng)求，該參數(shù)傳遞給接受請(qǐng)求的Accept方法。Private Sub WinsockTCP_ConnectionRequest _(requestID As Long)If Winsock1.State <> sckClosed ThenWinsock1.CloseWinsock.Ac

9、cept requestedEnd SubT注：這就對(duì)了！請(qǐng)注意，這次換了個(gè)新的SOCK來(lái)進(jìn)行連接，但好像又少了個(gè)ENDIF！唉，真是誤人子弟：）Bind方法指定TCP連接中使用的LocalPort和LocalIP。T注：該用法比較少見，更多的是用在UDP通訊中，指定服務(wù)器駐守的端口如果你有多個(gè)協(xié)議適配器，使用該方法。應(yīng)用于Winsock控件。語(yǔ)法object.Bind LocalPort, LocalIPBind方法的語(yǔ)法有如下幾個(gè)部分：部分            

10、0;      描述object      一個(gè)Winsock控件的對(duì)象表達(dá)式localPort       建立連接所使用的端口號(hào)localIP     建立連接所使用的本地IP地址說(shuō)明在調(diào)用Listen方法之前你必須調(diào)用Bind方法T注：未必：）在UDP通訊的服務(wù)器端，倒是要先調(diào)用BIND方法！請(qǐng)參閱RemoteHost屬性（ActiveX控件），RemotePort屬性（ActiveX控件）

11、。BytesReceived屬性返回接受數(shù)據(jù)的數(shù)量（當(dāng)前接受緩沖區(qū)中的數(shù)據(jù)）。使用GetData方法檢取數(shù)據(jù)。在設(shè)計(jì)時(shí)不可用， 在運(yùn)行時(shí)是只讀的。應(yīng)用于Winsock控件。語(yǔ)法object.BytesReceivedobject是Winsock控件的對(duì)象表達(dá)式。返回值Long請(qǐng)參閱DataArrival事件。Close事件當(dāng)遠(yuǎn)程計(jì)算機(jī)關(guān)閉連接T注：只有TCP是“連接”的，UDP是無(wú)“連接”的，或者反過(guò)來(lái)說(shuō)，本手冊(cè)說(shuō)“連接”時(shí)都是指的TCP時(shí)產(chǎn)生該事件。應(yīng)用程序應(yīng)使用Close方法正確地關(guān)閉一個(gè)TCP連接。應(yīng)用于Winsock控件。語(yǔ)法object_Close()object是Winsock控件

12、的對(duì)象表達(dá)式。參數(shù)     沒(méi)有請(qǐng)參閱Close方法（Winsock控件）。Close方法關(guān)閉客戶或服務(wù)器應(yīng)用程序的TCP連接或監(jiān)聽插槽。應(yīng)用于Winsock控件。語(yǔ)法object.Closeobject是一個(gè)Winsock控件的對(duì)象表達(dá)式。參數(shù)        沒(méi)有返回值      Void請(qǐng)參閱Close事件。Connect 事件 當(dāng)一個(gè) Connect 操作完成時(shí)發(fā)生。應(yīng)用于Winsock控件。語(yǔ)法object.Connect()o

13、bject 置換元代表一個(gè)對(duì)象表達(dá)式，其值是一個(gè) Winsock 控件。說(shuō)明使用 Connect 事件確認(rèn)已經(jīng)成功建立了T注：該事件很重要，建議使用該事件而不是別的方法（如STATE的值）來(lái)判斷一個(gè)連接是否已經(jīng)成功Connect方法返回與遠(yuǎn)程計(jì)算機(jī)的連接T注：就是去連接！應(yīng)用于Winsock控件。語(yǔ)法object.Connect remoteHost, remotePortConnect方法的語(yǔ)法有如下幾個(gè)部分：部分               

14、       描述object      一個(gè)Winsock控件的對(duì)象表達(dá)式remoteHos     要連接的遠(yuǎn)程計(jì)算機(jī)的名字remotePort   要連接的遠(yuǎn)程計(jì)算機(jī)的端口號(hào)返回值         沒(méi)有說(shuō)明當(dāng)試圖建立一個(gè)TCP連接時(shí)，你必須調(diào)用Connect方法。請(qǐng)參閱Accept方法，ConnectionRequest事件，RemoteHo

15、st屬性（ActiveX控件），RemotePort屬性（ActiveX控件）。ConnectionRequest事件當(dāng)遠(yuǎn)程計(jì)算機(jī)請(qǐng)求一個(gè)連接時(shí)產(chǎn)生該事件。只對(duì)于TCP服務(wù)器應(yīng)用程序適用。當(dāng)有一個(gè)連入請(qǐng)求時(shí)就觸發(fā)該事件。該事件觸發(fā)之后，RemoteHostIP和RemotePort屬性中保存了客戶機(jī)的信息。應(yīng)用于Winsock控件。語(yǔ)法object_ConnectionRequest ( requestID As Long)ConnectionRequest事件的語(yǔ)法有如下幾個(gè)部分：部分         

16、            描述object      一個(gè)Winsock控件的對(duì)象表達(dá)式requested           連入請(qǐng)求標(biāo)識(shí)符。該參數(shù)應(yīng)傳遞給第二個(gè)控件實(shí)例的Accept方法，說(shuō)明服務(wù)器可以確定是否接受一個(gè)連入請(qǐng)求。如果沒(méi)有接受連入請(qǐng)求，在客戶將得到Close事件。適用Accept方法（在新的控件實(shí)例中）接受連入請(qǐng)求。請(qǐng)參閱

17、Accept方法，Connect方法。DataArrival事件當(dāng)新數(shù)據(jù)到達(dá)時(shí)產(chǎn)生該事件。應(yīng)用于Winsock控件。語(yǔ)法object_DataArrival (bytesTotal As Long)DataArrival事件的語(yǔ)法有如下幾個(gè)部分：部分                    描述object         一個(gè)W

18、insock控件的對(duì)象表達(dá)式bytesTotal      長(zhǎng)整數(shù)：可以檢取數(shù)據(jù)的總數(shù)說(shuō)明如果你不在一次GetData調(diào)用中檢取所有的數(shù)據(jù)則不產(chǎn)生該事件。只有當(dāng)新數(shù)據(jù)到來(lái)時(shí)才觸發(fā)該事件。可以使用BytesReceived屬性檢查可檢取數(shù)據(jù)的數(shù)量。請(qǐng)參閱BytesReceived屬性，SendData方法，SendComplete事件，SendProgress事件。下面示例的例子在Winsock控件的DataArrival事件中使用了GetData方法。當(dāng)產(chǎn)生該事件時(shí)，代碼調(diào)用GetData方法檢取數(shù)據(jù)并將其保存在一個(gè)字符串中。然后將數(shù)據(jù)寫入一個(gè)

19、TextBox控件。Private Sub Winsock1_DataArrival _(ByVal bytesTotal As Long)Dim strData As StringWinsock1.GetData strData, vbStringText1.Text = Text1.Text & strDataEnd SubError事件后臺(tái)進(jìn)程發(fā)生錯(cuò)誤時(shí)產(chǎn)生該事件（如連接失敗，后臺(tái)發(fā)送或檢取數(shù)據(jù)失敗等）。應(yīng)用于Winsock控件。語(yǔ)法object_Error(number As Integer, Description As String, Scode As Long,Sourc

20、e As String, HelpFile as String, HelpContext As Long, CancelDisplay AsBoolean).Error事件的語(yǔ)法有如下幾個(gè)部分：部分                     描述object         一個(gè)Winsock控件的對(duì)象表達(dá)式number

21、        一個(gè)整數(shù)，指定錯(cuò)誤碼請(qǐng)參閱“設(shè)置”中的常量description   包含錯(cuò)誤消息的字符串scode長(zhǎng)SCODEsource   描述錯(cuò)誤源的字符串HelpFile      包含幫助文件名的字符串HelpContextHelp         文件環(huán)境CancelDisplay   指明是否取消該顯示動(dòng)作缺省是False

22、，顯示缺省的錯(cuò)誤消息。如果你不想使用缺省的錯(cuò)誤消息，可以將其設(shè)置為True設(shè)置number值的設(shè)置如下：常量                  值     描 述SckOutOfMemory            7      內(nèi)

23、存不足SckInvalidPropertyValue   380    屬性值無(wú)效SckGetNotSupported        394    不能讀取屬性值SckSetNotSupported        383    屬性是只讀的SckBadState       &#

24、160;       40006 連接事務(wù)或請(qǐng)求的協(xié)議或連接狀態(tài)不正確SckInvalidArg             40014   傳遞給函數(shù)的參數(shù)格式不正確或范圍不對(duì)SckSuccess                40017 &

25、#160; 成功SckUnsupported            40018   不支持的變量類型SckInvalidOp              40020   對(duì)于當(dāng)前的狀態(tài)，該操作不正確SckOutOfRange        &

26、#160;    40021   參數(shù)超出了范圍SckWrongProtocol          40026   連接事務(wù)或請(qǐng)求的協(xié)議不正確SckOpCanceled             1004    操作被取消SckInvalidArgument   

27、;     10014   請(qǐng)求的地址是廣播地址，但沒(méi)有設(shè)置標(biāo)記SckWouldBlock            10035    插槽是非阻塞的，指定的操作將被阻塞SckInProgress            10036    過(guò)程中有阻塞的Winsoc

28、k操作SckAlreadyComplete       10037    操作完成。過(guò)程中沒(méi)有阻塞的Winsock操作SckNonRecoverableError   11003    不可恢復(fù)性錯(cuò)誤SckNoData1               1004     名字有效，所

29、請(qǐng)求的類型沒(méi)有數(shù)據(jù)記錄GetData方法檢取當(dāng)前的數(shù)據(jù)塊，將其保存在一個(gè)Variant類型的變量中T注：實(shí)際上只有字符串/字節(jié)組兩種類型，參見講座的第四講。應(yīng)用于Winsock控件。返回值Void語(yǔ)法object.GetData data ,type ,maxLenGetData方法的語(yǔ)法有如下幾個(gè)部分：部分                描述object       一個(gè)Winsock

30、控件的對(duì)象表達(dá)式data        保存取回來(lái)的數(shù)據(jù)的地方/變量。如果沒(méi)有足夠的空間保存數(shù)據(jù)，則data設(shè)置為Emptytype，可選參數(shù)。要檢取的數(shù)據(jù)類型，如“設(shè)置”中所示maxLen，可選參數(shù)。在檢取字節(jié)矩陣或字符串時(shí)指定檢取長(zhǎng)度。如果沒(méi)有指定該參數(shù)，則檢取字節(jié)矩陣或字符串中的所有數(shù)據(jù)。如果數(shù)據(jù)類型不是字節(jié)矩陣或字符串，則忽略該參數(shù)設(shè)置type值的設(shè)置如下：描述             &

31、#160;     常量Byte                vbByteInteger             vbIntegerLong            &#

32、160;   vbLongSingle              vbSingleDouble              vbDoubleCurrency            vbCurrencyDate&#

33、160;               vbDateBoolean             vbBooleanSCODE               vbErrorString  &

34、#160;           vbStringByte矩陣           vbArray + vbByte說(shuō)明通常在DataArrival事件中使用GetData方法，其包含了一個(gè)totalBytes參數(shù)。如果你指定的maxLen比totalBytes參數(shù)小，則將得到一個(gè)10040警告，表明其余數(shù)據(jù)將丟失T注：非萬(wàn)不得已，不要用該參數(shù)，應(yīng)該一次性地將數(shù)據(jù)全部取回，再慢慢處理Listen方法

35、創(chuàng)建一個(gè)插槽，并設(shè)置為監(jiān)聽模式。該方法只適用于TCP連接。應(yīng)用于Winsock控件。語(yǔ)法object.Listenobject是一個(gè)Winsock控件的對(duì)象表達(dá)式。參數(shù)        沒(méi)有返回值      Void說(shuō)明當(dāng)有連入請(qǐng)求時(shí)產(chǎn)生ConnectionRequest事件。在處理ConnectionRequest事件時(shí)，應(yīng)用程序應(yīng)使用Accept（在新的控件實(shí)例）方法接受連接。請(qǐng)參閱Connect方法，Close方法（Winsock控件）。LocalHostName屬性返回

36、本地計(jì)算機(jī)的名字。只讀，在設(shè)計(jì)時(shí)不可用。應(yīng)用于Winsock控件。語(yǔ)法object.LocalHost Nameobject是一個(gè)Winsock控件的對(duì)象表達(dá)式。返回值      StringLocalIP屬性返回本地計(jì)算機(jī)的IP地址。只讀屬性，在設(shè)計(jì)時(shí)不可用。應(yīng)用于Winsock控件。語(yǔ)法object.LocalIPobject是Winsock控件的對(duì)象表達(dá)式。數(shù)據(jù)類型StringLocalPort屬性返回或設(shè)置本地使用的端口?？勺x寫，在設(shè)計(jì)時(shí)可用。對(duì)于客戶，這將指定發(fā)送數(shù)據(jù)的端口。如果應(yīng)用程序不需要特定的端口，指定為0。在這種情況下，控件將

37、隨機(jī)選擇一個(gè)端口。連接建立后，該本地端口就用于TCP連接。對(duì)于服務(wù)器，這是監(jiān)聽的本地端口。如果指定為0，則隨機(jī)選用一個(gè)端口。在調(diào)用了Listen方法之后，屬性包含了實(shí)際選中的端口。應(yīng)用于Winsock控件。語(yǔ)法object.LocalPortlongobject是一個(gè)Winsock控件的對(duì)象表達(dá)式。數(shù)據(jù)類型       Long T注：講座中好像搞錯(cuò)了，實(shí)際上長(zhǎng)短均可：）說(shuō)明通常使用端口0在兩臺(tái)計(jì)算機(jī)之間動(dòng)態(tài)建立連接。例如，希望服務(wù)器回調(diào)的客戶可以使用端口0隨機(jī)選中一個(gè)端口號(hào)，該端口號(hào)將傳遞給遠(yuǎn)程的服務(wù)器。PeekData方法與Get

38、Data方法類似，只是其不從輸入隊(duì)列中刪除數(shù)據(jù)。應(yīng)用于Winsock控件。語(yǔ)法object.PeekData data ,type ,maxLenPeekData方法的語(yǔ)法有如下幾個(gè)部分：部分                  描述object       一個(gè)Winsock控件的對(duì)象表達(dá)式data      

39、;   保存取回的數(shù)據(jù)的地方/變量如果沒(méi)有足夠的空間保存數(shù)據(jù)，則data設(shè)置為Empty。type可選參數(shù)。要檢取的數(shù)據(jù)類型，如“設(shè)置”中所示。缺省是vbArray+ vbBytemaxLen可選參數(shù)。在檢取字節(jié)矩陣或字符串時(shí)指定檢取長(zhǎng)度。如果沒(méi)有指定該參數(shù)，則檢取字節(jié)矩陣或字符串中的所有數(shù)據(jù)。如果數(shù)據(jù)類型不是字節(jié)矩陣或字符串，則忽略該參數(shù)設(shè)置type值的設(shè)置如下：描述                 &#

40、160;   常量Byte                   vbByteInteger                vbIntegerLong        

41、60;          vbLongSingle                 vbSingleDouble                 vbDoubleCurrency 

42、              vbCurrencyDate                   vbDateBoolean              &

43、#160; vbBooleanSCODE                  vbErrorString                 vbStringByte矩陣         

44、;     vbArray + vbByte返回值          Void說(shuō)明如果類型指定為vbString，則數(shù)據(jù)返回給用戶之前轉(zhuǎn)換為UUICODE。請(qǐng)參閱GetData方法（Winsock控件）。Protocol屬性返回或設(shè)置Winsock控件使用的協(xié)議，TCP或UDP。應(yīng)用于Winsock控件。語(yǔ)法object.Protocol =protocolobject是Winsock控件的對(duì)象表達(dá)式。設(shè)置protocol值的設(shè)置如下：常量  &

45、#160;               值          描述sckTCPProtocol        0     缺省。使用TCP協(xié)議sckUDPProtocol        1&

46、#160;    使用UDP協(xié)議返回值       Void說(shuō)明在重新設(shè)置該屬性之前必須關(guān)閉控件（使用Close方法）。RemoteHostIP屬性返回遠(yuǎn)程計(jì)算機(jī)的IP地址。對(duì)于客戶應(yīng)用程序，使用Connect方法建立連接之后，該屬性包含了遠(yuǎn)程計(jì)算機(jī)IP字符串。對(duì)于服務(wù)器應(yīng)用程序，進(jìn)來(lái)一個(gè)連接請(qǐng)求時(shí)，該屬性包含了初始化請(qǐng)求的遠(yuǎn)程計(jì)算機(jī)的IP字符串。在使用UDP協(xié)議時(shí)，在DataArrival事件產(chǎn)生后，該屬性包含了發(fā)送UDP數(shù)據(jù)的遠(yuǎn)程計(jì)算機(jī)的IP地址。應(yīng)用于Winsock控件。語(yǔ)法object.Remot

47、eHostIPobject是Winsock控件的對(duì)象表達(dá)式。數(shù)據(jù)類型StringSendComplete事件當(dāng)發(fā)送操作完成時(shí)產(chǎn)生該事件。應(yīng)用于Winsock控件。語(yǔ)法object_SendCompleteobject是一個(gè)Winsock控件的對(duì)象表達(dá)式。參數(shù)         沒(méi)有請(qǐng)參閱DataArrival事件，SendProgress事件。SendData方法給遠(yuǎn)程計(jì)算機(jī)發(fā)送數(shù)據(jù)。返回值Void應(yīng)用于Winsock控件。語(yǔ)法object.SendData dataSendData方法的語(yǔ)法有如下幾個(gè)部分：部分&#

48、160;                描     述object          一個(gè)Winsock控件的對(duì)象表達(dá)式data            要發(fā)送的數(shù)據(jù)T注：只能發(fā)送字符串/字節(jié)組，對(duì)于二進(jìn)制數(shù)據(jù)，

49、應(yīng)使用字節(jié)矩陣說(shuō)明當(dāng)傳遞UNICODE字符串時(shí)，在發(fā)送之前轉(zhuǎn)換為ANSI字符串。SendProgress事件在發(fā)送數(shù)據(jù)時(shí)產(chǎn)生該事件。應(yīng)用于Winsock控件。語(yǔ)法object_SendProgress (bytesSent As Long, bytesRemaining As Long)SendProgress事件的語(yǔ)法有如下幾個(gè)部分：部分                 描      述object       一個(gè)Winsock控件的對(duì)象表達(dá)式bytesSent   從上次觸發(fā)該事件到