【正文】 特此聲明！ 作者簽名： 2020 年 月 日 。 （ 5）學(xué)校可以公布學(xué)位論文的全部或部分內(nèi)容（保密學(xué)位論文在解密后遵守此規(guī)定）。 （ 3）學(xué)?？梢詫W(xué)術(shù)交流為目的復(fù)制、贈(zèng)送和交換學(xué)位論文。 關(guān)于學(xué)位論文使用權(quán)和研究成果知識(shí)產(chǎn)權(quán)的說(shuō)明： 本人完全了解成都信息工程學(xué)院有關(guān)保管使用學(xué)位論文的規(guī)定，其中包括： （ 1）學(xué)校有權(quán)保管并向有關(guān)部門遞交學(xué)位論文的原件與復(fù)印件。文中除了特別加以標(biāo)注地方外，不包含他人已經(jīng)發(fā)表或撰寫過的研究成果，也不包含為獲得成都信息工程學(xué)院或其他教學(xué)機(jī)構(gòu)的學(xué)位或證書而使用過的材料。 第 24 頁(yè) 共 25 頁(yè) 致 謝 本文是在趙軍老師的熱情關(guān)心和指導(dǎo)下完成的，他淵博的知識(shí)和嚴(yán)謹(jǐn)?shù)闹螌W(xué)作風(fēng)使我受益匪淺，對(duì)順利完成本課題起到了極大的作用。 [6] (美 ) ：協(xié)議 [M]. 北京：機(jī)械工業(yè)出版社 ,2020。 [4] 鮑敏 ,吳昊 .Delphi 網(wǎng)絡(luò)高級(jí)編程 [M].北京：人民郵電出版社 ,。 [2] 飛思科技產(chǎn)品研發(fā)中心 .Delphi 網(wǎng)絡(luò)高級(jí)編程 [M].北京：電子工業(yè)出版社 ,?？傊ㄟ^這次畢業(yè)設(shè)計(jì)，我深深體會(huì)到，一個(gè)好的程序設(shè)計(jì)人員必須具有認(rèn)真、 第 23 頁(yè) 共 25 頁(yè) 謹(jǐn)慎的作風(fēng)，堅(jiān)忍不拔 的毅力，并且要不斷的向更高的臺(tái)階邁進(jìn)，我會(huì)向著這個(gè)方向去努力。 本次課題設(shè)計(jì)我學(xué)到了很多關(guān)于網(wǎng)絡(luò)通訊方面的知識(shí)，也認(rèn)識(shí)到自己的能力， 是我從理論走向?qū)嵺`邁出的堅(jiān)實(shí)的一步。但是系統(tǒng)還有是存在一些不足的地方存在： 只是單一的傳輸文本信息，還不能對(duì)圖片格式等進(jìn)行傳輸 沒有針對(duì)信息進(jìn)行加密發(fā)送，這樣不能保證所發(fā)送和接收的信息百分之百的安全； 沒有設(shè)計(jì)用戶登錄 界面，使本系統(tǒng)的使用方面還存在安全問題。 測(cè)試結(jié)果 經(jīng)過多次在局域網(wǎng)中進(jìn)行測(cè)試，本設(shè)計(jì)的基本功能都在測(cè)試中得到了體現(xiàn)，下面就是我在整個(gè)測(cè)試的過程中得到的一些測(cè)試結(jié)果： 1. 在局域網(wǎng) 內(nèi)能完整傳輸所發(fā)的信息，不會(huì)出現(xiàn)信息丟失或亂碼等情況 2. 在測(cè)試的時(shí)候如果開了防火墻很可能不能顯示工作組，但并不會(huì)影響到信息的發(fā)送和接收 3. 在發(fā)送廣播信息時(shí)是對(duì)所有用戶發(fā)送信息，包括自己也會(huì)收到廣播信息 4. 當(dāng)進(jìn)入系統(tǒng)后便能自動(dòng)更新顯示在線用戶信息，用戶下線時(shí)能在顯示列表中也能自動(dòng)刪除此用戶信息 5. 能對(duì)用戶在即時(shí)的通訊時(shí)的通訊信息進(jìn)行記錄，方便用戶查看歷史的通訊信息 6. 通過測(cè)試還發(fā)現(xiàn)了用戶只能進(jìn)行文本格式即時(shí)的通訊，不能發(fā)送圖片等格式的信息 7. 在發(fā)送信息時(shí)沒有能對(duì)信息進(jìn)行加密后在發(fā)送 結(jié) 論 通過本次課題的研究，認(rèn)識(shí) 到即時(shí)通訊工具在企業(yè)中起到了重要的作用，本系統(tǒng)實(shí)現(xiàn)了顯示在線用戶信息的功能，能夠查看到當(dāng)前局域網(wǎng)中用戶的在線情況，并且可以對(duì)用戶的用戶名、工作組和 IP 地址的信息進(jìn)行顯示 ；能保存歷史記錄的功能，可以方便用戶對(duì)歷史信息進(jìn)行查看； 還實(shí)現(xiàn)了在局域網(wǎng)內(nèi)部 進(jìn)行收發(fā) 單播和廣播信息的功能。如圖 11： 圖 11 顯示在線用戶 第 20 頁(yè) 共 25 頁(yè) 如果能顯示出來(lái)用戶的信息則在其中一臺(tái)計(jì)算機(jī)上的信息窗體中輸入好準(zhǔn)備發(fā)送出去的信息“歡迎使用！”，如圖 12： 圖 12 輸入發(fā)送信息 如果是想發(fā)送到整的網(wǎng)絡(luò)就點(diǎn)擊界面上的廣播按鈕，這時(shí)在所有的計(jì)算機(jī)上都會(huì)彈出一個(gè)接收的界面，如圖 13： 圖 13 接收界面 點(diǎn)擊查看按鈕則會(huì)彈到一個(gè)查看信息的界面上，上面會(huì)顯示出剛才所發(fā)送的信息和來(lái)自于誰(shuí)，如圖 14： 第 21 頁(yè) 共 25 頁(yè) 圖 14 查看界面 如果是想發(fā)送給網(wǎng)絡(luò)中的其中一個(gè)用戶就先選擇要發(fā)送的對(duì)象再點(diǎn)擊發(fā)送按鈕，這時(shí)就只會(huì)在那個(gè)指定的用戶那里彈出查看的界面了而其他用戶則不會(huì)接收到 發(fā)送來(lái)的信息。 測(cè)試方案 本程序在 Windows XP操作系統(tǒng)下，使用 Borland Delphi 7 企業(yè)版軟件作為開發(fā)工具，利用 Delphi7（企業(yè)版）集成開發(fā)環(huán)境中提供的網(wǎng)絡(luò)通訊組件進(jìn)行編程的，代碼也是在這個(gè)開發(fā)環(huán)境中編譯的，并在組建的局域網(wǎng)中進(jìn)行系統(tǒng)測(cè)試的。對(duì)于編程軟件的選擇主要是采用 Delphi7 來(lái)編寫和編譯程序的，因?yàn)榭紤]到 Delphi 是具有可視化的一個(gè)編程環(huán)境， Delphi 它提供了 500多個(gè)可供使用的構(gòu)件，利用這些部件可以快速地構(gòu)造出應(yīng)用系統(tǒng)。 第 19 頁(yè) 共 25 頁(yè) 和廣播功能，還包含了顯示用戶信息、查看歷史信息等輔助功能。 end。)。 writeln(f,39。)。 writeln(f,39。時(shí)間： 39。時(shí)間： 39。+_ToIp)。 writeln(f,39。=====================================39。 if fileexists()then append(f) else rewrite(F)。39。 end。 rewrite(F)。 begin showmessage()。 procedure (Sender: TObject)。 end。 第 18 頁(yè) 共 25 頁(yè) 進(jìn)行記錄的功能，主要是創(chuàng)建一個(gè)記事本文件對(duì)信息進(jìn)行復(fù)制保存，以下就是歷史信息記錄的代碼： 5 系統(tǒng)實(shí)施及測(cè)試 實(shí)施概況 本設(shè)計(jì)是基于局域網(wǎng)內(nèi)采用 C/S 結(jié)構(gòu)的即時(shí)通信軟件，其主要實(shí)現(xiàn)的是單播procedure (Sender: TObject)。 :=INTTOSTR()。 end else exit。 if then (myname)。 :=myname。 end。 strpcopy(chatinfobuf,chatinfo)。CHAT39。%6s%255s%1024s39。 f:textfile。 var chatinfo:string。 局域網(wǎng)內(nèi)實(shí)現(xiàn)廣播功能 在本設(shè)計(jì)中單播發(fā)送的按鈕為 BitBtn3，主要是通過 IdUDPServer 和IdUDPClient 組件來(lái)編寫的，主要是使用了 來(lái)對(duì)信息進(jìn)行發(fā)送的，在發(fā)送時(shí)將會(huì)把信息發(fā)送給在局域網(wǎng)內(nèi)部的所有用戶包括自己。 begin for i:=0 to do begin if myname then inc(j,1)。 var tempitem:tlistitem。 procedure (recvip:string。 :=INTTOSTR()。 if then (revname)。 :=revname。 var tempitem:tlistitem。 procedure (revname,revworkgroup,revip:string。 :=INTTOSTR()。 //返回對(duì)方 IP port strpcopy(minfobuf,minfo)。REVLOG39。%6s%4d%255s39。 end。 if then (recvip)。 end。 //(strpas(myinfobuf))。,myname,])。,[39。 chatinfo:=format(39。 _ToIp:=[1]。 //調(diào)用窗口 exit。提 示 39。請(qǐng)選擇消息接收者！ 39。 begin tempItem:=。 :=RECVNAME。 for i:=0 to do begin if [i].CaptionRECVNAME then inc(j,1)。 i,j:integer。 minfo:string。recvport:integer):string。 end。 recvport:=9000。 recvworkgroup:=copy(msg,headlen+namelen+1,workglen)。)。then Begin // (39。 //處理握手信息 添加對(duì)方 ip 返回對(duì)方 ip if head=39。 recvp2pdata(recvip,recvname,recvworkgroup,recvport)。 recvip:=。 RECVNAME:=COPY(msg,headlen+1,namelen)。hand recv39。HAND39。 f:textfile。 chatinfobuf:array[0..2030]of char。 _ToPORT:integer。 下面是發(fā)送按鈕的代碼部分： procedure (Sender: TObject)。 end。 recvip:=copy(msg,headlen+portlen+1,iplen)。)。then begin // (39。 //添加對(duì)方返回的自己的 ip (對(duì)比 ) if head=39。 handdata(recvip,myname,myworkgroup,recvport)。 recvworkgroup:=copy(msg,headlen+namelen+1,length(msg))。+recvip+inttostr(recvport))。 // (39。 then begin recvip:=。 //添加對(duì)方 IP IP 2. 發(fā)出 Hand 握手信息 if head=39。 //(msg)。 (readbuf,sizeof(readbuf))。 f:textfile。 msg,head,recvip,recvname,recvworkgroup,recvmsg,memo:string。ABinding: TIdSocketHandle)。 第 13 頁(yè) 共 25 頁(yè) 3) IP 地址獲取代碼如下： procedure (Sender: TObject。 。 Result := True。 //關(guān)閉一次列舉 if Res NO_ERROR then break。 end。//取