[工學(xué)]基于傳輸層的網(wǎng)絡(luò)編程-資料下載頁
2024-10-16 18:28本頁面
【正文】 （ 7）客戶端的數(shù)據(jù)到達(dá)時(shí)，觸發(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è)計(jì) 相對于服務(wù)器，客戶端的程序代碼要簡單些，只需建立連接就可以傳送數(shù)據(jù)了。本客戶端程序的控件與服務(wù)器端一樣，其相應(yīng)代碼如下。 基于 TCP協(xié)議的編程 2．客戶端程序設(shè)計(jì) （ 1）程序啟動(dòng)時(shí)，裝載表單時(shí)設(shè)置 Winsock控件的相關(guān)屬性，源代碼如下： Private Sub Form_Load() = sckTCPProtocol //設(shè)置 TCP協(xié)議 // = wlgcd3“ //指定服務(wù)器的計(jì)算機(jī)名 // = 5000 //指定服務(wù)器的端口號(hào) // End Sub 基于 TCP協(xié)議的編程 2．客戶端程序設(shè)計(jì) （ 1）程序啟動(dòng)時(shí)，裝載表單時(shí)設(shè)置 Winsock控件的相關(guān)屬性，源代碼如下： Private Sub Form_Load() = sckTCPProtocol //設(shè)置 TCP協(xié)議 // = wlgcd3“ //指定服務(wù)器的計(jì)算機(jī)名 // = 5000 //指定服務(wù)器的端口號(hào) // End Sub 基于 TCP協(xié)議的編程 2．客戶端程序設(shè)計(jì) （ 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è)計(jì) （ 4）卸載表單時(shí)，關(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è)計(jì) （ 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é)議的編程 將以上兩個(gè)程序編譯成 EXE文件 ， 分別安裝到不同的機(jī)器上面即可進(jìn)行兩個(gè)計(jì)算機(jī)之間的通信 。 實(shí)際上在同一臺(tái)計(jì)算機(jī)上也可以進(jìn)行通信 ， 只要是使用不同的端口號(hào)就行 。
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號(hào)-1