可能的用途
創建客戶端應用程序,它能在信息到達中央服務器之前把用戶的信息收集起來。
創建服務端應用程序,它能作爲來自多個用戶的數據一個集中處理點。
創建“聊天”程序。
協議的選擇
當我們使用WinSock控件時,首先要確定的是使用TCP還是UDP協議。它們之間主要的區別在於連接狀態:
TCP協議控件是一個基於連接的協議,就像電話機一樣,用戶必須在通話之前建立連接;
UDP是一個無連接的協議,兩臺計算機之間的事務處理就像傳紙條一樣:一臺計算機向另一臺計算機發送消息,但是它們之間並沒有一個明確的連接路徑。另外,發送的單個信息量的大小取決於網絡。
通常,你要創建的應用程序的類別就決定了你要選擇的協議。以下是幾個能夠幫助你選擇合適的協議的問題:
當發送或接收數據時,該應用程序需要從服務端或客戶端獲得認證嗎?如果要的話,那麼TCP協議就正好需要在發送或接受數據前建立明確的連接。
要發送的數據量大嗎?(就像圖片、聲音文件之類)一旦建立了連接,TCP協議就會保持連接並保證數據的完整性。但是,這種連接會佔用的更多的處理器資源,成本也會更高一些。
數據是陸續傳輸的,還是一次全部傳完呢?比如,如果你要創建的應用程序在某些任務完成時會告知具體的計算機,那麼選擇UDP協議會更合適一些。UDP協議也更適合於發送小量數據。
協議的配置
配置你的應用程序所用到的協議:在設計階段,單擊工具窗口裏的協議,選擇sckTCPProtocol或sckUDPProtocol。你也可以在代碼裏配置協議,就像下面這樣:
Winsock1.Protocol=sckTCPProtocol
確定你的計算機名
要連接到遠程的計算機,你必須知道它的IP地址或別名。IP地址是一串用句點分隔的3位數字。通常,計算機的別名更容易讓人記住。
按下面的步驟可以找到你的計算機名:
在“任務欄”裏單擊“開始”
在“設置”選項裏單擊“控制面板”;
雙擊“網絡”圖標;
單擊“網絡標識”
在“計算機名”中顯示的就是你的計算機名。
一旦你找到你的計算名,它就可以作爲遠程主機的屬性來用了。
TCP連接入門
當用TCP控件創建應用程序的時候,必須首先明確你的程序是作爲服務端還是客戶端。創建服務端程序就意味着你的程序能夠在指定的端口進行“監聽”,而客戶端則能夠提出請求,服務端能夠接受請求並實現連接。一旦連接建立起來,客戶端和服務端就能夠自由地進行通信。
創建服務端程序
下面是創建一個簡單服務端程序的步驟:
創建一個標準EXE工程;
把默認窗體(Default form)的名字改爲frmServer;
把form的標題(caption)改爲TCP Server;
把Winsock控件拉到窗體中,並命名爲tcpServer;
在窗體中添加2個文本框,分別命名爲txtSendData和txtOutput‘
在窗體中加入下列代碼;
Private Sub Form_Load() ' Set the LocalPort property to an integer. ' Then invoke the Listen method. tcpServer.LocalPort = 1001 tcpServer.Listen frmClient.Show ' Show the client form. End Sub Private Sub tcpServer_ConnectionRequest _ (ByVal requestID As Long) ' Check if the control's State is closed. If not, ' close the connection before accepting the new ' connection. If tcpServer.State <> sckClosed Then _ tcpServer.Close ' Accept the request with the requestID ' parameter. tcpServer.Accept requestID End Sub Private Sub txtSendData_Change() ' The TextBox control named txtSendData ' contains the data to be sent. Whenever the user ' types into the textbox, the string is sent ' using the SendData method. tcpServer.SendData txtSendData.Text End Sub Private Sub tcpServer_DataArrival _ (ByVal bytesTotal As Long) ' Declare a variable for the incoming data. ' Invoke the GetData method and set the Text ' property of a TextBox named txtOutput to ' the data. Dim strData As String tcpServer.GetData strData txtOutput.Text = strData End Sub |
上面就是創建一個簡單的服務端應用程序的過程。然而,要完成整個過程,你還得創建一個客戶端程序。
創建TCP客戶端程序
在工程中添加一個新的窗體(form),並命名爲frmClient;
將窗體的標題(caption)改爲TCP Client;
添加一個Windsock控件到窗體中,命名爲tcpCllient;
添加2個文本框控件到frmClient窗體,分別命名爲txtSend和txtOutput;
添加一個按鈕控件(CommandButton)到窗體,命名爲cmdConnecti;
將按鈕控件標題(caption)改爲Connect;
在窗體中添加下面代碼:
注:確保將遠程主機屬性(RemoteHost property)改爲你的計算機別名。
Private Sub Form_Load() ' The name of the Winsock control is tcpClient. ' Note: to specify a remote host, you can use ' either the IP address (ex: "121.111.1.1") or ' the computer's "friendly" name, as shown here. tcpClient.RemoteHost = "RemoteComputerName" tcpClient.RemotePort = 1001 End Sub Private Sub cmdConnect_Click() ' Invoke the Connect method to initiate a ' connection. tcpClient.Connect End Sub Private Sub txtSendData_Change() tcpClient.SendData txtSend.Text End Sub Private Sub tcpClient_DataArrival _ (ByVal bytesTotal As Long) Dim strData As String tcpClient.GetData strData txtOutput.Text = strData End Sub |
以上代碼就能創建一個簡單的客/服應用程序。要試着讓兩者建立連接,可以運行工程,單擊Connect。在任意一個txtSendData文本框中輸入文本,同樣的文本信息就會出現在另一個窗體的txtOutput文本框中出現。
接受多個連接請求
上面介紹的服務端程序智能接受一個連接請求。但是,通過創建一組控件,並使用同樣的控件來接受多個連接請求也是可能的。在這種情況下,你不需要關閉連接,只要創建新的控件實例(通過配置它的索引屬性),調用新的實例中的接受方法。
下面的代碼中,假定在一個叫sckServer的窗體中有一個Winsock控件,它的索引屬性設置爲0。這樣這個控件就是控件數組的一部分。在聲明段中,生命一個模塊級變量intMax。在窗體的載入事件中,intMax被設置爲0,數組中第一個控件的本地端口屬性被設置爲1001。
監聽方法在控件中被調用,它被作爲“監聽控件”。每個連接請求到來時,代碼會測試看它的索引(Index)是否爲0(監聽控件的值),如果是0,監聽控件中intMax值增1,並用這個值創建新的控件實例。新的控件實例被用來接受連接請求。
Private intMax As Long
Private Sub Form_Load()
intMax = 0
sckServer(0).LocalPort = 1001
sckServer(0).Listen
End Sub
Private Sub sckServer_ConnectionRequest _
(Index As Integer, ByVal requestID As Long)
If Index = 0 Then
intMax = intMax + 1
Load sckServer(intMax)
sckServer(intMax).LocalPort = 0
sckServer(intMax).Accept requestID
Load txtData(intMax)
End If
End Sub
UDP連接入門
創建一個UDP應用程序比創建TCP程序更簡單,因爲UDP協議不需要一個確定的連接。在上面的TCP應用程序中,其中一個Winsock控件必須明確的被設置爲“監聽”,而另一個必須用連接方法發起連接。
相反,UDP協議不需要明確的連接。要在2個控件之間傳送數據,(連接的雙方)必須完成三個步驟:
確定遠程主機屬性爲對方的計算機名;
確定遠程主機屬性爲第二個控件的本地端口屬性;
調用約定方法指定要被使用的本地端口。(下面將詳細討論該方法)
創建一個的UDP連接端
創建一個標準EXE工程;
將默認窗體命名爲frmPeerA;
在窗體中添加一個Winsock控件,命名爲udpPeerA;
在屬性(Properties)頁,單擊協議(Protocol),改爲UDPProtocol;
添加2個文本框控件窗體中,分別命名爲txtSend和txtOutput;
在窗體中添加下面代碼:
Private Sub Form_Load() ' The control's name is udpPeerA With udpPeerA ' IMPORTANT: be sure to change the RemoteHost ' value to the name of your computer. .RemoteHost= "PeerB" .RemotePort = 1001 ' Port to connect to. .Bind 1002 ' Bind to the local port. End With frmPeerB.Show ' Show the second form. End Sub Private Sub txtSend_Change() ' Send text as soon as it's typed. udpPeerA.SendData txtSend.Text End Sub Private Sub udpPeerA_DataArrival _ (ByVal bytesTotal As Long) Dim strData As String udpPeerA.GetData strData txtOutput.Text = strData End Sub |
創建第二個UDP連接端
添加標準窗體到工程中;
將窗體名改爲frmPeerB;
將窗體標題改爲Peer B;
在窗體中添加一個Windsock控件並命名爲udpPeerB;
在屬性頁中單擊Protocol,改爲UDPProtocol;
添加2個文本框到窗體中,分別命名爲txtSend和txtOutput;
在窗體中添加下面代碼:
Private Sub Form_Load() ' The control's name is udpPeerB. With udpPeerB ' IMPORTANT: be sure to change the RemoteHost ' value to the name of your computer. .RemoteHost= "PeerA" .RemotePort = 1002 ' Port to connect to. .Bind 1001 ' Bind to the local port. End With End Sub Private Sub txtSend_Change() ' Send text as soon as it's typed. udpPeerB.SendData txtSend.Text End Sub Private Sub udpPeerB_DataArrival _ (ByVal bytesTotal As Long) Dim strData As String udpPeerB.GetData strData txtOutput.Text = strData End Sub |
關於約定方法
上面代碼中所涉及的,在創建UDP應用程序時必須調用約定方法。這個約定的方法保留了控件用到的本地端口。例如,當你綁定控件到端口1001時,其他的應用程序都不能用該端口監聽。當你希望阻止其他的應用程序使用某端口的時候,這個就很有用。
這個約定方法也引起了爭議。如果機器裏有多個網絡適配器,本地IP允許你指定用哪個適配器。如果你忽略了這個爭議性問題,控件就會使用計算機控制面板設置中,在網絡控制面板對話框裏列出的第一個網絡適配器。
在使用UDP協議時,你可以自由的切換遠程主機和遠程端口屬性,同時保留本地端口範圍。但是在使用UDP協議時,你必須在改變遠程主機和遠程端口屬性時關閉連接。