【正文】 39。amp。 break。+chatname+39。 end。 then begin showmessage(39。 var chatname : string。 var Key: Char)。 。 :=true。 :=false。 begin if then begin (usename+39。 procedure (Sender: TObject)。 begin :=39。+ 。 procedure (Sender: TObject。 :=true。 begin 10 :=。 2.在服務(wù)器端設(shè)計時，不知道怎么顯示在線用戶以及他們的個人信息，通過 socket打開監(jiān)聽 ，使它處在監(jiān)聽狀態(tài)，這樣就能顯示在線用戶。 5.重復(fù)進行暴露了這個錯誤的原始測試以及某些回歸測試，以確保該錯誤確實被排除且沒有引入新的錯誤。 第 三 章 系統(tǒng) 測試 調(diào)試 測試調(diào)試過程 8 測試 調(diào)試： 1.打開 Delphi7，在 form 里面添聊天程序所 需要的控件，對部分控件編程，完成聊天程序總體設(shè)計之后 ,按下 F9運行看看是否出錯。 Delphi 的一個強有力的功能之一是可以將基于本地桌面數(shù)據(jù)庫系統(tǒng)的應(yīng)用程序很容易地修改成客戶 /服務(wù)器模式的應(yīng)用。這將關(guān)閉所有打開著的，連接到客戶應(yīng)用的連接，取消任何尚未同意的連接，接著關(guān)閉監(jiān)聽連接以便服務(wù) socket 控件不在接受任何新的連接。當(dāng)使用windows socket API 調(diào)用時，可以使用 SocketHandle 屬性去獲得 socket 連接使用的handle。使用 Handle 7 屬性去存取 windows 通過 socket 連接收到的信息。 當(dāng)監(jiān)聽服務(wù) socket 控件接收到一個客戶端連接請求時他們將自動接受這個請求。使用 Service property 是一個好的主意，能夠減少設(shè)置端口號時的錯誤。使用服務(wù)器 sockets 去： 在服務(wù)器 socket 能夠監(jiān)聽客戶請求之前，必須指定一個端口給你的監(jiān)聽服務(wù)。服務(wù)器 sockets 允許指定想提供的服務(wù)或想用來監(jiān)聽客戶請求時使用的端口。 當(dāng)完成通訊想關(guān)閉 socket 連接時，能夠通過調(diào)用 Close 方法來關(guān)閉連接。 windows socket object 有一個 properties,它能讓你確定在連接的兩端客戶和服務(wù)器使用的地址和端口號。 一旦在客戶 socket 控件中完成了設(shè)置所連接的服務(wù)器的屬性，就可以進行連接，通過調(diào)用 Open 方法。除服務(wù)器系統(tǒng)外，必須指定 客戶 socket 將連接的在服務(wù)器系統(tǒng)上的端口?？梢酝ㄟ^主機名來指定服務(wù)器系統(tǒng)，使用 Host property?？蛻?sockets 允許 你指定你想連接的服務(wù)器 socket 和你希望服務(wù)器提供的服務(wù)。 2． 2 系統(tǒng)原理框圖 本次課程設(shè)計的原理框圖如圖 所示： 圖 4 2． 3 系統(tǒng)設(shè)計原理 局域網(wǎng)聊天程序的實現(xiàn)主要為局域網(wǎng)內(nèi)的計算機提供交流的平臺?？蛻舳伺c服務(wù)器端可運行在多種系統(tǒng)平臺，具有良好的兼容性能。 服務(wù)器端連接，是指當(dāng)服務(wù)器端 socket 接收到客戶端 socket 的連接請求后，就把服務(wù)器端 socket 的描述發(fā)給客戶端，一旦客戶端確認(rèn)了此描述，連接就建立了。為此，客戶端的 socket 必須首先描述它要連接的服務(wù)器端 socket(主要是指服務(wù)器 端 socket 的地址和端口號 )，然后再定位所要連接的服務(wù)器端 socket，找到以后，就向服務(wù)器端 socket 請求連接。在 TCP/IP 網(wǎng)絡(luò)中兩個進程間的相互作用的主機模式是客戶機 /服務(wù)器模式 (Client/Server model)。 從上面的描述過程可知： （ 1）客戶與服務(wù)器進程的作用是非對稱的。 （ 4）返回第二步，等待另外的客戶請求 （ 5）關(guān)閉服務(wù)器。 （ 3）接收到重復(fù)服務(wù)請求，處理該請求并發(fā)送應(yīng)答信號。 目前大多數(shù)應(yīng)用軟件系統(tǒng)都是 Client/Server 形式的兩層結(jié)構(gòu)，由于現(xiàn)在的軟件應(yīng)用系統(tǒng)正在向分布式的 Web應(yīng)用發(fā)展， Web 和 Client/Server 應(yīng)用都可以進行同樣的業(yè)務(wù)處理，應(yīng)用不同的模塊共享邏輯組件；因此，內(nèi)部的和外部的用戶都可以訪問新的和現(xiàn)有的應(yīng)用系統(tǒng)，通過現(xiàn)有應(yīng)用系統(tǒng)中的邏輯可以擴展出新的應(yīng)用系統(tǒng)。前者為核內(nèi)設(shè)計，后者為核外設(shè)計。 1 基于 TCP 局域網(wǎng)聊天程序 第 一 章 設(shè)計 理論基礎(chǔ) TCP/IP 協(xié)議 TCP/IP 協(xié)議的核心部分是傳輸層協(xié)議 (TCP、 UDP)，網(wǎng)絡(luò)層協(xié)議 (IP)和物理接口層，這三層通常是在操作系統(tǒng)內(nèi)核中設(shè)計。 編程時，編程界面有兩種形式：一、是由內(nèi)核心直接提供的系統(tǒng)調(diào)用；二、 使用以庫函數(shù)方式提供的各種函數(shù)。它是軟件系統(tǒng)體系結(jié)構(gòu)，通過它可以充分利用兩端硬件環(huán)境的優(yōu)勢，將任務(wù)合理分配到 Client 端和 Server 端來實現(xiàn)，降低了系統(tǒng)的通訊開銷。 （ 2）等待客戶請求到達該端口。服務(wù)完成后，關(guān)閉此新進程與客戶的通信鏈路，并終止。 2 （ 3）請求結(jié)束后關(guān)閉通信通道并終止。只要系統(tǒng)運行，該進程一直存在，直到 正常終止或者強迫終止。 客戶端連接是指由客戶端的 socket 提出連接請求，要連接的目標(biāo)是服務(wù)器端的socket。當(dāng)服務(wù)器端 socket 監(jiān)聽到或者說 接收到客戶端 socket 的連接請求，它就響應(yīng)客戶端 socket 的請求建立一個新的 socket 句柄并與客戶 端連接，而服務(wù)器端 socket繼續(xù)處于監(jiān)聽狀態(tài)，還可以接收其它客戶端 socket 的連接請求。最終的程序應(yīng)具有如下功能 : （ 1） 客戶端使用簡便，服務(wù)器端運行穩(wěn)定。 （ 4） 選擇特定用戶并與其交談，還可以向在所有在線的用戶發(fā)送消息。 客戶端設(shè)計 客戶端設(shè)計界面圖為： 圖 聊天客戶端界面圖 從聊天 客戶端界面圖知道設(shè)計步驟為： 添加一個客戶 端 socket 控件（ ClientSocket)到 form 中 使 之 成為一個 TCP/IP 客戶。使用客戶 sockets 去： 客戶 socket 控件有一個數(shù)字 properties,允許你指定想連接的服務(wù)器系統(tǒng)和端口。 如果兩個都指定，客戶 socket 控件將使用主機名。如果指定端口號和服務(wù)名，客戶 socket 控件將使用服務(wù)名。使用 Socket pro