|
現(xiàn)在大多數(shù)語言都支持客戶－服務(wù)器模式編程，其中VB給我們提供了很好的客戶－服務(wù)器編程方式。下面我們用VB來實(shí)現(xiàn)TCP／IP網(wǎng)絡(luò)編程。 TCP／IP協(xié)議是Internet最重要的協(xié)議。VB提供了WinSock控件,用于在TCP／IP的基礎(chǔ)上進(jìn)行網(wǎng)絡(luò)通信。當(dāng)兩個(gè)應(yīng)用程序使用Socket進(jìn)行網(wǎng)絡(luò)通信時(shí)，其中一個(gè)必須創(chuàng)建Socket服務(wù)器偵聽，而另一個(gè)必須創(chuàng)建Socket客戶去連接服務(wù)器。這樣兩個(gè)程序就可以進(jìn)行通信了。 1．創(chuàng)建服務(wù)器，首先創(chuàng)建一個(gè)服務(wù)端口號(hào)。并開始偵聽是否有客戶請(qǐng)求連接。 建立一窗體，并向其增加一個(gè)Winsock控件(可在工程菜單中的部件項(xiàng)來添加此控件) 添加兩文本框Text1,Text2,和一按鈕Command1 Private Sub Form_Load() SockServer.LocalPort = 2000 ′服務(wù)器端口號(hào),最好大于1000 SockServer.Listen ′開始偵聽 End Sub Private Sub Form_Unload(Cancel As Integer) SockServer.Close End Sub Private Sub SockServer_Close() SockServer.Close End Sub Private Sub SockServer_ConnectionRequest(ByVal requestID As Long) SockServer.Close SockServer.Accept requestID ′表示客戶請(qǐng)求連接的ID號(hào) End Sub ′當(dāng)客戶向服務(wù)器發(fā)送數(shù)據(jù)到達(dá)后,產(chǎn)生DataArrival事件,在事件中接收數(shù)據(jù),GetData方法接收數(shù)據(jù)。 Private Sub SockServer_Data Arrival(ByVal bytesTotal As Long) Dim s As String SockServer.GetData s Text1.Text = s End Sub 當(dāng)我需要向客戶發(fā)送數(shù)據(jù)時(shí)，只需調(diào)用SendData方法。 Private Sub Command1_Click() SockServer .SendData Text2.Text End Sub 2．創(chuàng)建客戶。要?jiǎng)?chuàng)建客戶連接服務(wù)器，首先設(shè)置服務(wù)器主機(jī)名，如IP地址、域名或計(jì)算機(jī)名，然后設(shè)置服務(wù)器端口，最后連接服務(wù)器。 建立一窗體，并向其增加一個(gè)Winsock控件(可在工程菜單中的部件項(xiàng)來添加此控件)，取名為：SockC1。添加兩文本框Text1,Text2,和一按鈕Command1 Private Sub Form_Load() SockCl.RemoteHost =′127.0.0.1″ ′表示服務(wù)器主機(jī)名 SockCl.RemotePort = 2000 ′表示服務(wù)器端口名 SockCl.Connect ′連接到服務(wù)器 End Sub Private Sub Form_Unload(Cancel As Integer) SockCl.Close End Sub Private Sub SockCl_Close() SockCl.Close End Sub Private Sub SockCl_DataArrival(ByVal bytesTotal As Long) Dim s As String SockCl.GetData s ′接收數(shù)據(jù)到文本框中 Text1.Text = s End Sub Private Sub Command1_Click() SockCl.SendData Text2.Text ′向服務(wù)器發(fā)送數(shù)據(jù) End Sub 3．進(jìn)行通信。把這兩個(gè)窗體分別編譯成兩個(gè)EXE文件，服務(wù)器Server.exe和客戶Client.exe程序，并把它們分別安裝在服務(wù)器端和客戶端，這樣就可以實(shí)現(xiàn)兩者通信了。 (河北 郝一霜) |
|
|
