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

　　

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