局域網(wǎng)聊天程序的實現(xiàn)(參考版)
2025-01-20 23:48本頁面
【正文】 此外還要感謝辛勤培育我的老師們，及朝夕相處的同學(xué)們，他們得關(guān)心使我充滿動力，他們在系統(tǒng)設(shè)計初期給予的幫助，使此系統(tǒng)的開發(fā)，有了一個很好的開端！感謝同學(xué)們在專業(yè)知識上給予我的幫助，因為他們的協(xié)助，才得以順利完成了設(shè)計！在論文完成過程中，本人還得到了其他老師和許多同學(xué)的熱心幫助，本人向他們表示深深的謝意！最后向在百忙之中評審本文的各位專家、老師表示衷心的感謝！ 21 / 25。老師淵博的知識和嚴謹?shù)闹螌W(xué)作風(fēng)使我受益匪淺，對順利完成本系統(tǒng)起到了極大的作用。[10][J].華中理工大學(xué)學(xué)報，2005。[9][7][J].成都氣象學(xué)院學(xué)報，2002。[5]RichardStevens.《UnixNetworkProgramming》[M].北京：清華大學(xué)出版社2000。[3][M].北京：中國鐵道出版社，2000。參考文獻[1][M].北京：冶金工業(yè)出版社，2002。由于時間和個人水平的有限，該聊天室的客戶端仍然不完善，比如對一些不想再聽其發(fā)言的人不能使用屏蔽功能，使對方不能對你發(fā)言，沒有個性化的頭像，沒有發(fā)送文件功能，聊天室的界面也不夠美觀等。由于Delphi封裝了WindowsSocketAPI，使得我們在Delphi環(huán)境下編寫WindowsSocket程序變得非常輕松。在使用Delphi ，我們一般不需要直接進行套接字編程。在局域網(wǎng)內(nèi)運行該程序并進行設(shè)置，即可自由的聊天了。 利用TCP/IP協(xié)議中的TCP協(xié)議，即面向連接的服務(wù)，進行數(shù)據(jù)的傳輸，對網(wǎng)絡(luò)中數(shù)據(jù)的傳輸過程進行了認真的分析。 將數(shù)據(jù)庫和網(wǎng)絡(luò)編程相結(jié)合，將在大學(xué)里學(xué)到的知識進行了很好的綜合。 對典型的C/S結(jié)構(gòu)有了基本了解。 通過網(wǎng)絡(luò)編程，設(shè)計了基本的聊天功能和登錄注冊功能。另外，在使用參考書籍的過程中，有很多的精湛的細節(jié)值得認真學(xué)習(xí)和領(lǐng)悟。使我受益良多。從解決不了細小問題的苦惱到問題最終解決的喜悅，一直伴隨著整個設(shè)計過程。 程序運行截圖圖13 服務(wù)器運行界面圖14 客戶端運行界面結(jié) 論經(jīng)過了3個月的忙碌，局域網(wǎng)聊天程序基本開發(fā)完畢。通過以上簡單測試說明了設(shè)計方法的正確性，它已經(jīng)初步具備了局域網(wǎng)聊天程序的基本框架，具有良好的檢測性能和準確的檢測結(jié)果。 測試結(jié)果（1）服務(wù)器能夠正常運行，能夠?qū)Ψ?wù)器的監(jiān)聽狀態(tài)進行管理，并且系統(tǒng)信息欄有相關(guān)記錄。（5）看能否進行聊天，公聊和私聊能否正常進行。（3）客戶端連接到服務(wù)器后，進行注冊，注冊成功后看能否成功登錄，登錄后看聊天模塊是否激活。5 系統(tǒng)測試 測試方法（1）運行服務(wù)器，看能否對服務(wù)器的監(jiān)聽狀態(tài)進行管理，開關(guān)服務(wù)器看系統(tǒng)信息欄有沒有相關(guān)記錄。$%$%$%39。??**39。字符串表示有人下線了，(i1)。*^amp。 end。 for i:= downto 1 do if [i1]=tmptext thenbegin (i1)。^$%^$39。)。]下線了。用戶[39。字符串表示有人下線了 begin tmptext:=copy(tmptext,1,length(tmptext)8)。*^amp。%^)39。 endelse if pos(39。 end。注冊成功，請先登陸再進行聊天！39。)。+member+39。 (39。39。).AsString=member then (39。 with table1 do begin if (39。 member:=copy(tmptext,1,signpos1)。??**39。??**39。??**39。 inc(counter)。 end。)。~{}()amp。)。~{}()amp。)。]上線了。用戶[39。)。$%^amp。))。,tmptext,39。 //用戶列表添加新登錄的用戶 check :=((39。 chatname[counter]:=tmptext。$%$%$%39。$%$%$%39。字符串時表示私聊；當(dāng)無任何標記時表示公聊。%amp。%amp。end。 endelse // 當(dāng)無任何標記時表示公聊 begin for i:=0 to counter1 do [i].SendText(tmptext)。 //發(fā)送聊天信息給接收人 end。+chattext)。//從text中分別提取聊天信息，發(fā)送人，接收人等相關(guān)信息 for i:=0 to counter1 do begin if member=chatname[i] then begin [i].SendText(usename+39。$$39。$$39。,tmptext)2signpos)。 member:=copy(tmptext, signpos+2,pos(39。,tmptext)。amp。 signpos:= pos(39。39。%amp。,tmptext)0 then // 當(dāng)服務(wù)器收到的text中有39。%amp。%amp。 //服務(wù)器處于監(jiān)聽狀態(tài)時狀態(tài)欄顯示“監(jiān)聽狀態(tài)…”begin tmptext := 。 counter:=0。begin :=39。 //客戶端的IP地址procedure (Sender: TObject。end。已經(jīng)在監(jiān)聽狀態(tài)39。)。+Datetimetostr(now)+39。 //如果serversocket沒有激活則激活它 (39。上欄為用戶列表和系統(tǒng)信息欄，注冊為彈出對話框，同客戶端一樣，示意圖略。整體界面的設(shè)計的下欄為聊天區(qū)
公司管理相關(guān)推薦
鄂ICP備17016276號-1