【正文】 （ 4）學(xué)?？稍试S學(xué)位論文被查閱或借閱。 [7] (美 )Paul 6 應(yīng)用開發(fā)指南 [M].北京：清華大學(xué)出版社 ,。從設(shè)計(jì)分析到設(shè)計(jì)編寫直到具體實(shí)現(xiàn)，在學(xué)校所學(xué)的理論知識(shí)對(duì)我有很大的幫助，我也發(fā)現(xiàn)了我的很多不足的地方。 設(shè)計(jì)測(cè)試的是同在一個(gè)局域網(wǎng)中，先將編譯好的程序復(fù)制到內(nèi)部網(wǎng)絡(luò)上的沒臺(tái)計(jì)算機(jī)上面，然后都將設(shè)計(jì)的系統(tǒng)打開運(yùn)行，這是觀察是否能顯示所有的在線用戶的信息，如果了防火墻之類的軟件正在運(yùn)行的話，很可能不能正常顯示工作組、 IP 等信息，所以最好是關(guān)閉防火墻。 closefile(f)。+datetostr(now)+timetostr(now))。)。 closefile(F)。 begin if then begin :=。 if then (myworkgroup)。,[39。 if j= then 第 17 頁 共 25 頁 IP 地址進(jìn)行顯示；由工作組進(jìn)行顯示，最后連接到表 Label2 中去。 if then (revip)。 end。 minfo:=format(39。 strpcopy(chatinfobuf,chatinfo)。 end。 if then (recvworkgroup)。 var minfobuf:array[0..1023]of char。 RECVNAME:=COPY(msg,headlen+1,namelen)。 recvport:=9000。 //處理握手信息 添加對(duì)方 ip 返回對(duì)方 ip if head=39。 第 14 頁 共 25 頁 局域網(wǎng)內(nèi)實(shí)現(xiàn)單播功能 在本 設(shè)計(jì)中單播發(fā)送的按鈕為 BitBtn2，主要是通過 IdUDPServer 和IdUDPClient 組件來編寫的，由 語句來發(fā)送的，主要是對(duì)局域網(wǎng)內(nèi)部的同一工作組用戶發(fā)送信息。REVLOG39。login recv39。 msg:=Trim(String(Pchar(Readbuf[0])))。 AData: TStream。 Res := WNetCloseEnum(lphEnum)。 //緩沖區(qū)大小設(shè)置為 8K GetMem(Buf, BufSize)。 p : TNetResourceArray。//關(guān)閉一次列舉 If Res NO_ERROR then exit。 For Ind := 0 to Count 1 do //列舉工作組的計(jì)算機(jī)名稱 Begin //獲取工作組的計(jì)算機(jī)名稱 tmpStr:=。 If Res NO_ERROR then Exit。 TmpStr:String。List : TStringList) : Boolean。要使用 Inter Direct 實(shí)現(xiàn)的組件，只需使用Send 向給定的 IP 地址和端口號(hào)廣播一個(gè)命令字符串。 圖 8 歷史記錄 系統(tǒng)功能模塊設(shè)計(jì) 網(wǎng)絡(luò)組件 UDP 協(xié)議由 TCP 協(xié)議衍生而來。這種系統(tǒng)主要是為了方便了大中型企業(yè)在內(nèi)部即時(shí)通訊要求，從而進(jìn)一步提高 工作效率，增加企業(yè)的效益 。這些即時(shí)通訊業(yè)務(wù)屬于基礎(chǔ)語音業(yè)務(wù)外的數(shù)據(jù)增值類業(yè)務(wù)，從范疇來講屬于“消息類”業(yè)務(wù)，本質(zhì)是完成對(duì)“文字、聲音、圖像”信息的傳遞。例如， MAC 地址，格式為 1xFFFFFFFF 是一種廣播地址； IP 地址 是通用廣播地址。有些路由選擇協(xié)議，如 RIP，主要用于支持網(wǎng)絡(luò)設(shè)備 “Advertise” 網(wǎng)絡(luò)服務(wù)。 而 IPv6 支持單播（ Unicast）、組播（ Multicast）和任意播（ Anycast）三種類型。單播流量地址唯一。 UDP 協(xié)議適用端口分辨運(yùn)行在同一臺(tái)設(shè)備上的多個(gè)應(yīng)用程序。 2 理論基礎(chǔ) C/S軟件架構(gòu)技術(shù) C/S（ Client/Server）結(jié)構(gòu)，即大家熟知的客戶機(jī)和服務(wù)器結(jié)構(gòu)。盡管第一代、第二代以及第三代即時(shí)通訊軟件的信息傳遞主要在互聯(lián)網(wǎng)范圍內(nèi)，但各個(gè)階段都可以看到即時(shí)通訊行業(yè)在跨網(wǎng)通訊領(lǐng)域中的應(yīng)用，在移動(dòng)即時(shí)信息進(jìn)一步深化應(yīng)用，跨網(wǎng)語音交流進(jìn)一步加強(qiáng)，跨網(wǎng)通訊領(lǐng)域的進(jìn)一步拓寬，都意味著真正意義的跨網(wǎng)即時(shí)通訊已發(fā)展成型。因此出現(xiàn)了 、 UC 等聊天工具，然而 、 UC 等聊天工具雖然方便、實(shí)用，但是，娛樂功能太多，有很多吸引人的娛樂功能，從一定程度上來說，是一種娛樂工具，不能作為用于即時(shí)通訊、文件共享的專用工具。 the fourth part is the system structure and the module design。由于互連網(wǎng)上的網(wǎng)絡(luò)通訊工具給企業(yè)內(nèi)部信息交流帶來了不便，所以為了方便 內(nèi)部網(wǎng)絡(luò)的用戶之間的溝通 ，需要開發(fā)一個(gè)基于局域網(wǎng)的信息收發(fā)系統(tǒng)的即時(shí)通訊工具，實(shí)現(xiàn)在 內(nèi)部網(wǎng)絡(luò) 中進(jìn)行信息的交流。s munication, needs to develop one based on the local area work information receiving and dispatching system instant message facilities, realizes carries on the information in the internal work the exchange. This topic design mainly aims at the local area work munication to develop the design, uses is the C/S structure, realizes the unicast, the broadcast as well as the online user demonstration and the examination historic record function using the Delphi programming tool, and drew support from some work munication module, the success realization on the local area work instant message. The present paper altogether divides into six parts. The first part is the topic background and the research significance。 Broadcast。因此，這個(gè)軟件是極具適應(yīng)性和實(shí)用性的即時(shí)通訊軟件。 本課題研究的意義 隨著現(xiàn)代通訊技術(shù)不斷的發(fā)展，即時(shí)通訊技術(shù)也有飛速的發(fā)展，它是一種使人們能在網(wǎng)上識(shí)別在線用戶并與他們實(shí)時(shí)交換消息的技術(shù)，被很多人稱為電子郵件發(fā)明以來最酷的在線通訊方式。由于沒能提供用戶真正期望的開放環(huán)境， C/S結(jié)構(gòu)的軟件需要針對(duì)不同的操作系統(tǒng)系統(tǒng)開發(fā)不同版本的軟件，加之產(chǎn)品的更新?lián)Q代十分快，已經(jīng)很難適應(yīng)百臺(tái)電腦以上局域網(wǎng)用戶同時(shí)使用。由于 UDP 比較簡單， UDP 頭包含很少的字節(jié)，比 TCP 負(fù)載消耗少 ，所以 UDP 適用于不需要 TCP 可靠機(jī)制的情形，比如，當(dāng)高層協(xié)議或應(yīng)用程序提供錯(cuò)誤和流控制功能的時(shí)候。所有 LANs（如以太網(wǎng)）和 IP 網(wǎng)絡(luò)都支持單播傳輸模式，并且大多數(shù)用戶都了解標(biāo)準(zhǔn)單播應(yīng)用程序，如： 、 第 4 頁 共 25 頁 smtp、 ftp 和 tel ― 都作為 TCP 傳輸協(xié)議。 IPv6 支持單播（ Unicast）、組播（ Multicast）以及任意 播（ Anycast）三種類型， IPv6 中沒有關(guān)于廣播（ Broadcast）的具體劃分，而是作為組播的一個(gè)典型。因此，共享以太網(wǎng)中的所有節(jié)點(diǎn)都屬于同一廣播域。 圖 3 廣播 物理結(jié)構(gòu)圖 3 需求分析 現(xiàn)行業(yè)務(wù)系統(tǒng)描述 隨著計(jì)算機(jī)網(wǎng)絡(luò)日新月異的發(fā)展，人們的交流方式越來越多，傳統(tǒng)的交流方式如：信件、電報(bào)、電話等已經(jīng)難以滿足人們的交流要求，在互聯(lián)網(wǎng)上即時(shí)的和好友取得聯(lián)系，已經(jīng)成為當(dāng)今社會(huì)人們主流的聯(lián) 系方式。為企業(yè)中的信息交流帶來了很大的安全性問題。 系統(tǒng)主界面 （服務(wù)器 /客戶） 單 播 發(fā) 送 廣 播 發(fā) 送 接 收 信 息 顯示用戶信息 信 息 寫 入 查看歷史記錄 工 作 組 IP 地 址 用 戶 名 第 8 頁 共 25 頁 圖 5 主界面 當(dāng)有信息傳過來時(shí)將自動(dòng)彈出一個(gè)信息接收的窗體，窗體包括查看按鈕和關(guān)閉按鈕還有一個(gè)顯示對(duì)方用戶的區(qū)域，他們分別是用來打開并查看信息或是不想查看而關(guān)閉的作用。為連接到 UDP 服務(wù)器，需要一個(gè) TIdUDPClient 組件。當(dāng)有用戶打開本系統(tǒng)的時(shí)候?qū)?huì)向局域網(wǎng)中的所有用戶發(fā)送一個(gè)握手信息來獲取網(wǎng)絡(luò)中的在線用戶信息并添加到列表中顯示出來，同時(shí)也把自己的網(wǎng)絡(luò)資源 信息發(fā)送給對(duì)方，使自己被添加到其他用戶的列表中。 lphEnum: THandle。//類型為服務(wù)器（工作組） := RESOURCEUSAGE_CONTAINER。 If Res = ERROR_NO_MORE_ITEMS then break。 end。 Buf : Pointer。 if Res NO_ERROR then break。//取得一個(gè)工作組的名稱 Inc(P)。 。 f:textfile。 then begin recvip:=。 handdata(recvip,myname,myworkgroup,recvport)。 recvip:=copy(msg,headlen+portlen+1,iplen)。 chatinfobuf:array[0..2030]of char。 RECVNAME:=COPY(msg,headlen+1,namelen)。then Begin // (39。 end。 for i:=0 to do begin if [i].CaptionRECVNAME then inc(j,1)。提 示 39。,[39。 if then (recvip)。 //返回對(duì)方 IP port strpcopy(minfobuf,minfo)。 :=revname。 var tempitem:tlistitem。 f:textfile。 end。 :=I