【正文】 多吸引人的娛樂(lè)功能，從一定程度上來(lái)說(shuō)，是一種娛樂(lè)工具，不能作為用于即時(shí)通訊、文件共享的專(zhuān)用工具。為此，我們決定開(kāi)發(fā)一個(gè)專(zhuān)用于實(shí)現(xiàn)基于局域網(wǎng)內(nèi)部計(jì)算機(jī)之間即時(shí)通訊、文件傳輸?shù)能浖苑奖銉?nèi)網(wǎng)計(jì)算機(jī)之間信息的交流。并且避免了服務(wù)器忙或與服務(wù)器無(wú)法連接時(shí)，浪費(fèi)過(guò)多時(shí)間用于和服務(wù)器建立連接。 國(guó)內(nèi)外研究現(xiàn)狀 即時(shí)通訊的出現(xiàn)和互聯(lián)網(wǎng)有著密不可分的關(guān)系，從技術(shù)上來(lái)說(shuō)， IM 完全基于 TCP/IP網(wǎng)絡(luò)協(xié)議族實(shí)現(xiàn)，而 TCP/IP協(xié)議族是整個(gè)互聯(lián)網(wǎng)得以實(shí)現(xiàn)的技術(shù)基礎(chǔ)，最早期的即時(shí)通訊雛形可以追溯到芬蘭人 Jarkko Oikarinen于 1988年發(fā)明的一種網(wǎng)絡(luò)聊天協(xié)議 IRC（ Inter Relay Chat），該協(xié)議僅支持文本聊天，并且也不支持好友列表的概念， 1996 年第一個(gè) IM 產(chǎn)品 ICQ 發(fā)明后，即時(shí)通訊的技術(shù)和功能開(kāi)始基本成型，其工作原理開(kāi)始被人們所了解，但不同廠商實(shí)現(xiàn)即時(shí)通訊技術(shù)原理時(shí)采用的協(xié)議卻有較大的差異，甚至到目前為止世界主要的 IM 服務(wù)運(yùn)營(yíng)商 AOL(American Online：美國(guó)在線 )仍然沒(méi)有公布其主 要即時(shí)通訊產(chǎn)品 AIM（ American Instant Messenger）的專(zhuān)用協(xié)議。盡管第一代、第二代以及第三代即時(shí)通訊軟件的信息傳遞主要在互聯(lián)網(wǎng)范圍內(nèi)，但各個(gè)階段都可以看到即時(shí)通訊行業(yè)在跨網(wǎng)通訊領(lǐng)域中的應(yīng)用，在移動(dòng)即時(shí)信息進(jìn)一步深化應(yīng)用，跨網(wǎng)語(yǔ)音交流進(jìn)一步加強(qiáng)，跨網(wǎng)通訊領(lǐng)域的進(jìn)一步拓寬，都意味著真正意義的跨網(wǎng)即時(shí)通訊已發(fā)展成型。而 在過(guò)去的 幾 年，行業(yè)的主導(dǎo)服務(wù)商騰 第 2 頁(yè) 共 25 頁(yè) 訊在香港成功上市，并在當(dāng)年取得 55%的收入增長(zhǎng)的佳績(jī)。即時(shí)通信行業(yè) 出現(xiàn)了 連續(xù)多年高速 的 增長(zhǎng)。但是為了提高通訊的質(zhì)量，很多 企業(yè)在網(wǎng)絡(luò)上進(jìn)行即時(shí)通訊時(shí)一般都不會(huì)采用 Inter 上的即時(shí)通訊軟件，如 、 MSN、 OICQ等。 2 理論基礎(chǔ) C/S軟件架構(gòu)技術(shù) C/S（ Client/Server）結(jié)構(gòu)，即大家熟知的客戶(hù)機(jī)和服務(wù)器結(jié)構(gòu)。目前大多數(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)。 傳統(tǒng)的 C/S 體系結(jié)構(gòu)雖然采用的是開(kāi)放模式，但這只是系統(tǒng)開(kāi)發(fā)一級(jí)的開(kāi)放性，在特定的應(yīng)用中無(wú)論是 Client 端還是 Server 端都還需要特定的軟件支持。 第 3 頁(yè) 共 25 頁(yè) 圖 1 客戶(hù)機(jī) /服務(wù)器計(jì)算結(jié)構(gòu) 用戶(hù)數(shù)據(jù)報(bào)協(xié)議（ UDP） 用戶(hù) 數(shù)據(jù)報(bào)協(xié)議（ UDP）是 ISO 參考模型中一種無(wú)連接的傳輸層協(xié)議，提供面向事務(wù)的簡(jiǎn) 單不可靠信息傳送服務(wù)。 UDP 協(xié)議適用端口分辨運(yùn)行在同一臺(tái)設(shè)備上的多個(gè)應(yīng)用程序。這是通過(guò)使用 UDP 的 “ 端口號(hào) ” 完成的。與 TCP 不同， UDP 并不提供對(duì) IP 協(xié)議的可靠機(jī)制、流控制以及錯(cuò)誤恢復(fù)功能等。 UDP 是傳輸層協(xié)議，服務(wù)于很多知名應(yīng)用層協(xié)議，包括網(wǎng)絡(luò)文件系統(tǒng)（ NFS）、簡(jiǎn)單網(wǎng)絡(luò)管理協(xié)議（ SNMP）、域名系統(tǒng)（ DNS）以及簡(jiǎn)單文件傳輸系統(tǒng)（ TFTP）。單播流量地址唯一。與之比較，組播是指單個(gè)發(fā)送方對(duì)應(yīng)一組選定接收方的一種通信，任意播是 指任意發(fā)送方對(duì)應(yīng)一組較為接近的接收方間的一種通信。 單播傳輸是 LANs 傳輸中的主要使用方式。新版本的網(wǎng)際協(xié)議第六版（ IPv6）支持單播同時(shí)也支持任意播和組播類(lèi)型。 而 IPv6 支持單播（ Unicast）、組播（ Multicast）和任意播（ Anycast）三種類(lèi)型。 圖 2 單播 物理結(jié)構(gòu) 圖 廣播 （ Broadcast） 網(wǎng)絡(luò)廣播是指一個(gè)節(jié)點(diǎn)同時(shí)向相同域中的其它所有節(jié)點(diǎn)傳輸數(shù)據(jù)包的過(guò)程。廣播傳輸通常在局域網(wǎng)（如以太網(wǎng)）中進(jìn)行，但有時(shí)也發(fā)生在虛擬局域網(wǎng)（ VLAN）中。 生成廣播信息的應(yīng)用程序包括地址解析協(xié)議（ ARP）。有些路由選擇協(xié)議，如 RIP，主要用于支持網(wǎng)絡(luò)設(shè)備 “Advertise” 網(wǎng)絡(luò)服務(wù)。換句話說(shuō)，與網(wǎng)絡(luò)相連，且負(fù)責(zé)接收廣播的所有設(shè)備都是同 一廣播域的一部分。其它節(jié)點(diǎn)收聽(tīng)廣播，只接收尋址到它們的幀。此外通過(guò)虛擬局域網(wǎng)技術(shù)可以創(chuàng)建一個(gè)虛擬廣播域。例如， MAC 地址，格式為 1xFFFFFFFF 是一種廣播地址； IP 地址 是通用廣播地址。 廣播風(fēng)暴（ Broadcast Storm）：當(dāng)主機(jī)系統(tǒng)響應(yīng)一個(gè)在網(wǎng)上不斷循環(huán)的廣播數(shù)據(jù)包或者試圖響應(yīng)一個(gè)沒(méi)有應(yīng)答的系統(tǒng)時(shí)就會(huì)發(fā)生廣播風(fēng)暴。為防止廣播風(fēng)暴的發(fā)生，需要細(xì)心配置網(wǎng)絡(luò)以阻止非法廣播信息的進(jìn)入。兩臺(tái)計(jì)算機(jī)之間進(jìn)行即時(shí)通訊、發(fā)送文件等交流方式已經(jīng)成為時(shí)代的潮流。這些即時(shí)通訊業(yè)務(wù)屬于基礎(chǔ)語(yǔ)音業(yè)務(wù)外的數(shù)據(jù)增值類(lèi)業(yè)務(wù)，從范疇來(lái)講屬于“消息類(lèi)”業(yè)務(wù)，本質(zhì)是完成對(duì)“文字、聲音、圖像”信息的傳遞。但不會(huì)成為那些大中型企業(yè)內(nèi)部的主要通訊工具，在企業(yè)中要求很簡(jiǎn)單，能確?？焖僬５募磿r(shí)通訊，還要具有很好的安全性，這樣才能提高工作效率，增加企業(yè)的效益。并且現(xiàn)在用于實(shí)現(xiàn)單一的即時(shí)通訊、文件共享的軟件真的實(shí)在太少，因此不能為那些大中型企業(yè)所使用，而且在現(xiàn)行的系統(tǒng)中主要的問(wèn)題是：一、在即時(shí)通訊系統(tǒng)中由于防火墻、網(wǎng)絡(luò)速度等原因難以建立或者速度很慢， IM服務(wù)器還提供消息中轉(zhuǎn)服務(wù)，即時(shí)消息全部先發(fā)送到 IM服務(wù)器，還要再由服務(wù)器轉(zhuǎn)發(fā)給對(duì)方，所以連接時(shí)過(guò)多的浪費(fèi)了網(wǎng)絡(luò)資源，并且在服務(wù)器忙或與服務(wù)器無(wú)法連接時(shí)，浪費(fèi) 過(guò)多時(shí)間用于和服務(wù)器建立連接；二、即時(shí)通訊工具始終是通過(guò)互連網(wǎng)的服務(wù)器來(lái)傳輸?shù)?，正是這樣所以更有可能會(huì)帶來(lái)遭遇到網(wǎng)絡(luò)上的許多攻擊，如木馬，蠕蟲(chóng)等。 提出解決方案 根據(jù)企業(yè)在內(nèi)部網(wǎng)絡(luò)上信息交流的需求， 所以本課題就主要針對(duì)內(nèi)部的網(wǎng)絡(luò)來(lái)設(shè)計(jì)這樣的一個(gè)即時(shí)通訊系統(tǒng)，本系統(tǒng)是 在基于局域網(wǎng)的在 IM 客戶(hù)端和 IM服務(wù)器之間通訊采用的 UDP 協(xié)議和 C/S 軟件構(gòu)架技術(shù)上開(kāi)發(fā)的通訊工具，它在 近程的即時(shí)通訊時(shí)徹底的脫離了遠(yuǎn)程的服務(wù)器，不通過(guò)遠(yuǎn)程服務(wù)器來(lái)完成實(shí)現(xiàn)通訊，避免了和遠(yuǎn)程服務(wù)器連接時(shí)過(guò) 多的浪費(fèi)網(wǎng)絡(luò)資源。這種系統(tǒng)主要是為了方便了大中型企業(yè)在內(nèi)部即時(shí)通訊要求，從而進(jìn)一步提高 工作效率，增加企業(yè)的效益 。 由此可以看出本系統(tǒng)主要分為兩大部分模塊：發(fā)送模塊和接收模塊。其中廣 播按鈕是將信息窗體中的內(nèi)容發(fā)送到所有的用戶(hù)；發(fā)送按鈕是將信息窗體中的內(nèi)容發(fā)送到指定的用戶(hù)；在線用戶(hù)顯示框中選取指定的用戶(hù)和查看用戶(hù)的信息；刷新是重載用戶(hù)列表。 圖 6 信息接收界面 如過(guò)你在圖 6 中點(diǎn)擊了查看按鈕，那么將會(huì)彈到顯示信息查看的窗體上，在文本區(qū)則會(huì)顯示對(duì)方傳送過(guò)來(lái)的信息內(nèi)容，在查看了之后有個(gè)關(guān)閉按鈕，用來(lái)結(jié)束對(duì)話 框，便可以回到圖 5 的界面了。 圖 8 歷史記錄 系統(tǒng)功能模塊設(shè)計(jì) 網(wǎng)絡(luò)組件 UDP 協(xié)議由 TCP 協(xié)議衍生而來(lái)。 本系統(tǒng)設(shè)計(jì)使用的是 TIdUDPClient 和 TIdUDPServer 兩個(gè)用戶(hù)數(shù)據(jù)報(bào)（ UDP）組件，首先創(chuàng)建 Delphi 工程。把一個(gè)工程作為客戶(hù)，另一個(gè)作 為服務(wù)器。用來(lái)表示服務(wù)器的 IP地址和端口號(hào)。要使用 Inter Direct 實(shí)現(xiàn)的組件，只需使用Send 向給定的 IP 地址和端口號(hào)廣播一個(gè)命令字符串。服務(wù)器是作為應(yīng)用程序?qū)崿F(xiàn)的，它對(duì)客戶(hù)程序發(fā)出的一個(gè)簡(jiǎn)單的命令集進(jìn)行響應(yīng)。 下面是我對(duì) TIdUDPClient 和 TIdUDPServer 組件的設(shè)置圖： 圖 9 TIdUDPClient組件設(shè)置 圖 10 TIdUDPServer組件設(shè)置 用戶(hù)信息顯示功能 為了方便用戶(hù)選取單個(gè)用戶(hù)進(jìn)行信息發(fā)送和查看在線用戶(hù)的信息，所以設(shè)計(jì)了一個(gè) ListView 來(lái)進(jìn)行顯示如圖 5，在 ListView 中包括了用戶(hù)名、工作組、 IP地址。 其中分別要對(duì)網(wǎng)絡(luò)中的所有的用戶(hù)名、工作組、 IP 地址進(jìn)行獲取，下面來(lái)看一下對(duì)于獲取這些網(wǎng)絡(luò)資源的代碼部分。List : TStringList) : Boolean。 //網(wǎng)絡(luò)類(lèi)型的數(shù)組 Var NetResource: TNetResource。 Count,BufSize,Res: DWord。 Ind: Integer。 TmpStr:String。 FillChar(NetResource, SizeOf(NetResource), 0)。 //指定工作組名稱(chēng) := RESOURCEDISPLAYTYPE_SERVER。 //已連接機(jī)器 := RESOURCETYPE_DISK。 If Res NO_ERROR then Exit。 //不限資源數(shù)目 BufSize := 8192。 //申請(qǐng)內(nèi)存，用于獲 取工作組信息 //獲取計(jì)算機(jī)名稱(chēng) Res := WNetEnumResource(lphEnum, Count, Pointer(Buf), BufSize)。 //資源列舉完畢 If (Res NO_ERROR) then Exit。 For Ind := 0 to Count 1 do //列舉工作組的計(jì)算機(jī)名稱(chēng) Begin //獲取工作組的計(jì)算機(jī)名稱(chēng) tmpStr:=。 (tmpStr)。 Inc(Temp)。 end。//關(guān)閉一次列舉 If Res NO_ERROR then exit。 FreeMem(Buf)。 第 12 頁(yè) 共 25 頁(yè) 2) 工作組獲取代碼如下： var //顯示所有工作組的名稱(chēng) NetResource : TNetResource。 Count,BufSize,Res : DWORD。 p : TNetResourceArray。 NetworkTypeList : TList。//網(wǎng)絡(luò)類(lèi)型信息 //獲取某個(gè)網(wǎng)絡(luò)類(lèi)型的文件資源的句柄， NetResource為網(wǎng)絡(luò)類(lèi)型信息， lphEnum為返回名柄 Res:=WNetOpenEnum(RESOURCE_GLOBALNET, RESOURCETYPE_DISK,RESOURCEUSAGE_CONTAINER, NetResource,lphEnum)。//執(zhí)行失敗 while true do//列舉一個(gè)網(wǎng)絡(luò)類(lèi)型的所有工作組的信息 begin Count := $FFFFFFFF。 //緩沖區(qū)大小設(shè)置為 8K GetMem(Buf, BufSize)。 if ( Res = ERRO