基于tcp局域網(wǎng)聊天程序設(shè)計(jì)-文庫(kù)吧資料
2025-06-28 17:29本頁(yè)面
【正文】 說(shuō)：39。,tmptext)+2)。,tmptext)+2,length(tmptext)pos(39。 usename:=copy(tmptext,pos(39。$$39。 chattext:= copy(tmptext,1,signpos1)。39。amp。字符串時(shí)表示私聊 begin tmptext := copy(tmptext,1,length(tmptext)6)。%amp。%amp。39。%amp。 if pos(39。 usename : string。 signpos : integer。 i,j: integer。 var tmptext: string。procedure (Sender: TObject。 已連接39。 Socket: TCustomWinSocket)。end。連接到 39。 Socket: TCustomWinSocket)。end。監(jiān)聽(tīng)狀態(tài)...39。 Socket: TCustomWinSocket)。當(dāng)客戶端關(guān)閉他們自己獨(dú)立的連接到的server socket的連接時(shí)，可以在OnClientDisconnect事件中得到訊息。 當(dāng)決定關(guān)閉監(jiān)聽(tīng)連接時(shí)，調(diào)用Close方法。 AsyncStyles屬性決定windows handle將接收哪種類型的信息。當(dāng)使用windows socket API調(diào)用時(shí)，可以使用SocketHandle屬性去獲得socket連接使用的handle。你能夠通過(guò)server windows socket object的連接屬性來(lái)訪問(wèn)所有的這些。 使用Socket property去訪問(wèn)server windows socket socket object有一個(gè)屬性是關(guān)于所有活動(dòng)的客戶socket連接這些客戶socket是通過(guò)服務(wù)器socket控件允許連接的。 當(dāng)監(jiān)聽(tīng)服務(wù)socket控件接收到一個(gè)客戶端連接請(qǐng)求時(shí)他們將自動(dòng)接受這個(gè)請(qǐng)求。 如果希望應(yīng)用程序能夠在啟動(dòng)的時(shí)候自動(dòng)監(jiān)聽(tīng)連接，在設(shè)計(jì)的時(shí)候通過(guò)使用Object Inspector設(shè)置Active 屬性為true。如果既指定了Port property,又指定了Service property,服務(wù)socket將使用服務(wù)名。使用Service 如果服務(wù)器應(yīng)用提供一個(gè)標(biāo)準(zhǔn)的服務(wù)，這個(gè)服務(wù)使用一個(gè)習(xí)慣使用的相關(guān)聯(lián)的端口。 在服務(wù)器socket能夠監(jiān)聽(tīng)客戶請(qǐng)求之前，必須指定一個(gè)端口給你的監(jiān)聽(tīng)服務(wù)。 它通常使用一個(gè)服務(wù)器客戶winodws socket Object(TServerClientWinSocket)應(yīng)答在服務(wù)器端每個(gè)活動(dòng)的，連接著得到允許服務(wù)的客戶socket。也可以使用服務(wù)器socket控件去監(jiān)聽(tīng)和允許客戶連接請(qǐng)求。 添加一個(gè)服務(wù)端socket控件（ServerSocket)到form中使之成為一個(gè)TCP/IP服務(wù)器。 服務(wù)器端設(shè)計(jì) 服務(wù)器端設(shè)計(jì)界面圖為: 聊天服務(wù)器界面圖從聊天服務(wù)器端界面圖知道設(shè)計(jì)步驟為：beginend。end。 :=false。%^)39。begin if then begin (usename+39。procedure (Sender: TObject。begin 。end。procedure (Sender: TObject)。 end else (temptext)。,temptext)0 then begin mssge:=copy(temptext,1,length(temptext)8)。$%^amp。 if (temptext)1 then ((temptext))。)。 (temptext+39。^$%^$39。 end。)。 if temptext then begin (temptext+39。*%^39。 end end else if pos(39。%^)39。 (usename+39。密碼錯(cuò)誤，登陸失敗，請(qǐng)檢查后重新登陸！39。 :=true。 :=false。 :=true。)。 if temptext=password then begin (39。39。 if pos(39。 mssge : string。var temptext : string。procedure (Sender: TObject。 password:=。)。 (+39。 exit。)。 then begin showmessage(39。 if =39。 exit。)。 then begin showmessage(39。begin if =39。end。 。對(duì)大家說(shuō)：39。 。39。%amp。+usename+39。+chatname+39。amp。 (+39。 break。+)。+chatname+39。 (39。 end。)。 then begin showmessage(39。begin if =39。var chatname : string。end。 var Key: Char)。end。 。 :=true。 :=true。 :=39。 :=false。%^)39。begin if then begin (usename+39。end。procedure (Sender: TObject)。+ 。begin :=39。procedure (Sender: TObject。+ 。begin :=39。procedure (Sender: TObject。:=true。 :=true。 :=true。begin :=。 如果是這種情況，將收到一個(gè)OnDisconnect 事件的通知。 當(dāng)完成通訊想關(guān)閉socket 連接時(shí)，能夠通過(guò)調(diào)用Close方法來(lái)關(guān)閉連接。 handle要接收的?？梢允褂肏andle property去訪問(wèn)windows,以便接收來(lái)自socket連接的信息。 當(dāng)使用一個(gè)windows socket API調(diào)用時(shí)，可以使用SocketHandle object 有一個(gè)properties,它能讓你確定在連接的兩端客戶和服務(wù)器使用的地址和端口號(hào)。window
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號(hào)-1