基于tcp局域網(wǎng)聊天程序設計(delphi-免費閱讀
【正文】 end。)。 begin :=false。+Datetimetostr(now)+39。 end。 procedure (Sender: TObject。 end。]離開聊天室。 end。新用戶： [39。 chattext:=copy(tmptext,signpos+6,length(tmptext)6length(member))。 end。*%^39。password39。,tmptext)0 then // 當有 39。 for i:=0 to counter1 do begin if member=chatname[i] then begin [i].SendText(usename+39。 member:=copy(tmptext, signpos+2,pos(39。39。%amp。 check :string。 procedure (Sender: TObject。 counter:=0。 end。 end。 (mssge)。 離開聊天室 ...39。 進入聊天室 ...39。*^amp。 :=false。$%^amp。 end。 。 。 end。%amp。amp。 你對 39。39。 procedure (Sender: TObject。斷開連接 39。 procedure (Sender: TObject)。 Socket: TCustomWinSocket)。 end。 參考文獻 [1] Marco 從入門到精通 [M].北京：電子工業(yè)出版社 ,2020 [2] 劉藝 .Delphi 面向?qū)ο缶幊?[M].北京：清華大學出版社 ,2020 9 [3] 黃超 . Delphi 網(wǎng)絡應用開發(fā)技術與實例 [M].北京：清華大學出版社 ,2020 [4] 甘志 .DELPHI7 高級應用開發(fā)篇 [M].北京：清華大學出版社 ,2020 [5] 王沛 .Delphi7 編程入門 [M].北京：機械工業(yè)出版社 ,2020 附錄 A： 聊天 客戶端 程序代碼如下： procedure (Sender: TObject)。 4.修改程序代碼，排除這個錯誤。 利用 Delphi 的客戶 /服務器功能，可以在本地數(shù)據(jù)庫上或遠程數(shù)據(jù)庫服務器上開發(fā)客戶 /服務器模式的應用程序。這些 server client windows socket object 有些屬性能夠決定哪些地址和端口號給連接的兩端 客戶和服務器 socket 使用。如果希望應用程序能夠在啟動的時候自動監(jiān)聽連接，在設計的時候通過使用 Object Inspector 設置 Active 屬性為 true。 它 通 常 使 用 一 個 服 務 器 客 戶 winodws socket Object(TServerClientWinSocket)應答在服務器端每個活動的，連接著得到允許服務的客戶 socket。 AsyncStyles property 決 定 哪 種 信 息 類 型 是windows handle 要接收的。如果指定端口號和服務名，客戶 socket 控件將使用服務名。使用客戶 sockets 去： 客戶 socket 控件有一個數(shù)字 properties,允許你指定想連接的服務器系統(tǒng)和端口。 （ 4） 選擇特定用戶并與其交談，還可以向在所有在線的用戶發(fā)送消息。當服務器端 socket 監(jiān)聽到或者說 接收到客戶端 socket 的連接請求，它就響應客戶端 socket 的請求建立一個新的 socket 句柄并與客戶 端連接，而服務器端 socket繼續(xù)處于監(jiān)聽狀態(tài)，還可以接收其它客戶端 socket 的連接請求。只要系統(tǒng)運行，該進程一直存在，直到 正常終止或者強迫終止。服務完成后，關閉此新進程與客戶的通信鏈路，并終止。它是軟件系統(tǒng)體系結(jié)構(gòu)，通過它可以充分利用兩端硬件環(huán)境的優(yōu)勢，將任務合理分配到 Client 端和 Server 端來實現(xiàn)，降低了系統(tǒng)的通訊開銷。 1 基于 TCP 局域網(wǎng)聊天程序 第 一 章 設計 理論基礎 TCP/IP 協(xié)議 TCP/IP 協(xié)議的核心部分是傳輸層協(xié)議 (TCP、 UDP)，網(wǎng)絡層協(xié)議 (IP)和物理接口層，這三層通常是在操作系統(tǒng)內(nèi)核中設計。 目前大多數(shù)應用軟件系統(tǒng)都是 Client/Server 形式的兩層結(jié)構(gòu)，由于現(xiàn)在的軟件應用系統(tǒng)正在向分布式的 Web應用發(fā)展， Web 和 Client/Server 應用都可以進行同樣的業(yè)務處理，應用不同的模塊共享邏輯組件；因此，內(nèi)部的和外部的用戶都可以訪問新的和現(xiàn)有的應用系統(tǒng)，通過現(xiàn)有應用系統(tǒng)中的邏輯可以擴展出新的應用系統(tǒng)。 （ 4）返回第二步，等待另外的客戶請求 （ 5）關閉服務器。在 TCP/IP 網(wǎng)絡中兩個進程間的相互作用的主機模式是客戶機 /服務器模式 (Client/Server model)。 服務器端連接，是指當服務器端 socket 接收到客戶端 socket 的連接請求后，就把服務器端 socket 的描述發(fā)給客戶端，一旦客戶端確認了此描述，連接就建立了。 2． 2 系統(tǒng)原理框圖 本次課程設計的原理框圖如圖 所示： 圖 4 2． 3 系統(tǒng)設計原理 局域網(wǎng)聊天程序的實現(xiàn)主要為局域網(wǎng)內(nèi)的計算機提供交流的平臺?？梢酝ㄟ^主機名來指定服務器系統(tǒng)，使用 Host property。 一旦在客戶 socket 控件中完成了設置所連接的服務器的屬性，就可以進行連接，通過調(diào)用 Open 方法。 當完成通訊想關閉 socket 連接時，能夠通過調(diào)用 Close 方法來關閉連接。使用服務器 sockets 去： 在服務器 socket 能夠監(jiān)聽客戶請求之前，必須指定一個端口給你的監(jiān)聽服務。 當監(jiān)聽服務 socket 控件接收到一個客戶端連接請求時他們將自動接受這個請求。當使用windows socket API 調(diào)用時，可以使用 SocketHandle 屬性去獲得 socket 連接使用的handle。 Delphi 的一個強有力的功能之一是可以將基于本地桌面數(shù)據(jù)庫系統(tǒng)的應用程序很容易地修改成客戶 /服務器模式的應用。 5.重復進行暴露了這個錯誤的原始測試以及某些回歸測試，以確保該錯誤確實被排除且沒有引入新的錯誤。 begin 10 :=。 proc
醫(yī)療健康相關推薦
鄂ICP備17016276號-1