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