計算機網(wǎng)絡課程設計(tcp協(xié)議聊天程序(編輯修改稿)
2025-12-13 20:34 本頁面
【文章內容簡介】 機上運行，輸入服務器主機的 IP，連接到服務器，客戶端與客戶端之間即可實現(xiàn)簡易的聊天功能，在服務器可以顯示在線人數(shù)以及客戶端的 IP地址。 4 基于 TCP 協(xié)議聊天軟件的制作過程 一 、 客戶端工作原理 在運行服務器之后，運行客戶端?？蛻舳耸紫认蚍掌魈岢鼋⑦B接請求，然后建立一個套接字描述符，通過該描述符調用數(shù)據(jù)傳輸函數(shù)即可與服務端進行數(shù)據(jù)的收發(fā)。用戶登錄成功后，向服務器發(fā)送登陸消息，并更新本地在線用戶列表，然后通過服務器實現(xiàn)與其他客戶聊天；當客戶退出，向服務器發(fā)送下線消息。客戶端流程 如 圖 a。 二 、 服務器工作原理 首先運行服務器，服務器偵聽端口消息，等待客戶端向其建立連接的申請，一旦接收到客戶端的連接請求，服務器將返回一個新的套接字描述符，通過該描述符調用數(shù)據(jù)傳輸函數(shù)即可與客戶端進行數(shù)據(jù)的收發(fā)。服務器若接收的是登陸信息，向該用戶發(fā)送在線用戶列表，并更新服務器的在線用戶列表；若收到的是發(fā)圖 a 圖 b 5 送信息，服務器解析信息， 然后通過廣播消息，向其所有線用戶列表發(fā)送消息。服務器端流程圖如圖 b。 三 、 設計客戶端 客戶端的程序編寫： “客戶”。 窗體命名為“客戶”。 “客戶端。 WinSock 控件，默認其命名為 Winsock1。 richtextbox 控件。默認其命名為 Text Text TextText4，并將其內容清空。 CommandButton 控件。其命名默認為 Command CommandCommand Command4，并將它們的 Caption 屬性分別修改為“連接”、“發(fā)送”、“斷開”、“ 清空 ”。 Label 控 件，其命名默認為 Label Label Label Label4，并將它們的 Caption 屬性修改為“ 編輯窗口 ”、“聊天記錄”、“系統(tǒng)消息”、“服務器 IP”。 StatusBar 控件，其命名默認為 StatusBar1 其屬性設置如下圖所示： 6 ，為窗體添加菜單，設置如下 圖所示： 10. 在窗體中添加如下的代碼： Option Explicit Private Sub Command1_Click() 39。連接服務器程序段 = Trim() = False Do DoEvents Loop Until = sckConnected Or = sckError If = sckError Then = True = + 與服務器連接失敗 + Chr$(13) + Chr$(10) Else = + 與服務器連接成功 + Chr$(13) + Chr$(10) = True = True = False (1).Text = 連接到 amp。 amp。 End If End Sub Private Sub Command2_Click() 39。發(fā)送消息程序段 If = Then MsgBox 不能發(fā)送空消息 Else 7 = + 我說的話 : + + Chr$(13) + Chr$(10) = End If End Sub Private Sub Command3_Click() 39。斷開與服務器連接程序段 = True = False = False = 已與服務器斷開 + Chr$(13) + Chr$(10) + = True (1).Text = 無法連接 ... End Sub Private Sub Command4_Click() 39。清空聊天記錄程序段 =
教學課件相關推薦
鄂ICP備17016276號-1