【正文】 NTTOSTR()。 begin showmessage()。 if fileexists()then append(f) else rewrite(F)。時間： 39。 writeln(f,39。對于編程軟件的選擇主要是采用 Delphi7 來編寫和編譯程序的，因為考慮到 Delphi 是具有可視化的一個編程環(huán)境， Delphi 它提供了 500多個可供使用的構(gòu)件，利用這些部件可以快速地構(gòu)造出應(yīng)用系統(tǒng)。但是系統(tǒng)還有是存在一些不足的地方存在： 只是單一的傳輸文本信息，還不能對圖片格式等進行傳輸 沒有針對信息進行加密發(fā)送，這樣不能保證所發(fā)送和接收的信息百分之百的安全； 沒有設(shè)計用戶登錄 界面，使本系統(tǒng)的使用方面還存在安全問題。 [4] 鮑敏 ,吳昊 .Delphi 網(wǎng)絡(luò)高級編程 [M].北京：人民郵電出版社 ,。 關(guān)于學(xué)位論文使用權(quán)和研究成果知識產(chǎn)權(quán)的說明： 本人完全了解成都信息工程學(xué)院有關(guān)保管使用學(xué)位論文的規(guī)定，其中包括： （ 1）學(xué)校有權(quán)保管并向有關(guān)部門遞交學(xué)位論文的原件與復(fù)印件。 特此聲明！ 作者簽名： 2020 年 月 日 。文中除了特別加以標注地方外，不包含他人已經(jīng)發(fā)表或撰寫過的研究成果，也不包含為獲得成都信息工程學(xué)院或其他教學(xué)機構(gòu)的學(xué)位或證書而使用過的材料。 [2] 飛思科技產(chǎn)品研發(fā)中心 .Delphi 網(wǎng)絡(luò)高級編程 [M].北京：電子工業(yè)出版社 ,。 測試結(jié)果 經(jīng)過多次在局域網(wǎng)中進行測試，本設(shè)計的基本功能都在測試中得到了體現(xiàn)，下面就是我在整個測試的過程中得到的一些測試結(jié)果： 1. 在局域網(wǎng) 內(nèi)能完整傳輸所發(fā)的信息，不會出現(xiàn)信息丟失或亂碼等情況 2. 在測試的時候如果開了防火墻很可能不能顯示工作組，但并不會影響到信息的發(fā)送和接收 3. 在發(fā)送廣播信息時是對所有用戶發(fā)送信息，包括自己也會收到廣播信息 4. 當進入系統(tǒng)后便能自動更新顯示在線用戶信息，用戶下線時能在顯示列表中也能自動刪除此用戶信息 5. 能對用戶在即時的通訊時的通訊信息進行記錄，方便用戶查看歷史的通訊信息 6. 通過測試還發(fā)現(xiàn)了用戶只能進行文本格式即時的通訊，不能發(fā)送圖片等格式的信息 7. 在發(fā)送信息時沒有能對信息進行加密后在發(fā)送 結(jié) 論 通過本次課題的研究，認識 到即時通訊工具在企業(yè)中起到了重要的作用，本系統(tǒng)實現(xiàn)了顯示在線用戶信息的功能，能夠查看到當前局域網(wǎng)中用戶的在線情況，并且可以對用戶的用戶名、工作組和 IP 地址的信息進行顯示 ；能保存歷史記錄的功能，可以方便用戶對歷史信息進行查看； 還實現(xiàn)了在局域網(wǎng)內(nèi)部 進行收發(fā) 單播和廣播信息的功能。 第 19 頁 共 25 頁 和廣播功能，還包含了顯示用戶信息、查看歷史信息等輔助功能。)。+_ToIp)。39。 procedure (Sender: TObject)。 end else exit。 strpcopy(chatinfobuf,chatinfo)。 var chatinfo:string。 procedure (recvip:string。 var tempitem:tlistitem。REVLOG39。 end。 chatinfo:=format(39。請選擇消息接收者！ 39。 i,j:integer。 recvport:=9000。 //處理握手信息 添加對方 ip 返回對方 ip if head=39。hand recv39。 _ToPORT:integer。)。 recvworkgroup:=copy(msg,headlen+namelen+1,length(msg))。 //添加對方 IP IP 2. 發(fā)出 Hand 握手信息 if head=39。 msg,head,recvip,recvname,recvworkgroup,recvmsg,memo:string。 Result := True。 P := TNetResourceArray(Buf)。 //返回局域網(wǎng)中的工作組名稱 ………… //列出一個網(wǎng)絡(luò)類型中的所有工作組名稱 begin NetResource := TNetResource([J]^)。 end。 (tmpstr)。 //緩沖區(qū)大小設(shè)置為 8K GetMem(Buf, BufSize)。 //初始化網(wǎng)絡(luò)層次信息 := GroupName[1]。 Buf: Pointer。為實現(xiàn)服務(wù) 第 10 頁 共 25 頁 器，程序?qū)⒈O(jiān)聽 DefaultPort 端口上的廣播，并將 設(shè)置為True。然后向工程組再添加一個工程。發(fā)送模塊：單播模塊，廣播模塊，用戶信息模塊，信息記錄模塊接收模塊：接收信息模塊，查看信息模塊 有了以上的了解了那讓我們來看看系統(tǒng)的架構(gòu)圖： 第 7 頁 共 25 頁 圖 4 系統(tǒng)架構(gòu)圖 界面設(shè)計 為了方便用戶的操作，我采用比較簡單的界面設(shè)計，主界面包括廣播按鈕、發(fā)送按鈕、刷新按鈕、在線用戶顯示框、信息輸入窗體。 現(xiàn)行系統(tǒng)存在的主要問題分析 目前，像 、 UC 等即時通訊工具雖然方便、實用，但是，娛樂功能太多， 第 6 頁 共 25 頁 有很多吸引人的娛樂功能，從一定程度上來說，是一種娛樂工具，不能作為用于作為即時通訊、文件共享的專用工具。隨著網(wǎng)絡(luò)數(shù)據(jù)包數(shù)量的增加，廣播風(fēng)暴可能會引起網(wǎng)絡(luò)擁塞問題。在一個共享以太網(wǎng)中，工作站通過共享媒體將幀廣播到其它所有節(jié)點。組播是一種特殊的廣播，其中一組請求收聽的選定用戶將收到廣播。早期的點對點通信含義類似于單播。源端口號標識了請求域名服務(wù)的本地機的應(yīng)用程序，同時需要將所有由目的站生成的響應(yīng)包都指定到源主機的這個端口上。這也就是目前應(yīng)用系統(tǒng)的發(fā)展方向。新浪斥資近兩億元收購 UC 即時通訊技術(shù)平臺，微軟的 MSN 加大了中國市場的攻勢， TOMSKYPE 高調(diào)推出 ?? 。本軟件屬于點對點連接的，在連接并通信時，尤其是近程的即時通訊，徹底的脫離了遠程的服務(wù)器，避免了和遠程服務(wù)器連接時過多的浪費網(wǎng)絡(luò)資源。 C/S structure。第一部分是課題的背景及研究意義；第二部分是所運用的理論基礎(chǔ)知識；第三部分是本系統(tǒng)的需求分析；第四部分是系統(tǒng)結(jié)構(gòu)和模塊設(shè)計；第五部是實施和測試情況；最后是本設(shè)計的結(jié)論總結(jié)及部分參考文獻。本論文共分為六部分。 finally is this design conclusion summary and the part reference. Key words: Instant message。為此，我們決定開發(fā)一個專用于實現(xiàn)基于局域網(wǎng)內(nèi)部計算機之間即時通訊、文件傳輸?shù)能浖?，以方便?nèi)網(wǎng)計算機之間信息的交流。而 在過去的 幾 年，行業(yè)的主導(dǎo)服務(wù)商騰 第 2 頁 共 25 頁 訊在香港成功上市，并在當年取得 55%的收入增長的佳績。目前大多數(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)。這是通過使用 UDP 的 “ 端口號 ” 完成的。與之比較，組播是指單個發(fā)送方對應(yīng)一組選定接收方的一種通信，任意播是 指任意發(fā)送方對應(yīng)一組較為接近的接收方間的一種通信。 圖 2 單播 物理結(jié)構(gòu) 圖 廣播 （ Broadcast） 網(wǎng)絡(luò)廣播是指一個節(jié)點同時向相同域中的其它所有節(jié)點傳輸數(shù)據(jù)包的過程。換句話說，與網(wǎng)絡(luò)相連，且負責接收廣播的所有設(shè)備都是同 一廣播域的一部分。 廣播風(fēng)暴（ Broadcast Storm）：當主機系統(tǒng)響應(yīng)一個在網(wǎng)上不斷循環(huán)的廣播數(shù)據(jù)包或者試圖響應(yīng)一個沒有應(yīng)答的系統(tǒng)時就會發(fā)生廣播風(fēng)暴。但不會成為那些大中型企業(yè)內(nèi)部的主要通訊工具，在企業(yè)中要求很簡單，能確?？焖僬５募磿r通訊，還要具有很好的安全性，這樣才能提高工作效率，增加企業(yè)的效益。 由此可以看出本系統(tǒng)主要分為兩大部分模塊：發(fā)送模塊和接收模塊。 本系統(tǒng)設(shè)計使用的是 TIdUDPClient 和 TIdUDPServer 兩個用戶數(shù)據(jù)報（ UDP）組件，首先創(chuàng)建 Delphi 工程。服務(wù)器是作為應(yīng)用程序?qū)崿F(xiàn)的，它對客戶程序發(fā)出的一個簡單的命令集進行響應(yīng)。 //網(wǎng)絡(luò)類型的數(shù)組 Var NetResource: TNetResource。 FillChar(NetResource, SizeOf(NetResource), 0)。 //不限資源數(shù)目 BufSize := 8192。 (tmpStr)。 FreeMem(Buf)。 NetworkTypeList : TList。 if ( Res = ERROR_NO_MORE_ITEMS ) //資源列舉完畢 or (Res NO_ERROR) //執(zhí)行失敗 then break。 //執(zhí)行失敗 end。 var readbuf:array[0..2030]of char。 head:=trim(copy(msg,1,headlen))。 recvname:=copy(msg,headlen+1,namelen)。revlog recv39。 var //myinfobuf:array[0..1023]of char。then Begin // (39。 end。 recvip:=。 tempitem:tlistitem。 //用戶列表選擇 if (not assigned(tempItem)) or (tempItem=nil) then begin MessageBox( ,39。 //獲取通用對話框文件名和導(dǎo)出僅選中的記錄 _ToPORT:=9000。 (_toip,_toport,chatinfobuf,sizeof(chatinfobuf))。,[39。revport:integer)。 end。 下面是發(fā)送按鈕的代碼部分： 歷史信息記錄功能 為了能讓用戶對歷 史的信息進行查看，所以本設(shè)計中包含了一個對歷史信