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