【正文】 除非另有說(shuō)明，本文的工作是原始性工作。解決了傳統(tǒng)通訊工具需要連接遠(yuǎn)程服務(wù)器來(lái)進(jìn)行信息轉(zhuǎn)發(fā)的局限性問(wèn)題 ，這樣能夠節(jié)約網(wǎng)絡(luò)資源 ，也保證了在信息交流時(shí)的安全性，減少了病毒及木馬的感染率。 writeln(f,)。 then begin Assignfile(f,)。 end。 chatinfobuf:array[0..2030]of char。 begin tempItem:= 。 第 16 頁(yè) 共 25 頁(yè) if then (RECVNAME)。,39。 recvp2pdata(recvip,recvname,recvworkgroup,recvport)。)。 RECVPORT:=strtoint(copy(msg,headlen+1,portlen))。LOGIN39。 FreeMem(Buf)。//網(wǎng)絡(luò)類(lèi)型信息 //獲取某個(gè)網(wǎng)絡(luò)類(lèi)型的文件資源的句柄， NetResource為網(wǎng)絡(luò)類(lèi)型信息， lphEnum為返回名柄 Res:=WNetOpenEnum(RESOURCE_GLOBALNET, RESOURCETYPE_DISK,RESOURCEUSAGE_CONTAINER, NetResource,lphEnum)。 Inc(Temp)。 //指定工作組名稱(chēng) := RESOURCEDISPLAYTYPE_SERVER。 下面是我對(duì) TIdUDPClient 和 TIdUDPServer 組件的設(shè)置圖： 圖 9 TIdUDPClient組件設(shè)置 圖 10 TIdUDPServer組件設(shè)置 用戶(hù)信息顯示功能 為了方便用戶(hù)選取單個(gè)用戶(hù)進(jìn)行信息發(fā)送和查看在線(xiàn)用戶(hù)的信息，所以設(shè)計(jì)了一個(gè) ListView 來(lái)進(jìn)行顯示如圖 5，在 ListView 中包括了用戶(hù)名、工作組、 IP地址。其中廣 播按鈕是將信息窗體中的內(nèi)容發(fā)送到所有的用戶(hù)；發(fā)送按鈕是將信息窗體中的內(nèi)容發(fā)送到指定的用戶(hù)；在線(xiàn)用戶(hù)顯示框中選取指定的用戶(hù)和查看用戶(hù)的信息；刷新是重載用戶(hù)列表。為防止廣播風(fēng)暴的發(fā)生，需要細(xì)心配置網(wǎng)絡(luò)以阻止非法廣播信息的進(jìn)入。廣播傳輸通常在局域網(wǎng)（如以太網(wǎng)）中進(jìn)行，但有時(shí)也發(fā)生在虛擬局域網(wǎng)（ VLAN）中。與 TCP 不同， UDP 并不提供對(duì) IP 協(xié)議的可靠機(jī)制、流控制以及錯(cuò)誤恢復(fù)功能等。即時(shí)通信行業(yè) 出現(xiàn)了 連續(xù)多年高速 的 增長(zhǎng)。 Unicast。本課題設(shè)計(jì)主要針對(duì)局域網(wǎng)通訊而開(kāi)發(fā)設(shè)計(jì)的，采用的是 C/S 構(gòu)架，利用 Delphi 編程工具來(lái)實(shí)現(xiàn)單播、廣播以及在線(xiàn)用戶(hù)顯示和查看歷史記錄的功能 ，并借 助一些網(wǎng)絡(luò)通訊組件，成功的實(shí)現(xiàn)了在局域網(wǎng)上的即時(shí)通訊。目前，用于實(shí)現(xiàn)單一的即時(shí)通訊、文件共享的軟件實(shí)在太少，而且它們中大部分都對(duì)遠(yuǎn)程服務(wù)器有非常大的依賴(lài)性，沒(méi)有徹 底實(shí)現(xiàn)點(diǎn)對(duì)點(diǎn)的交流。它是軟件系統(tǒng)體系結(jié)構(gòu)，通過(guò)它可以充分利用兩端硬件環(huán)境的優(yōu)勢(shì)，將任務(wù)合理分配到Client 端和 Server 端來(lái)實(shí)現(xiàn)，降低了系統(tǒng)的通訊開(kāi)銷(xiāo)。單播方式下，只有一個(gè)發(fā)送方和一個(gè)接收方。 網(wǎng)絡(luò)廣播中涉及以下重要概念： 廣播域（ Broadcast Domain）：這是一個(gè)限定區(qū)域，其中的所有設(shè)備都可以共享信息。同屬于消息類(lèi)的業(yè)務(wù)還有短信、彩信等，他們之間都存在一定程度的替代性，同時(shí)又各有長(zhǎng)短。 TCP 用于確保點(diǎn)對(duì)點(diǎn)的連接，而 UDP 并不保證發(fā)送的數(shù)據(jù)一定到達(dá)，也不表明數(shù)據(jù)報(bào)的傳輸成功或失敗。 type TNetResourceArray = ^TNetResource。 //執(zhí)行失敗 While True Do//列舉指定工作組的網(wǎng)絡(luò)資源 Begin Count := $FFFFFFFF。//執(zhí)行失敗 Result := True。 //申請(qǐng)內(nèi)存，用于獲取工作組信息 //獲取一個(gè)網(wǎng)絡(luò)類(lèi)型的文件資源信息 Res := WNetEnumResource(lphEnum, Count, Pointer(Buf), BufSize)。ABinding: TIdSocketHandle)。+recvip+inttostr(recvport))。 下面是發(fā)送按鈕的代碼部分： procedure (Sender: TObject)。 recvp2pdata(recvip,recvname,recvworkgroup,recvport)。 minfo:string。 _ToIp:=[1]。%6s%4d%255s39。 :=INTTOSTR()。CHAT39。 end。 writeln(f,39。 end?？傊ㄟ^(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è)方向去努力。 （ 5）學(xué)?？梢怨紝W(xué)位論文的全部或部分內(nèi)容（保密學(xué)位論文在解密后遵守此規(guī)定）。 [6] (美 ) ：協(xié)議 [M]. 北京：機(jī)械工業(yè)出版社 ,2020。 測(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è)試的。時(shí)間： 39。 rewrite(F)。 :=myname。 begin for i:=0 to do begin if myname then inc(j,1)。 :=INTTOSTR()。,myname,])。 :=RECVNAME。)。 f:textfile。 //添加對(duì)方返回的自己的 ip (對(duì)比 ) if head=39。 (readbuf,sizeof(readbuf))。 end。 //一個(gè)無(wú)符號(hào)的，占四個(gè)字節(jié)（ 32）的整型 //句柄類(lèi)型 lphEnum : THandle。 //執(zhí)行失敗 Temp := TNetResourceArray(Buf)。 Temp: TNetResourceArray。由于 UDP 是無(wú)連接的，因此在 UDP 的接口方法中不包括 Connect 方法。并且避免了服務(wù)器忙或與服務(wù)器無(wú)法連接時(shí)浪費(fèi)過(guò)多時(shí)間用于和服務(wù)器建立連接，同時(shí)也為內(nèi)網(wǎng)服務(wù)增強(qiáng)了許多的安全性，徹底的將通訊工具從互連網(wǎng)上搬到內(nèi)網(wǎng)中來(lái)，這樣一來(lái)就不會(huì)受到來(lái)自互連網(wǎng)的攻擊了。 第 5 頁(yè) 共 25 頁(yè) 廣播地址（ Broadcast Address）：這是一個(gè)特殊地址，當(dāng)數(shù)據(jù)包可以尋址到該地址時(shí)，可以幫助所有設(shè)備打開(kāi)和處理信息。許多路由選擇協(xié)議如路由選擇信息協(xié)議（ RIP）和開(kāi)放最短路徑優(yōu)先（ OSPF），都支持高效 Inter 單播路由選擇過(guò)程。 UDP 協(xié)議基本上是 IP 協(xié)議與上層協(xié)議的接口。從 1997 年第一代即時(shí)通訊軟件誕生后發(fā)展到現(xiàn)在，即時(shí)通訊行業(yè)先后經(jīng)歷了文本通信（第一代）、語(yǔ)音交流（第二代）、視頻交流（第三代）和跨網(wǎng)溝通（第四代）等多種信息傳遞技術(shù)變革。 the third part is this system demand analysis。 the second part is the rationale knowledge which utilizes。 國(guó)內(nèi)外研究現(xiàn)狀 即時(shí)通訊的出現(xiàn)和互聯(lián)網(wǎng)有著密不可分的關(guān)系，從技術(shù)上來(lái)說(shuō)， IM 完全基于 TCP/IP網(wǎng)絡(luò)協(xié)議族實(shí)現(xiàn)，而 TCP/IP協(xié)議族是整個(gè)互聯(lián)網(wǎng)得以實(shí)現(xiàn)的技術(shù)基礎(chǔ)，最早期的即時(shí)通訊雛形可以追溯到芬蘭人 Jarkko Oikarinen于 1988年發(fā)明的一種網(wǎng)絡(luò)聊天協(xié)議 IRC（ Inter Relay Chat），該協(xié)議僅支持文本聊天，并且也不支持好友列表的概念， 1996 年第一個(gè) IM 產(chǎn)品 ICQ 發(fā)明后，即時(shí)通訊的技術(shù)和功能開(kāi)始基本成型，其工作原理開(kāi)始被人們所了解，但不同廠(chǎng)商實(shí)現(xiàn)即時(shí)通訊技術(shù)原理時(shí)采用的協(xié)議卻有較大的差異，甚至到目前為止世界主要的 IM 服務(wù)運(yùn)營(yíng)商 AOL(American Online：美國(guó)在線(xiàn) )仍然沒(méi)有公布其主 要即時(shí)通訊產(chǎn)品 AIM（ American Instant Messenger）的專(zhuān)用協(xié)議。 第 3 頁(yè) 共 25 頁(yè) 圖 1 客戶(hù)機(jī) /服務(wù)器計(jì)算結(jié)構(gòu) 用戶(hù)數(shù)據(jù)報(bào)協(xié)議（ UDP） 用戶(hù) 數(shù)據(jù)報(bào)協(xié)議（ UDP）是 ISO 參考模型中一種無(wú)連接的傳輸層協(xié)議，提供面向事務(wù)的簡(jiǎn) 單不可靠信息傳送服務(wù)。新版本的網(wǎng)際協(xié)議第六版（ IPv6）支持單播同時(shí)也支持任意播和組播類(lèi)型。此外通過(guò)虛擬局域網(wǎng)技術(shù)可以創(chuàng)建一個(gè)虛擬廣播域。 提出解決方案 根據(jù)企業(yè)在內(nèi)部網(wǎng)絡(luò)上信息交流的需求， 所以本課題就主要針對(duì)內(nèi)部的網(wǎng)絡(luò)來(lái)設(shè)計(jì)這樣的一個(gè)即時(shí)通訊系統(tǒng)，本系統(tǒng)是 在基于局域網(wǎng)的在 IM 客戶(hù)端和 IM服務(wù)器之間通訊采用的 UDP 協(xié)議和 C/S 軟件構(gòu)架技術(shù)上開(kāi)發(fā)的通訊工具，它在 近程的即時(shí)通訊時(shí)徹底的脫離了遠(yuǎn)程的服務(wù)器，不通過(guò)遠(yuǎn)程服務(wù)器來(lái)完成實(shí)現(xiàn)通訊，避免了和遠(yuǎn)程服務(wù)器連接時(shí)過(guò) 多的浪費(fèi)網(wǎng)絡(luò)資源。用來(lái)表示服務(wù)器的 IP地址和端口號(hào)。 Ind: Integer。 //資源列舉完畢 If (Res NO_ERROR) then Exit。 Count,BufSize,Res : DWORD。 end。 begin ZeroMemory(readbuf[0],2030)。 end。 tempItem:TListItem。hand recv39。 if j= then begin tempItem:= 。CHAT39。 (recvip,recvport,minfobuf,sizeof(minfobuf))。 i,j:integer。 begin tempItem:= 。 assignfile(f,)。+datetostr(now)+timetostr(now)) else writeln(f,39。也可以根據(jù)自己的需要修改部件或用 Delphi 本身編寫(xiě)自己的部件，能提供方便、快捷的 Windows 應(yīng)用程序開(kāi)發(fā)環(huán)境，本程序也基本是借助與那些組件來(lái)編寫(xiě)的。 [5] 肖建 .Delphi 6 編程基礎(chǔ) [M].北京：清華大學(xué) 出版社 ,。 除非另有科研合同和其他法律文書(shū)的制約，本論文的科研成果屬于成都信息工程學(xué)院。 參考文獻(xiàn) [1] 劉華 .黑魔方 Delphi