【正文】 息procedure (Sender: TObject)。,myname,])。 if then (recvip)。 end。 ???? begin if 39。發(fā)往： 39。39。 end。 要是想對通訊的內(nèi)容進(jìn)行記錄，則在歷史記錄窗體上選擇保存通訊記錄的路徑，點(diǎn)擊確認(rèn)按鈕，便會在選擇的路徑里生成一個文本文件用來保存用戶的通訊記錄了，在點(diǎn)擊托盤區(qū)圖標(biāo)選擇查看記錄，如圖 15： 圖 15 通訊記錄界面 第 22 頁 共 25 頁 最后是退出，退出只能點(diǎn)擊托盤區(qū)的圖標(biāo)來退出，當(dāng)關(guān)閉了其中一個用戶的時候，其他的用戶列表中自動會將該用戶的用戶信息給刪除，這表明此用戶已經(jīng)下線離開了。 參考文獻(xiàn) [1] 劉華 .黑魔方 Delphi 基礎(chǔ)教程 [M].北京：清華大學(xué)出版社 ,。在此向他表示我最衷心的感謝！ 在論文完成過程中，本人還得到了其他老師和許多同學(xué)的熱心幫助，本人向他們表示深深的謝意！ 最后向在百忙之中評審本文的各位專家、老師表示衷心的感謝！ 作者簡介： 姓 名：張蜀程 性別： 男 出生年月： 1985 年 01 月 27 日 民族： 漢族 Email: 第 25 頁 共 25 頁 聲 明 本論文的工作是 2020 年 02 月至 2020 年 06 月在成都信息工程學(xué)院網(wǎng)絡(luò)工程系完成的。 除非另有科研合同和其他法律文書的制約，本論文的科研成果屬于成都信息工程學(xué)院。 （ 2）學(xué)校可以采用影印、縮印或其他復(fù)制方式保存學(xué)位論文。 [5] 肖建 .Delphi 6 編程基礎(chǔ) [M].北京：清華大學(xué) 出版社 ,。但是我會在以后的工作學(xué)習(xí)中逐步解決這些問題，不斷完善這個系統(tǒng)，使它更具實(shí)用性的。也可以根據(jù)自己的需要修改部件或用 Delphi 本身編寫自己的部件，能提供方便、快捷的 Windows 應(yīng)用程序開發(fā)環(huán)境，本程序也基本是借助與那些組件來編寫的。=====================================39。+datetostr(now)+timetostr(now)) else writeln(f,39。 writeln(f,39。 assignfile(f,)。 end。 begin tempItem:= 。 begin chatinfo:=format(39。 i,j:integer。 if then (revworkgroup)。 (recvip,recvport,minfobuf,sizeof(minfobuf))。 end else exit。CHAT39。,0)。 if j= then begin tempItem:= 。 第 15 頁 共 25 頁 由于是單播所以需要指定用戶，而用戶是由 ListView 中顯示的，則要對其進(jìn)行顯示并能選取，通過客服端來讓主機(jī)服務(wù)器響應(yīng)，實(shí)現(xiàn)代碼主要如下： Function (recvip,recvname,recvworkgroup:string。hand recv39。 recvworkgroup:=copy(msg,headlen+namelen+1,workglen)。 tempItem:TListItem。 recvlog(recvip,recvport)。 end。 recvport:=9000。 begin ZeroMemory(readbuf[0],2030)。 end。 end。//執(zhí)行失敗 while true do//列舉一個網(wǎng)絡(luò)類型的所有工作組的信息 begin Count := $FFFFFFFF。 Count,BufSize,Res : DWORD。 end。 //資源列舉完畢 If (Res NO_ERROR) then Exit。 //已連接機(jī)器 := RESOURCETYPE_DISK。 Ind: Integer。 其中分別要對網(wǎng)絡(luò)中的所有的用戶名、工作組、 IP 地址進(jìn)行獲取，下面來看一下對于獲取這些網(wǎng)絡(luò)資源的代碼部分。用來表示服務(wù)器的 IP地址和端口號。 圖 6 信息接收界面 如過你在圖 6 中點(diǎn)擊了查看按鈕，那么將會彈到顯示信息查看的窗體上，在文本區(qū)則會顯示對方傳送過來的信息內(nèi)容，在查看了之后有個關(guān)閉按鈕，用來結(jié)束對話 框，便可以回到圖 5 的界面了。 提出解決方案 根據(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ā)的通訊工具，它在 近程的即時通訊時徹底的脫離了遠(yuǎn)程的服務(wù)器，不通過遠(yuǎn)程服務(wù)器來完成實(shí)現(xiàn)通訊，避免了和遠(yuǎn)程服務(wù)器連接時過 多的浪費(fèi)網(wǎng)絡(luò)資源。兩臺計算機(jī)之間進(jìn)行即時通訊、發(fā)送文件等交流方式已經(jīng)成為時代的潮流。此外通過虛擬局域網(wǎng)技術(shù)可以創(chuàng)建一個虛擬廣播域。 生成廣播信息的應(yīng)用程序包括地址解析協(xié)議（ ARP）。新版本的網(wǎng)際協(xié)議第六版（ IPv6）支持單播同時也支持任意播和組播類型。 UDP 是傳輸層協(xié)議，服務(wù)于很多知名應(yīng)用層協(xié)議，包括網(wǎng)絡(luò)文件系統(tǒng)（ NFS）、簡單網(wǎng)絡(luò)管理協(xié)議（ SNMP）、域名系統(tǒng)（ DNS）以及簡單文件傳輸系統(tǒng)（ TFTP）。 第 3 頁 共 25 頁 圖 1 客戶機(jī) /服務(wù)器計算結(jié)構(gòu) 用戶數(shù)據(jù)報協(xié)議（ UDP） 用戶 數(shù)據(jù)報協(xié)議（ UDP）是 ISO 參考模型中一種無連接的傳輸層協(xié)議，提供面向事務(wù)的簡 單不可靠信息傳送服務(wù)。但是為了提高通訊的質(zhì)量，很多 企業(yè)在網(wǎng)絡(luò)上進(jìn)行即時通訊時一般都不會采用 Inter 上的即時通訊軟件，如 、 MSN、 OICQ等。 國內(nèi)外研究現(xiàn)狀 即時通訊的出現(xiàn)和互聯(lián)網(wǎng)有著密不可分的關(guān)系，從技術(shù)上來說， IM 完全基于 TCP/IP網(wǎng)絡(luò)協(xié)議族實(shí)現(xiàn)，而 TCP/IP協(xié)議族是整個互聯(lián)網(wǎng)得以實(shí)現(xiàn)的技術(shù)基礎(chǔ)，最早期的即時通訊雛形可以追溯到芬蘭人 Jarkko Oikarinen于 1988年發(fā)明的一種網(wǎng)絡(luò)聊天協(xié)議 IRC（ Inter Relay Chat），該協(xié)議僅支持文本聊天，并且也不支持好友列表的概念， 1996 年第一個 IM 產(chǎn)品 ICQ 發(fā)明后，即時通訊的技術(shù)和功能開始基本成型，其工作原理開始被人們所了解，但不同廠商實(shí)現(xiàn)即時通訊技術(shù)原理時采用的協(xié)議卻有較大的差異，甚至到目前為止世界主要的 IM 服務(wù)運(yùn)營商 AOL(American Online：美國在線 )仍然沒有公布其主 要即時通訊產(chǎn)品 AIM（ American Instant Messenger）的專用協(xié)議。 Historic record 目 錄 論文總頁數(shù)： 25頁 1 引言 ................................................................... 1 課題的背景 ......................................................... 1 國內(nèi)外研究現(xiàn)狀 ...................................................... 1 本課題研究的意義 .................................................... 2 2 理論基礎(chǔ) ............................................................... 2 C/S軟件架構(gòu)技術(shù) .................................................... 2 用戶數(shù)據(jù)報協(xié)議（ UDP） ............................................... 3 單播（ UNICAST） ...................................................... 3 廣播（ BROADCAST） .................................................... 4 3 需求分析 ............................................................... 5 現(xiàn)行業(yè)務(wù)系統(tǒng)描述 .................................................... 5 現(xiàn)行系統(tǒng)存在的主要問題分析 .......................................... 5 提出解決方案 ....................................................... 6 4 系統(tǒng)設(shè)計 ............................................................... 6 系統(tǒng)總體架構(gòu) ....................................................... 6 界面設(shè)計 ........................................................... 7 系統(tǒng)功能模塊設(shè)計 .................................................... 9 網(wǎng)絡(luò)組件 ....................................................... 9 用戶信息顯示功能 ............................................... 10 局域網(wǎng)內(nèi)實(shí)現(xiàn)單播功能 ........................................... 14 局域網(wǎng)內(nèi)實(shí)現(xiàn)廣播功能 ........................................... 17 歷史信息記錄