【文章內容簡介】 ket 連接處得來的信息。AsyncStyles 屬性決定 windows handle 將接收哪種類型的信息。 當決定關閉監(jiān)聽連接時，調用 Close 方法。這將關閉所有打開著的，連接到客戶應用的連接，取消任何尚未同意的連接，接著關閉監(jiān)聽連接以便服務 socket 控件不在接受任何新的連接。當客戶端關閉他們自己獨立的連接到的 server socket 的連接時，可以在 OnClientDisconnect 事件中得到訊息。 數據庫設計 Delphi 中的 DataBase Desktop 數據庫 允許用戶創(chuàng)建、查看、排序、修改及查詢一系列的 Paradox、 dBASE 及 SQL格式的數據表格，選用 Edit|Paste Link 可以用 DDE(動態(tài)數據交換 Dynamic Data Exchange)與在其它應用程序中的數據建立激活動連接。 利用 Delphi 的客戶 /服務器功能，可以在本地數據庫上或遠程數據庫服務器上開發(fā)客戶 /服務器模式的應用程序。 Delphi 的一個強有力的功能之一是可以將基于本地桌面數據庫系統的應用程序很容易地修改成客戶 /服務器模式的應用。一個 Delphi 數據庫應用 程序訪問的是本地數據庫還是遠程 SQL 數據庫服務器上的數據庫，這對于最終用戶是完全透明的。 在本次課設中要記錄那些注冊了的人的信息，就要使用 Delphi 中的 DataBase Desktop 數據庫來保存，要正確運行本次聊天程序，就需要建立 chat 的數據庫別名指向 table 目錄，可以使用 Database Desktop 建立別名。 服務器先運行，自動到監(jiān)聽模式，然后可以運行 N個客戶端，這樣就能進行聊天了。 第 三 章 系統 測試 調試 測試調試過程 8 測試 調試： 1.打開 Delphi7，在 form 里面添聊天程序所 需要的控件，對部分控件編程，完成聊天程序總體設計之后 ,按下 F9運行看看是否出錯。 2.如果第一步驟出錯，看看錯誤的外部表現，定位錯位位置。 3.由第二步驟在來分析有關程序代碼，找出錯誤的內在原因。 4.修改程序代碼，排除這個錯誤。 5.重復進行暴露了這個錯誤的原始測試以及某些回歸測試，以確保該錯誤確實被排除且沒有引入新的錯誤。 6.如果所作的修正無效，則撤消這次改動，重復上述過程，直到找到一個有效的辦法為止。 7.測試 調試完所有錯誤之后 ,點下 Run 看看設計的界面是否和要求一致，如果不一致就說程 序編譯達不到要求，這就要重新修改程序直到達到要求為止。 調試中出現的問題 1.在客戶端設計時 ,不知道怎么保留注冊了的人的信息 ,經過查找資料 ,發(fā)現可以使用 Delphi 中自帶的 DataBase Desktop數據庫記錄注冊信息 ,這樣問題就解決了。 2.在服務器端設計時，不知道怎么顯示在線用戶以及他們的個人信息，通過 socket打開監(jiān)聽 ，使它處在監(jiān)聽狀態(tài)，這樣就能顯示在線用戶。 3.數據庫的設計部分的設計出現了很多的問題，如怎樣記錄信息，怎么樣使聊天程序正常運行，以及怎么使服務器端的監(jiān)聽自動，經查閱 有關數據庫方面的書和請教了老師最后這些問題一一解決了。 4.局域網聊天時，發(fā)送信息過去在對方那里需 10幾秒之后才能顯示出來，這個問題困擾了好幾天，后面就簡化界面，能不用的控件就不用，盡量簡單，果然把這個問題解決了，現在局域網聊天時候，一發(fā)送完信息，在對方那立刻顯示。 參考文獻 [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)。 begin 10 :=。 // 。 :=true。 :=false。 :=true。 :=true。 :=true。 end。 procedure (Sender: TObject。 Socket: TCustomWinSocket)。 begin :=39。正在連接 ... 39。+ 。 end。 procedure (Sender: TObject。 Socket: TCustomWinSocket)。 begin :=39。連接到 39。+ 。 end。 procedure (Sender: TObject)。 begin close。 end。 procedure (Sender: TObject)。 begin if then begin (usename+39。*^amp。%^)@39。)。 :=false。 end。 :=39。斷開連接 39。 :=true。 :=true。 11 :=true。 :=true。 。 。 end。 procedure (Sender: TObject。 var Key: Char)。 begin if key=13 then if then 。 end。 procedure (Sender: TObject)。 var chatname : string。 i : integer。 begin if =39。39。 then begin showmessage(39。發(fā)送消息不能為空！ 39。)。 exit。 end。 if =true then begin for i:=0 to do begin if [i] then begin chatname:= [i]。 (39。 你對 39。+chatname+39。 悄悄說：39。+)。 //。