[工學(xué)]基于傳輸層的網(wǎng)絡(luò)編程-資料下載頁
2025-10-07 18:28本頁面
【正文】 （ 7）客戶端的數(shù)據(jù)到達時，觸發(fā) winsock的 DataArrival事件，源代碼如下： Private Sub sockServer_DataArrival(ByVal bytesTotal As Long) Dim data As String data //接收來自客戶端的數(shù)據(jù) // = data //將接收的數(shù)據(jù)放入文本框顯示 // End Sub 基于 TCP協(xié)議的編程 2．客戶端程序設(shè)計 相對于服務(wù)器，客戶端的程序代碼要簡單些，只需建立連接就可以傳送數(shù)據(jù)了。本客戶端程序的控件與服務(wù)器端一樣，其相應(yīng)代碼如下。 基于 TCP協(xié)議的編程 2．客戶端程序設(shè)計 （ 1）程序啟動時，裝載表單時設(shè)置 Winsock控件的相關(guān)屬性，源代碼如下： Private Sub Form_Load() = sckTCPProtocol //設(shè)置 TCP協(xié)議 // = wlgcd3“ //指定服務(wù)器的計算機名 // = 5000 //指定服務(wù)器的端口號 // End Sub 基于 TCP協(xié)議的編程 2．客戶端程序設(shè)計 （ 1）程序啟動時，裝載表單時設(shè)置 Winsock控件的相關(guān)屬性，源代碼如下： Private Sub Form_Load() = sckTCPProtocol //設(shè)置 TCP協(xié)議 // = wlgcd3“ //指定服務(wù)器的計算機名 // = 5000 //指定服務(wù)器的端口號 // End Sub 基于 TCP協(xié)議的編程 2．客戶端程序設(shè)計 （ 2）“退出”命令按鈕的 click事件代碼，源代碼如下： Private Sub cmdQuit_Click() Unload Me End Sub （ 3）“發(fā)送”命令按鈕的 click事件，源代碼如下： Private Sub cmdSend_Click() //發(fā)送數(shù)據(jù)到服務(wù)器 // End Sub 基于 TCP協(xié)議的編程 2．客戶端程序設(shè)計 （ 4）卸載表單時，關(guān)閉 Winsock控件，源代碼如下： Private Sub Form_Unload(Cancel As Integer) End Sub （ 5） Winsock關(guān)閉，源代碼如下： Private Sub sockClient_Close() End Sub 基于 TCP協(xié)議的編程 2．客戶端程序設(shè)計 （ 6）從服務(wù)器接收到數(shù)據(jù)的處理程序，源代碼如下： Private Sub sockClient_DataArrival(ByVal bytesTotal As Long) Dim data As String data //從服務(wù)器接收數(shù)據(jù) // = data //將接收的數(shù)據(jù)在文本框中顯示 // End Sub 基于 TCP協(xié)議的編程 將以上兩個程序編譯成 EXE文件 ， 分別安裝到不同的機器上面即可進行兩個計算機之間的通信 。 實際上在同一臺計算機上也可以進行通信 ， 只要是使用不同的端口號就行 。
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號-1