【正文】 基礎(chǔ)教程 [M].北京：清華大學(xué)出版社 ,。 end。發(fā)往： 39。 end。,myname,])。 end。,[39。 //獲取通用對(duì)話(huà)框文件名和導(dǎo)出僅選中的記錄 _ToPORT:=9000。 tempitem:tlistitem。 end。 var //myinfobuf:array[0..1023]of char。 recvname:=copy(msg,headlen+1,namelen)。 var readbuf:array[0..2030]of char。 if ( Res = ERROR_NO_MORE_ITEMS ) //資源列舉完畢 or (Res NO_ERROR) //執(zhí)行失敗 then break。 FreeMem(Buf)。 //不限資源數(shù)目 BufSize := 8192。 //網(wǎng)絡(luò)類(lèi)型的數(shù)組 Var NetResource: TNetResource。 本系統(tǒng)設(shè)計(jì)使用的是 TIdUDPClient 和 TIdUDPServer 兩個(gè)用戶(hù)數(shù)據(jù)報(bào)（ UDP）組件，首先創(chuàng)建 Delphi 工程。但不會(huì)成為那些大中型企業(yè)內(nèi)部的主要通訊工具，在企業(yè)中要求很簡(jiǎn)單，能確?？焖僬５募磿r(shí)通訊，還要具有很好的安全性，這樣才能提高工作效率，增加企業(yè)的效益。換句話(huà)說(shuō)，與網(wǎng)絡(luò)相連，且負(fù)責(zé)接收廣播的所有設(shè)備都是同 一廣播域的一部分。與之比較，組播是指單個(gè)發(fā)送方對(duì)應(yīng)一組選定接收方的一種通信，任意播是 指任意發(fā)送方對(duì)應(yīng)一組較為接近的接收方間的一種通信。目前大多數(shù)應(yīng)用軟件系統(tǒng)都是 Client/Server 形式的兩層結(jié)構(gòu)，由于現(xiàn)在的軟件應(yīng)用系統(tǒng)正在向分布式的 Web 應(yīng)用發(fā)展， Web 和 Client/Server 應(yīng)用都可以進(jìn)行同樣的業(yè)務(wù)處理，應(yīng)用不同的模塊共享邏輯組件；因此，內(nèi)部的和外部的用戶(hù)都可以訪問(wèn)新的和現(xiàn)有的應(yīng)用系統(tǒng)，通過(guò)現(xiàn)有應(yīng)用系統(tǒng)中的邏輯可以擴(kuò)展出新 的應(yīng)用系統(tǒng)。為此，我們決定開(kāi)發(fā)一個(gè)專(zhuān)用于實(shí)現(xiàn)基于局域網(wǎng)內(nèi)部計(jì)算機(jī)之間即時(shí)通訊、文件傳輸?shù)能浖苑奖銉?nèi)網(wǎng)計(jì)算機(jī)之間信息的交流。本論文共分為六部分。 C/S structure。新浪斥資近兩億元收購(gòu) UC 即時(shí)通訊技術(shù)平臺(tái)，微軟的 MSN 加大了中國(guó)市場(chǎng)的攻勢(shì)， TOMSKYPE 高調(diào)推出 ?? 。源端口號(hào)標(biāo)識(shí)了請(qǐng)求域名服務(wù)的本地機(jī)的應(yīng)用程序，同時(shí)需要將所有由目的站生成的響應(yīng)包都指定到源主機(jī)的這個(gè)端口上。組播是一種特殊的廣播，其中一組請(qǐng)求收聽(tīng)的選定用戶(hù)將收到廣播。隨著網(wǎng)絡(luò)數(shù)據(jù)包數(shù)量的增加，廣播風(fēng)暴可能會(huì)引起網(wǎng)絡(luò)擁塞問(wèn)題。發(fā)送模塊：?jiǎn)尾ツK，廣播模塊，用戶(hù)信息模塊，信息記錄模塊接收模塊：接收信息模塊，查看信息模塊 有了以上的了解了那讓我們來(lái)看看系統(tǒng)的架構(gòu)圖： 第 7 頁(yè) 共 25 頁(yè) 圖 4 系統(tǒng)架構(gòu)圖 界面設(shè)計(jì) 為了方便用戶(hù)的操作，我采用比較簡(jiǎn)單的界面設(shè)計(jì)，主界面包括廣播按鈕、發(fā)送按鈕、刷新按鈕、在線(xiàn)用戶(hù)顯示框、信息輸入窗體。為實(shí)現(xiàn)服務(wù) 第 10 頁(yè) 共 25 頁(yè) 器，程序?qū)⒈O(jiān)聽(tīng) DefaultPort 端口上的廣播，并將 設(shè)置為T(mén)rue。 //初始化網(wǎng)絡(luò)層次信息 := GroupName[1]。 (tmpstr)。 //返回局域網(wǎng)中的工作組名稱(chēng) ………… //列出一個(gè)網(wǎng)絡(luò)類(lèi)型中的所有工作組名稱(chēng) begin NetResource := TNetResource([J]^)。 Result := True。 //添加對(duì)方 IP IP 2. 發(fā)出 Hand 握手信息 if head=39。)。hand recv39。 recvport:=9000。請(qǐng)選擇消息接收者！ 39。 end。 var tempitem:tlistitem。 var chatinfo:string。 end else exit。39。)。 測(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ā) 單播和廣播信息的功能。文中除了特別加以標(biāo)注地方外，不包含他人已經(jīng)發(fā)表或撰寫(xiě)過(guò)的研究成果，也不包含為獲得成都信息工程學(xué)院或其他教學(xué)機(jī)構(gòu)的學(xué)位或證書(shū)而使用過(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ù)印件。但是系統(tǒng)還有是存在一些不足的地方存在： 只是單一的傳輸文本信息，還不能對(duì)圖片格式等進(jìn)行傳輸 沒(méi)有針對(duì)信息進(jìn)行加密發(fā)送，這樣不能保證所發(fā)送和接收的信息百分之百的安全； 沒(méi)有設(shè)計(jì)用戶(hù)登錄 界面，使本系統(tǒng)的使用方面還存在安全問(wèn)題。 writeln(f,39。 if fileexists()then append(f) else rewrite(F)。 :=INTTOSTR()。 f:textfile。 :=revname。 if then (recvip)。提 示 39。 end。 RECVNAME:=COPY(msg,headlen+1,namelen)。 recvip:=copy(msg,headlen+portlen+1,iplen)。 then begin recvip:=。 。 if Res NO_ERROR then break。 end。//類(lèi)型為服務(wù)器（工作組） := RESOURCEUSAGE_CONTAINER。當(dāng)有用戶(hù)打開(kāi)本系統(tǒng)的時(shí)候?qū)?huì)向局域網(wǎng)中的所有用戶(hù)發(fā)送一個(gè)握手信息來(lái)獲取網(wǎng)絡(luò)中的在線(xiàn)用戶(hù)信息并添加到列表中顯示出來(lái)，同時(shí)也把自己的網(wǎng)絡(luò)資源 信息發(fā)送給對(duì)方，使自己被添加到其他用戶(hù)的列表中。 系統(tǒng)主界面 （服務(wù)器 /客戶(hù)） 單 播 發(fā) 送 廣 播 發(fā) 送 接 收 信 息 顯示用戶(hù)信息 信 息 寫(xiě) 入 查看歷史記錄 工 作 組 IP 地 址 用 戶(hù) 名 第 8 頁(yè) 共 25 頁(yè) 圖 5 主界面 當(dāng)有信息傳過(guò)來(lái)時(shí)將自動(dòng)彈出一個(gè)信息接收的窗體，窗體包括查看按鈕和關(guān)閉按鈕還有一個(gè)顯示對(duì)方用戶(hù)的區(qū)域，他們分別是用來(lái)打開(kāi)并查看信息或是不想查看而關(guān)閉的作用。 圖 3 廣播 物理結(jié)構(gòu)圖 3 需求分析 現(xiàn)行業(yè)務(wù)系統(tǒng)描述 隨著計(jì)算機(jī)網(wǎng)絡(luò)日新月異的發(fā)展，人們的交流方式越來(lái)越多，傳統(tǒng)的交流方式如：信件、電報(bào)、電話(huà)等已經(jīng)難以滿(mǎn)足人們的交流要求，在互聯(lián)網(wǎng)上即時(shí)的和好友取得聯(lián)系，已經(jīng)成為當(dāng)今社會(huì)人們主流的聯(lián) 系方式。 IPv6 支持單播（ Unicast）、組播（ Multicast）以及任意 播（ Anycast）三種類(lèi)型， IPv6 中沒(méi)有關(guān)于廣播（ Broadcast）的具體劃分，而是作為組播的一個(gè)典型。由于 UDP 比較簡(jiǎn)單， UDP 頭包含很少的字節(jié)，比 TCP 負(fù)載消耗少 ，所以 UDP 適用于不需要 TCP 可靠機(jī)制的情形，比如，當(dāng)高層協(xié)議或應(yīng)用程序提供錯(cuò)誤和流控制功能的時(shí)候。 本課題研究的意義 隨著現(xiàn)代通訊技術(shù)不斷的發(fā)展，即時(shí)通訊技術(shù)也有飛速的發(fā)展，它是一種使人們能在網(wǎng)上識(shí)別在線(xiàn)用戶(hù)并與他們實(shí)時(shí)交換消息的技術(shù)，被很多人稱(chēng)為電子郵件發(fā)明以來(lái)最酷的在線(xiàn)通訊方式。 Broadcast。由于互連網(wǎng)上的網(wǎng)絡(luò)通訊工具給企業(yè)內(nèi)部信息交流帶來(lái)了不便，所以為了方便 內(nèi)部網(wǎng)絡(luò)的用戶(hù)之間的溝通 ，需要開(kāi)發(fā)一個(gè)基于局域網(wǎng)的信息收發(fā)系統(tǒng)的即時(shí)通訊工具，實(shí)現(xiàn)在 內(nèi)部網(wǎng)絡(luò) 中進(jìn)行信息的交流。因此出現(xiàn)了 、 UC 等聊天工具，然而 、 UC 等聊天工具雖然方便、實(shí)用，但是，娛樂(lè)功能太多，有很多吸引人的娛樂(lè)功能，從一定程度上來(lái)說(shuō)，是一種娛樂(lè)工具，不能作為用于即時(shí)通訊、文件共享的專(zhuān)用工具。 2 理論基礎(chǔ) C/S軟件架構(gòu)技術(shù) C/S（ Client/Server）結(jié)構(gòu)，即大家熟知的客戶(hù)機(jī)和服務(wù)器結(jié)構(gòu)。單播流量地址唯一。有些路由選擇協(xié)議，如 RIP，主要用于支持網(wǎng)絡(luò)設(shè)備 “Advertise” 網(wǎng)絡(luò)服務(wù)。這些即時(shí)通訊業(yè)務(wù)屬于基礎(chǔ)語(yǔ)音業(yè)務(wù)外的數(shù)據(jù)增值類(lèi)業(yè)務(wù)，從范疇來(lái)講屬于“消息類(lèi)”業(yè)務(wù)，本質(zhì)是完成對(duì)“文字、聲音、圖像”信息的傳遞。 圖 8 歷史記錄 系統(tǒng)功能模塊設(shè)計(jì) 網(wǎng)絡(luò)組件 UDP 協(xié)議由 TCP 協(xié)議衍生而來(lái)。List : TStringList) : Boolean。 If Res NO_ERROR then Exit。//關(guān)閉一次列舉 If Res NO_ERROR then exit。 //緩沖區(qū)大小設(shè)置為 8K GetMem(Buf, BufSize)。 AData: TStream。login recv39。 第 14 頁(yè) 共 25 頁(yè) 局域網(wǎng)內(nèi)實(shí)現(xiàn)單播功能 在本 設(shè)計(jì)中單播發(fā)送的按鈕為 BitBtn2，主要是通過(guò) IdUDPServer 和IdUDPClient 組件來(lái)編寫(xiě)的，由 語(yǔ)句來(lái)發(fā)送的，主要是對(duì)局域網(wǎng)內(nèi)部的同一工作組用戶(hù)發(fā)送信息。 recvport:=9000。 var minfobuf:array[0..1023]of char。 end。 minfo:=format(39。 if then (revip)。,[39。 begin if then begin :=。)。 closefi