基于tcp局域網聊天程序設計(delphi-預覽頁
【正文】 perty去訪問 client windows socket object。 AsyncStyles property 決 定 哪 種 信 息 類 型 是windows handle 要接收的。 服務器端設計 服務器端設計界面圖為 : 6 圖 聊天服務器界面圖 從聊天 服務器端界面圖知道設計步驟為： 添加一個服務端 socket 控件（ ServerSocket)到 form 中 使 之 成為一個 TCP/IP 服務器。 它 通 常 使 用 一 個 服 務 器 客 戶 winodws socket Object(TServerClientWinSocket)應答在服務器端每個活動的，連接著得到允許服務的客戶 socket。能夠使用 Service property 直接指定端口號。如果希望應用程序能夠在啟動的時候自動監(jiān)聽連接，在設計的時候通過使用 Object Inspector 設置 Active 屬性為 true。 使用 Socket property 去訪問server windows socket socket object 有一個屬性是關于所有活動的客戶 socket 連接這些客戶 socket 是通過服務器 socket 控件允許連接的。這些 server client windows socket object 有些屬性能夠決定哪些地址和端口號給連接的兩端 客戶和服務器 socket 使用。 當決定關閉監(jiān)聽連接時，調用 Close 方法。 利用 Delphi 的客戶 /服務器功能，可以在本地數(shù)據(jù)庫上或遠程數(shù)據(jù)庫服務器上開發(fā)客戶 /服務器模式的應用程序。 服務器先運行，自動到監(jiān)聽模式，然后可以運行 N個客戶端，這樣就能進行聊天了。 4.修改程序代碼，排除這個錯誤。 調試中出現(xiàn)的問題 1.在客戶端設計時 ,不知道怎么保留注冊了的人的信息 ,經過查找資料 ,發(fā)現(xiàn)可以使用 Delphi 中自帶的 DataBase Desktop數(shù)據(jù)庫記錄注冊信息 ,這樣問題就解決了。 參考文獻 [1] Marco 從入門到精通 [M].北京：電子工業(yè)出版社 ,2020 [2] 劉藝 .Delphi 面向對象編程 [M].北京：清華大學出版社 ,2020 9 [3] 黃超 . Delphi 網絡應用開發(fā)技術與實例 [M].北京：清華大學出版社 ,2020 [4] 甘志 .DELPHI7 高級應用開發(fā)篇 [M].北京：清華大學出版社 ,2020 [5] 王沛 .Delphi7 編程入門 [M].北京：機械工業(yè)出版社 ,2020 附錄 A： 聊天 客戶端 程序代碼如下： procedure (Sender: TObject)。 :=false。 end。正在連接 ... 39。 Socket: TCustomWinSocket)。 end。 procedure (Sender: TObject)。)。斷開連接 39。 :=true。 procedure (Sender: TObject。 procedure (Sender: TObject)。39。 exit。 你對 39。 //。amp。$$39。%amp。 end else begin (+39。 end。39。 。39。 。$%$%$%39。 end。 //chatname: string。$%^amp。登陸成功，歡迎進入本聊天室！ 39。 :=false。 end else begin showmessage(39。*^amp。~{}()amp。 進入聊天室 ...39。 end else if pos(39。 離開聊天室 ...39。 end else if pos(39。 (mssge)。 begin 。 end。*^amp。 end。 end. 附錄 B： 聊天 服務器端 程序代碼如下： procedure (Sender: TObject。 counter:=0。 begin :=39。 procedure (Sender: TObject。 end。 check :string。 member : string。%amp。,tmptext)0 then // 當有 39。39。amp。 member:=copy(tmptext, signpos+2,pos(39。$$39。 for i:=0 to counter1 do begin if member=chatname[i] then begin [i].SendText(usename+39。 end。,tmptext)0 then // 當有 39。 (tmptext)。password39。39。*%^39。*%^39。 end。,tmptext)0 then //表示注冊信息 begin signpos:=pos(39。 chattext:=copy(tmptext,signpos+6,length(tmptext)6length(member))。用戶名已經有人用了，請檢查后重新注冊。新用戶： [39。 (39。 end。,tmptext)0 then // 有人走了 begin tmptext:=copy(tmptext,1,length(tmptext)8)。]離開聊天室。^$%^$39。 end。 procedure (Sender: TObject)。 procedure (Sender: TObject。 Socket: TCustomWinSocket。 end。 procedure (Sender: TObject)。+Datetimetostr(now)+39。已經在監(jiān)聽狀態(tài) 39。 begin :=false。 (39。)。 begin Close。 end。 end.
醫(yī)療健康相關推薦
鄂ICP備17016276號-1