[工學]基于傳輸層的網(wǎng)絡(luò)編程-文庫吧資料
2024-10-22 18:28本頁面
【正文】 k事件，源代碼如下： Private Sub cmdSend_Click() End Sub 基于 TCP協(xié)議的編程 1．服務(wù)器端程序設(shè)計 （ 4）表單卸載時要關(guān)閉 winsock控件： Private Sub Form_Unload(Cancel As Integer) End Sub （ 5） Winsock控件的 close事件，源代碼如下： Private Sub sockServer_Close() End Sub 基于 TCP協(xié)議的編程 1．服務(wù)器端程序設(shè)計 （ 6）客戶端的連接請求到達時，會觸發(fā) Winsock控件的ConnectionRequest事件，事件處理源代碼如下： Private Sub sockServer_ConnectionRequest(ByVal requestID As Long) //當收到連接請求時， Winsock處于偵聽狀態(tài) // //此時應(yīng)該使用 Close方法關(guān)閉 Winsock，然后使用 Accept方法接受連接請求 // requestID //表示客戶請求連接的 ID號 // End Sub 基于 TCP協(xié)議的編程 1．服務(wù)器端程序設(shè)計 （ 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ù)了。 在 Form表單添加 6個控件： 2個 label，用作提示信息； 2個 text， 1個為接收數(shù)據(jù)， 1個為發(fā)送數(shù)據(jù)； 2個 mand， 1個為發(fā)送數(shù)據(jù)命令cmdSend， 1個為退出運行命令 cmdQuit；還一個重要的 ，命名為 sockServer。 只有雙方的連接建立后 ， 才能進行數(shù)據(jù)的互相傳輸 。 客戶端首先也要在 Winsock控件中 ， 設(shè)置好服務(wù)器端的 IP地址和端口號 ， 還要設(shè)置客戶端本地的端口號 。 基于 TCP協(xié)議的編程 TCP協(xié)議是面向連接的 ， 在服務(wù)器和客戶端必須建立連接后才能傳輸數(shù)據(jù) 。 基于 UDP協(xié)議的編程 ４．聊天程序設(shè)計 將以上兩個程序編譯成 EXE文件，分別安裝到不同的機器上，即可進行兩個計算機之間的通信。 Private Sub Command1_Click() Unload Me End Sub 基于 UDP協(xié)議的編程 3． B計算機 UDP聊天程序設(shè)計 B端的的程序與 A端的幾乎一樣，只是控件的名稱不一樣。另外特意在 Winsock控件 RemoteHost中使用了IP地址。 Form表單的 caption屬性設(shè)為“ UDP A端， 作為程序窗口的標題。 因為一個 UDP應(yīng)用程序既可以作為服務(wù)器也可以作為客戶端，所以兩臺計算機的地位可以看成是“平等”的，這種應(yīng)用程序也稱為點到點程序。 基于 UDP協(xié)議的編程 1． UDP連接方式的通信規(guī)程
教學課件相關(guān)推薦
鄂ICP備17016276號-1