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