【正文】 除非另有科研合同和其他法律文書的制約，本論文的科研成果屬于成都信息工程學(xué)院。 （ 2）學(xué)?？梢圆捎糜坝?、縮印或其他復(fù)制方式保存學(xué)位論文。在此向他表示我最衷心的感謝！ 在論文完成過程中，本人還得到了其他老師和許多同學(xué)的熱心幫助，本人向他們表示深深的謝意！ 最后向在百忙之中評審本文的各位專家、老師表示衷心的感謝！ 作者簡介： 姓 名：張蜀程 性別： 男 出生年月： 1985 年 01 月 27 日 民族： 漢族 Email: 第 25 頁 共 25 頁 聲 明 本論文的工作是 2020 年 02 月至 2020 年 06 月在成都信息工程學(xué)院網(wǎng)絡(luò)工程系完成的。 [5] 肖建 .Delphi 6 編程基礎(chǔ) [M].北京：清華大學(xué) 出版社 ,。 參考文獻 [1] 劉華 .黑魔方 Delphi 基礎(chǔ)教程 [M].北京：清華大學(xué)出版社 ,。但是我會在以后的工作學(xué)習(xí)中逐步解決這些問題，不斷完善這個系統(tǒng)，使它更具實用性的。 要是想對通訊的內(nèi)容進行記錄，則在歷史記錄窗體上選擇保存通訊記錄的路徑，點擊確認(rèn)按鈕，便會在選擇的路徑里生成一個文本文件用來保存用戶的通訊記錄了，在點擊托盤區(qū)圖標(biāo)選擇查看記錄，如圖 15： 圖 15 通訊記錄界面 第 22 頁 共 25 頁 最后是退出，退出只能點擊托盤區(qū)的圖標(biāo)來退出，當(dāng)關(guān)閉了其中一個用戶的時候，其他的用戶列表中自動會將該用戶的用戶信息給刪除，這表明此用戶已經(jīng)下線離開了。也可以根據(jù)自己的需要修改部件或用 Delphi 本身編寫自己的部件，能提供方便、快捷的 Windows 應(yīng)用程序開發(fā)環(huán)境，本程序也基本是借助與那些組件來編寫的。 end。=====================================39。39。+datetostr(now)+timetostr(now)) else writeln(f,39。發(fā)往： 39。 writeln(f,39。 ???? begin if 39。 assignfile(f,)。 end。 end。 if then (recvip)。 begin tempItem:= 。,myname,])。 begin chatinfo:=format(39。 下面是發(fā)送按鈕的代碼部分： 歷史信息記錄功能 為了能讓用戶對歷 史的信息進行查看，所以本設(shè)計中包含了一個對歷史信息procedure (Sender: TObject)。 i,j:integer。 end。 if then (revworkgroup)。revport:integer)。 (recvip,recvport,minfobuf,sizeof(minfobuf))。,[39。 end else exit。 (_toip,_toport,chatinfobuf,sizeof(chatinfobuf))。CHAT39。 //獲取通用對話框文件名和導(dǎo)出僅選中的記錄 _ToPORT:=9000。,0)。 //用戶列表選擇 if (not assigned(tempItem)) or (tempItem=nil) then begin MessageBox( ,39。 if j= then begin tempItem:= 。 tempitem:tlistitem。 第 15 頁 共 25 頁 由于是單播所以需要指定用戶，而用戶是由 ListView 中顯示的，則要對其進行顯示并能選取，通過客服端來讓主機服務(wù)器響應(yīng)，實現(xiàn)代碼主要如下： Function (recvip,recvname,recvworkgroup:string。 recvip:=。hand recv39。 end。 recvworkgroup:=copy(msg,headlen+namelen+1,workglen)。then Begin // (39。 tempItem:TListItem。 var //myinfobuf:array[0..1023]of char。 recvlog(recvip,recvport)。revlog recv39。 end。 recvname:=copy(msg,headlen+1,namelen)。 recvport:=9000。 head:=trim(copy(msg,1,headlen))。 begin ZeroMemory(readbuf[0],2030)。 var readbuf:array[0..2030]of char。 end。 //執(zhí)行失敗 end。 end。 if ( Res = ERROR_NO_MORE_ITEMS ) //資源列舉完畢 or (Res NO_ERROR) //執(zhí)行失敗 then break。//執(zhí)行失敗 while true do//列舉一個網(wǎng)絡(luò)類型的所有工作組的信息 begin Count := $FFFFFFFF。 NetworkTypeList : TList。 Count,BufSize,Res : DWORD。 FreeMem(Buf)。 end。 (tmpStr)。 //資源列舉完畢 If (Res NO_ERROR) then Exit。 //不限資源數(shù)目 BufSize := 8192。 //已連接機器 := RESOURCETYPE_DISK。 FillChar(NetResource, SizeOf(NetResource), 0)。 Ind: Integer。 //網(wǎng)絡(luò)類型的數(shù)組 Var NetResource: TNetResource。 其中分別要對網(wǎng)絡(luò)中的所有的用戶名、工作組、 IP 地址進行獲取，下面來看一下對于獲取這些網(wǎng)絡(luò)資源的代碼部分。服務(wù)器是作為應(yīng)用程序?qū)崿F(xiàn)的，它對客戶程序發(fā)出的一個簡單的命令集進行響應(yīng)。用來表示服務(wù)器的 IP地址和端口號。 本系統(tǒng)設(shè)計使用的是 TIdUDPClient 和 TIdUDPServer 兩個用戶數(shù)據(jù)報（ UDP）組件，首先創(chuàng)建 Delphi 工程。 圖 6 信息接收界面 如過你在圖 6 中點擊了查看按鈕，那么將會彈到顯示信息查看的窗體上，在文本區(qū)則會顯示對方傳送過來的信息內(nèi)容，在查看了之后有個關(guān)閉按鈕，用來結(jié)束對話 框，便可以回到圖 5 的界面了。 由此可以看出本系統(tǒng)主要分為兩大部分模塊：發(fā)送模塊和接收模塊。 提出解決方案 根據(jù)企業(yè)在內(nèi)部網(wǎng)絡(luò)上信息交流的需求， 所以本課題就主要針對內(nèi)部的網(wǎng)絡(luò)來設(shè)計這樣的一個即時通訊系統(tǒng)，本系統(tǒng)是 在基于局域網(wǎng)的在 IM 客戶端和 IM服務(wù)器之間通訊采用的 UDP 協(xié)議和 C/S 軟件構(gòu)架技術(shù)上開發(fā)的通訊工具，它在 近程的即時通訊時徹底的脫離了遠程的服務(wù)器，不通過遠程服務(wù)器來完成實現(xiàn)通訊，避免了和遠程服務(wù)器連接時過 多的浪費網(wǎng)絡(luò)資源。但不會成為那些大中型企業(yè)內(nèi)部的主要通訊工具，在企業(yè)中要求很簡單，能確?？焖僬５募磿r通訊，還要具有很好的安全性，這樣才能提高工作效率，增加企業(yè)的效益。兩臺計算機之間進行即時通訊、發(fā)送文件等交流方式已經(jīng)成為時代的潮流。 廣播風(fēng)暴（ Broadcast Storm）：當(dāng)主機系統(tǒng)響應(yīng)一個在網(wǎng)上不斷循環(huán)的廣播數(shù)據(jù)包或者試圖響應(yīng)一個沒有應(yīng)答的系統(tǒng)時就會發(fā)生廣播風(fēng)暴。此外通過虛擬局域網(wǎng)技術(shù)可以創(chuàng)建一個虛擬廣播域。換句話說，與網(wǎng)絡(luò)相連，且負(fù)責(zé)接收廣播的所有設(shè)備都是同 一廣播域的一部分。 生成廣播信息的應(yīng)用程序包括地址解析協(xié)議（ ARP）。 圖 2 單播 物理結(jié)構(gòu) 圖 廣播 （ Broadcast） 網(wǎng)絡(luò)廣播是指一個節(jié)點同時向相同域中的其它所有節(jié)點傳輸數(shù)據(jù)包的過程。新版本的網(wǎng)際協(xié)議第六版（ IPv6）支持單播同時也支持任意播和組播類型。與之比較，組播是指單個發(fā)送方對應(yīng)一組選定接收方的一種通信，任意播是 指任意發(fā)送方對應(yīng)一組較為接近的接收方間的一種通信。 UDP 是傳輸層協(xié)議，服務(wù)于很多知名應(yīng)用層協(xié)議，包括網(wǎng)絡(luò)文件系統(tǒng)（ NFS）、簡單網(wǎng)絡(luò)管理協(xié)議（ SNMP）、域名系統(tǒng)（ DNS）以及簡單文件傳輸系統(tǒng)（ TFTP）。這是通過使用 UDP 的 “ 端口號 ” 完成的。 第 3 頁 共 25 頁 圖 1 客戶機 /服務(wù)器計算結(jié)構(gòu) 用戶數(shù)據(jù)報協(xié)議（ UDP） 用戶 數(shù)據(jù)報協(xié)議（ UDP）是 ISO 參考模型中一種無連接的傳輸層協(xié)議，提供面向事務(wù)的簡 單不可靠信息傳送服務(wù)。目前大多數(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)用都可以進行同樣的業(yè)務(wù)處理，應(yīng)用不同的模塊共享邏輯組件；因此，內(nèi)部的和外部的用戶都可以訪問新的和現(xiàn)有的應(yīng)用系統(tǒng)，通過現(xiàn)有應(yīng)用系統(tǒng)中的邏輯可以擴展出新 的應(yīng)用系統(tǒng)。但是為了提高通訊的質(zhì)量，很多 企業(yè)在網(wǎng)絡(luò)上進行即時通訊時一般都不會采用 Inter 上的即時通訊軟件，如 、 MSN、 OICQ等。而 在過去的 幾 年，行業(yè)的主導(dǎo)服務(wù)商騰 第 2 頁 共 25 頁 訊在香港成功上市，并在當(dāng)年取得 55%的收入增長的佳績。 國內(nèi)外研究現(xiàn)狀 即時通訊的出現(xiàn)和互聯(lián)網(wǎng)有著密不可分的關(guān)系，從技術(shù)上來說， IM 完全基于 TCP/IP網(wǎng)絡(luò)協(xié)議族實現(xiàn)，而 TCP/IP協(xié)議族是整個互聯(lián)網(wǎng)得以實現(xiàn)的技術(shù)基礎(chǔ)，最早期的即時通訊雛形可以追溯到芬蘭人 Jarkko Oikarinen于 1988年發(fā)明的一種網(wǎng)絡(luò)聊天協(xié)議 IRC（ Inter Relay Chat），該協(xié)議僅支持文本聊天，并且也不支持好友列表的概念， 1996 年第一個 IM 產(chǎn)品 ICQ 發(fā)明后，即時通訊的技術(shù)和功能開始基本成型，其工作原理開始被人們