【導(dǎo)讀】層出不窮；服務(wù)提供商也提供了越來越豐富的通訊服務(wù)功能。Windows環(huán)境下開發(fā)局域網(wǎng)聊天程序思路和方法。系統(tǒng)使用流行的開。發(fā)軟件，采用Socket技術(shù)實現(xiàn)網(wǎng)絡(luò)通訊。數(shù)據(jù)庫使用Delphi自帶的Database. 系統(tǒng)采用典型的C/S構(gòu)架。系統(tǒng)主要實現(xiàn)了用戶注冊、登錄、聊天、服務(wù)器管理等功能。本系統(tǒng)從需求分析、系統(tǒng)的設(shè)計、具體功能的。實現(xiàn)都嚴(yán)格遵循了軟件設(shè)計工程的思想。

　　

【正文】 py(tmptext,1,length(tmptext)6)。 signpos:= pos(39。amp。amp。39。,tmptext)。 chattext:= copy(tmptext,1,signpos1)。 member:=copy(tmptext, signpos+2,pos(39。$$39。,tmptext)2signpos)。 usename:=copy(tmptext,pos(39。$$39。,tmptext)+2,length(tmptext)pos(39。$$39。,tmptext)+2)。 //從 text 中分別提取聊天信息，發(fā)送人，接收人等相關(guān)信息 for i:=0 to counter1 do begin if member=chatname[i] then begin [i].SendText(usename+39。對你說： 39。+chattext)。 break。 //發(fā)送聊天信息給接收人 end。 end。 end else // 當(dāng)無任何標(biāo)記時表示公聊 begin 第 15頁 共 22頁 for i:=0 to counter1 do [i].SendText(tmptext)。 //對所有人發(fā) 送信息 end。 end。 以上是 聊天部分 的代碼，服務(wù)器通過特殊的字符串來區(qū)分公聊和私聊，當(dāng)有39。%amp。%amp。%amp。39。字符串時表示私聊；當(dāng)無任何標(biāo)記時表示公聊。 用戶注冊登錄下線 模塊功能代碼 if pos(39。$%$%$%39。,tmptext)0 then // 當(dāng)有 39。$%$%$%39。表示有登陸信息 begin tmptext := copy(tmptext,1,length(tmptext)6)。 chatname[counter]:=tmptext。 (tmptext)。 //用戶列表 添加新登錄的用戶 check :=((39。usename39。,tmptext,39。password39。))。 (check+39。@$%^amp。39。)。 (39。用戶 [39。+tmptext+39。]上線了。 39。)。 if counter0 then begin for i:=0 to counter1 do begin [counter].SendText (chatname[i]+39。~{}()amp。*%^39。)。 [i].SendText(tmptext+39。~{}()amp。*%^39。)。 sleep(300)。 end。 end。 inc(counter)。 end else if pos(39。??**39。,tmptext)0 then //當(dāng)有 39。??**39。字符串 表示注冊信息 begin signpos:=pos(39。??**39。,tmptext)。 member:=copy(tmptext,1,signpos1)。 chattext:=copy(tmptext,signpos+6,length(tmptext)6length(member))。 with table1 do 第 16頁 共 22頁 begin if (39。usename39。).AsString=member then (39。用戶名已經(jīng)有人用了，請檢查后重新注冊。 39。) else //注冊時進(jìn)行用戶名驗證 begin insertrecord([member,chattext])。 (39。新用戶： [39。+member+39。]注冊成功！ 39。)。 (39。注冊成功，請先登陸再進(jìn)行聊天！ 39。)。 end。 //注冊成功后提示 end。 end else if pos(39。*^amp。%^)@39。,tmptext)0 then // 當(dāng)有 39。*^amp。%^)@39。字符串表示有人下線了 begin tmptext:=copy(tmptext,1,length(tmptext)8)。 (39。用戶 [39。+tmptext+39。]下線了。 39。)。 for i:=0 to counter1 do [i].SendText(tmptext+39。^$%^$39。)。 for i:= downto 1 do if [i1]=tmptext then begin (i1)。 //從用戶列表中去除下線的用戶 dec(counter)。 end。 end 客戶端與服務(wù)器進(jìn)行通信時同樣是通過附加不同的特殊字符串來讓服務(wù)器區(qū)分登錄、注冊、下線等信息， 當(dāng)有 39。*^amp。%^)@39。字符串表示有人下線了 ，(i1)。表示從用戶列表中刪除下線的用戶 ； 當(dāng)有 39。??**39。字符串表示注冊信息 ； 當(dāng)有 39。$%$%$%39。表示有登陸信息 。 5 系統(tǒng) 測試 測試 方法 （ 1） 運行服務(wù)器，看能否對服務(wù)器的監(jiān)聽狀態(tài)進(jìn)行管理，開關(guān)服務(wù)器看系統(tǒng)信息欄有沒有相關(guān)記錄。 （ 2） 運行客戶端，輸入服務(wù)器的 ip 地址 ，測試 看能否連接到服務(wù)器。 第 17頁 共 22頁 （ 3） 客戶端連接到服務(wù)器后， 進(jìn)行注冊，注冊成功后看能否 成功登錄，登錄后看聊天模塊是否 激活。 （ 4） 注冊若干個用戶 進(jìn)行登錄，看 服務(wù)器和客戶端的 在線戶列表是否 刷新 和同步。 （ 5） 看能否進(jìn)行聊天， 公聊和私聊 能否正常進(jìn)行 。 （ 6） 看服務(wù)器的系統(tǒng)信息欄是否記錄了客戶端的連接，用戶的注冊、登錄、下線等信息。 測試結(jié)果 （ 1） 服務(wù)器能夠正常運行，能夠?qū)Ψ?wù)器的監(jiān)聽狀態(tài)進(jìn)行管理，并且系統(tǒng)信息欄有相關(guān)記錄。 （ 2） 客戶端能夠連接到服務(wù)器，并能夠進(jìn)行注冊和登錄 （ 3） 在有新用戶登錄時，用戶列表動態(tài)刷新 （ 4） 聊天功能可以正常進(jìn)行 （ 5） 服務(wù)器系統(tǒng)信息欄記錄了用戶的注冊、登錄、下線等相關(guān)信息 測試結(jié)論 以上的測試案例是單獨 進(jìn)行測試的，還需要進(jìn)一步的交叉案例測試。通過以上簡單測試說明了 設(shè)計方法的正確性，它已經(jīng)初步具備了 局域網(wǎng)聊天程序 的基本框架，具有良好的檢測性能和準(zhǔn)確的檢測結(jié)果。 但 系統(tǒng)構(gòu)架和代碼設(shè)計還需要進(jìn)一步優(yōu)化，以提高系統(tǒng)的運行效率，降低所耗的系統(tǒng)資源，為用戶提供更好的服務(wù)。 程序運行截圖 圖 13 服務(wù)器運行界面 第 18頁 共 22頁 圖 14 客戶端運行界面