【正文】 ect 方法。為實(shí)現(xiàn)服務(wù) 第 10 頁(yè) 共 25 頁(yè) 器，程序?qū)⒈O(jiān)聽(tīng) DefaultPort 端口上的廣播，并將 設(shè)置為T(mén)rue。 1) 用戶(hù)名獲取代碼如下： Function ( GroupName : string。 Buf: Pointer。 Temp: TNetResourceArray。 //初始化網(wǎng)絡(luò)層次信息 := GroupName[1]。 //列舉文件資源信息 //獲取指定工作組的網(wǎng)絡(luò)資源句柄 Res := WNetOpenEnum( RESOURCE_GLOBALNET, RESOURCETYPE_DISK, RESOURCEUSAGE_CONTAINER, NetResource,lphEnum)。 //緩沖區(qū)大小設(shè)置為 8K GetMem(Buf, BufSize)。 //執(zhí)行失敗 Temp := TNetResourceArray(Buf)。 (tmpstr)。 Res := WNetCloseEnum(lphEnum)。 end。 //一個(gè)無(wú)符號(hào)的，占四個(gè)字節(jié)（ 32）的整型 //句柄類(lèi)型 lphEnum : THandle。 //返回局域網(wǎng)中的工作組名稱(chēng) ………… //列出一個(gè)網(wǎng)絡(luò)類(lèi)型中的所有工作組名稱(chēng) begin NetResource := TNetResource([J]^)。 //不限資源數(shù)目 BufSize := 8192。 P := TNetResourceArray(Buf)。 end。 Result := True。 第 13 頁(yè) 共 25 頁(yè) 3) IP 地址獲取代碼如下： procedure (Sender: TObject。 msg,head,recvip,recvname,recvworkgroup,recvmsg,memo:string。 (readbuf,sizeof(readbuf))。 //添加對(duì)方 IP IP 2. 發(fā)出 Hand 握手信息 if head=39。 // (39。 recvworkgroup:=copy(msg,headlen+namelen+1,length(msg))。 //添加對(duì)方返回的自己的 ip (對(duì)比 ) if head=39。)。 end。 _ToPORT:integer。 f:textfile。hand recv39。 recvip:=。 //處理握手信息 添加對(duì)方 ip 返回對(duì)方 ip if head=39。)。 recvport:=9000。recvport:integer):string。 i,j:integer。 :=RECVNAME。請(qǐng)選擇消息接收者！ 39。 //調(diào)用窗口 exit。 chatinfo:=format(39。,myname,])。 end。 end。REVLOG39。 :=INTTOSTR()。 var tempitem:tlistitem。 if then (revname)。 procedure (recvip:string。 begin for i:=0 to do begin if myname then inc(j,1)。 var chatinfo:string。%6s%255s%1024s39。 strpcopy(chatinfobuf,chatinfo)。 :=myname。 end else exit。 第 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)。 procedure (Sender: TObject)。 rewrite(F)。39。=====================================39。+_ToIp)。時(shí)間： 39。)。)。 第 19 頁(yè) 共 25 頁(yè) 和廣播功能，還包含了顯示用戶(hù)信息、查看歷史信息等輔助功能。 測(cè)試方案 本程序在 Windows XP操作系統(tǒng)下，使用 Borland Delphi 7 企業(yè)版軟件作為開(kāi)發(fā)工具，利用 Delphi7（企業(yè)版）集成開(kāi)發(fā)環(huán)境中提供的網(wǎng)絡(luò)通訊組件進(jìn)行編程的，代碼也是在這個(gè)開(kāi)發(fā)環(huán)境中編譯的，并在組建的局域網(wǎng)中進(jìn)行系統(tǒng)測(cè)試的。 測(cè)試結(jié)果 經(jīng)過(guò)多次在局域網(wǎng)中進(jìn)行測(cè)試，本設(shè)計(jì)的基本功能都在測(cè)試中得到了體現(xiàn)，下面就是我在整個(gè)測(cè)試的過(guò)程中得到的一些測(cè)試結(jié)果： 1. 在局域網(wǎng) 內(nèi)能完整傳輸所發(fā)的信息，不會(huì)出現(xiàn)信息丟失或亂碼等情況 2. 在測(cè)試的時(shí)候如果開(kāi)了防火墻很可能不能顯示工作組，但并不會(huì)影響到信息的發(fā)送和接收 3. 在發(fā)送廣播信息時(shí)是對(duì)所有用戶(hù)發(fā)送信息，包括自己也會(huì)收到廣播信息 4. 當(dāng)進(jìn)入系統(tǒng)后便能自動(dòng)更新顯示在線(xiàn)用戶(hù)信息，用戶(hù)下線(xiàn)時(shí)能在顯示列表中也能自動(dòng)刪除此用戶(hù)信息 5. 能對(duì)用戶(hù)在即時(shí)的通訊時(shí)的通訊信息進(jìn)行記錄，方便用戶(hù)查看歷史的通訊信息 6. 通過(guò)測(cè)試還發(fā)現(xiàn)了用戶(hù)只能進(jìn)行文本格式即時(shí)的通訊，不能發(fā)送圖片等格式的信息 7. 在發(fā)送信息時(shí)沒(méi)有能對(duì)信息進(jìn)行加密后在發(fā)送 結(jié) 論 通過(guò)本次課題的研究，認(rèn)識(shí) 到即時(shí)通訊工具在企業(yè)中起到了重要的作用，本系統(tǒng)實(shí)現(xiàn)了顯示在線(xiàn)用戶(hù)信息的功能，能夠查看到當(dāng)前局域網(wǎng)中用戶(hù)的在線(xiàn)情況，并且可以對(duì)用戶(hù)的用戶(hù)名、工作組和 IP 地址的信息進(jìn)行顯示 ；能保存歷史記錄的功能，可以方便用戶(hù)對(duì)歷史信息進(jìn)行查看； 還實(shí)現(xiàn)了在局域網(wǎng)內(nèi)部 進(jìn)行收發(fā) 單播和廣播信息的功能。 本次課題設(shè)計(jì)我學(xué)到了很多關(guān)于網(wǎng)絡(luò)通訊方面的知識(shí)，也認(rèn)識(shí)到自己的能力， 是我從理論走向?qū)嵺`邁出的堅(jiān)實(shí)的一步。 [2] 飛思科技產(chǎn)品研發(fā)中心 .Delphi 網(wǎng)絡(luò)高級(jí)編程 [M].北京：電子工業(yè)出版社 ,。 [6] (美 ) ：協(xié)議 [M]. 北京：機(jī)械工業(yè)出版社 ,2020。文中除了特別加以標(biāo)注地方外，不包含他人已經(jīng)發(fā)表或撰寫(xiě)過(guò)的研究成果，也不包含為獲得成都信息工程學(xué)院或其他教學(xué)機(jī)構(gòu)的學(xué)位或證書(shū)而使用過(guò)的材料。 （ 3）學(xué)?？梢詫W(xué)術(shù)交流為目的復(fù)制、贈(zèng)送和交換學(xué)位論文。 特此聲明！ 作者簽名： 2020 年 月 日 。 （ 5）學(xué)?？梢怨紝W(xué)位論文的全部或部分內(nèi)容（保密學(xué)位論文在解密后遵守此規(guī)定）。 關(guān)于學(xué)位論文使用權(quán)和研究成果知識(shí)產(chǎn)權(quán)的說(shuō)明： 本人完全了解成都信息工程學(xué)院有關(guān)保管使用學(xué)位論文的規(guī)定，其中包括： （ 1）學(xué)校有權(quán)保管并向有關(guān)部門(mén)遞交學(xué)位論文的原件與復(fù)印件。 第 24 頁(yè) 共 25 頁(yè) 致 謝 本文是在趙軍老師的熱情關(guān)心和指導(dǎo)下完成的，他淵博的知識(shí)和嚴(yán)謹(jǐn)?shù)闹螌W(xué)作風(fēng)使我受益匪淺，對(duì)順利完成本課題起到了極大的作用。 [4] 鮑敏 ,吳昊 .Delphi 網(wǎng)絡(luò)高級(jí)編程 [M].北京：人民郵電出版社 ,?？傊ㄟ^(guò)這次畢業(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è)方向去努力。但是系統(tǒng)還有是存在一些不足的地方存在： 只是單一的傳輸文本信息，還不能對(duì)圖片格式等進(jìn)行傳輸 沒(méi)有針對(duì)信息進(jìn)行加密發(fā)送，這樣不能保證所發(fā)送和接收的信息百分之百的安全； 沒(méi)有設(shè)計(jì)用戶(hù)登錄 界面，使本系統(tǒng)的使用方面還存在安全問(wèn)題。如圖 11： 圖 11 顯示在線(xiàn)用戶(hù) 第 20 頁(yè) 共 25 頁(yè) 如果能顯示出來(lái)用戶(hù)的信息則在其中一臺(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è)用戶(hù)就先選擇要發(fā)送的對(duì)象再點(diǎn)擊發(fā)送按鈕，這時(shí)就只會(huì)在那個(gè)指定的用戶(hù)那里彈出查看的界面了而其他用戶(hù)則不會(huì)接收到 發(fā)送來(lái)的信息。對(duì)于編程軟件的選擇主要是采用 Delphi7 來(lái)編寫(xiě)和編譯程序的，因?yàn)榭紤]到 Delphi 是具有可視化的一個(gè)編程環(huán)境， Delphi 它提供了 500多個(gè)可供使用的構(gòu)件，利用這些部件可以快速地構(gòu)造出應(yīng)用系統(tǒng)。 end。 writeln(f,39。 writeln(f,39。時(shí)間： 39。 writeln(f,39。 if fileexists()then append(f) else rewrite(F)。 end。 begin showmessage()。 end。 :=INTTOSTR()。 if then (myname)。 end。CHAT39。 f:textfile。 局域網(wǎng)內(nèi)實(shí)現(xiàn)廣播功能 在本設(shè)計(jì)中單播發(fā)送的按鈕為 BitBtn3，主要是通過(guò) IdUDPServer 和IdUDPClient 組件來(lái)編寫(xiě)的，主要是使用了 來(lái)對(duì)信息進(jìn)行發(fā)送的，在發(fā)送時(shí)將會(huì)把信息發(fā)送給在局域網(wǎng)內(nèi)部的所有用戶(hù)包括自己。 var tempitem:tlistitem。 :=INTTOSTR()。 :=revname。 procedure (revname,revworkgroup,revip:string。 //返回對(duì)方 IP port strpcopy(minfobuf,minfo)。%6s%4d%255s39。 if then (recvip)。 //(strpas(m