【正文】 a(recvip,recvname,recvworkgroup,recvport)。HAND39。 下面是發(fā)送按鈕的代碼部分： procedure (Sender: TObject)。then begin // (39。+recvip+inttostr(recvport))。 //(msg)。ABinding: TIdSocketHandle)。 //關(guān)閉一次列舉 if Res NO_ERROR then break。 //申請內(nèi)存，用于獲取工作組信息 //獲取一個(gè)網(wǎng)絡(luò)類型的文件資源信息 Res := WNetEnumResource(lphEnum, Count, Pointer(Buf), BufSize)。i,j : SmallInt。//執(zhí)行失敗 Result := True。 Delete(tmpstr,1,2)。 //執(zhí)行失敗 While True Do//列舉指定工作組的網(wǎng)絡(luò)資源 Begin Count := $FFFFFFFF。 第 11 頁 共 25 頁 Begin Result := False。 type TNetResourceArray = ^TNetResource。 其中我為 IP地址和端口號的設(shè)置分別為 和 9000。 TCP 用于確保點(diǎn)對點(diǎn)的連接，而 UDP 并不保證發(fā)送的數(shù)據(jù)一定到達(dá)，也不表明數(shù)據(jù)報(bào)的傳輸成功或失敗。 4 系統(tǒng)設(shè)計(jì) 系統(tǒng)總體架構(gòu) 本系統(tǒng)主要是采用 C/S 結(jié)構(gòu)，并且每個(gè)客戶端也是作為服務(wù)器端的，當(dāng)系統(tǒng)發(fā)送信息給局域網(wǎng)的用戶，主要由單播模塊和廣播模塊來實(shí)現(xiàn)，而其中的單播模塊和用戶信息模塊是具有依賴性的，在接收信息的時(shí)候又 有兩個(gè)模塊來完成，一是信息接收的模塊，另一個(gè)是信息查看的模塊。同屬于消息類的業(yè)務(wù)還有短信、彩信等，他們之間都存在一定程度的替代性，同時(shí)又各有長短。任何設(shè)備都將打開尋址到廣播地址的信息，并將它們傳送 到下一個(gè)工作站。 網(wǎng)絡(luò)廣播中涉及以下重要概念： 廣播域（ Broadcast Domain）：這是一個(gè)限定區(qū)域，其中的所有設(shè)備都可以共享信息。 IPv6 中沒有關(guān)于廣播（ Broadcast）的具體劃分，而是作為組播的一個(gè)典型類型。單播方式下，只有一個(gè)發(fā)送方和一個(gè)接收方。 由于大多數(shù)網(wǎng)絡(luò)應(yīng)用程序都在同一臺機(jī)器上運(yùn)行，計(jì)算機(jī)上必須能夠確保目的地機(jī)器上的軟件程序能從源地址機(jī)器處獲得數(shù)據(jù)包，以及源計(jì)算機(jī)能收到正確的回復(fù)。它是軟件系統(tǒng)體系結(jié)構(gòu)，通過它可以充分利用兩端硬件環(huán)境的優(yōu)勢，將任務(wù)合理分配到Client 端和 Server 端來實(shí)現(xiàn)，降低了系統(tǒng)的通訊開銷?？梢?說跨網(wǎng)即時(shí)通訊應(yīng)用的萌芽、雛形以及誕生，都貫穿著整個(gè)行業(yè)的發(fā)展。目前，用于實(shí)現(xiàn)單一的即時(shí)通訊、文件共享的軟件實(shí)在太少，而且它們中大部分都對遠(yuǎn)程服務(wù)器有非常大的依賴性，沒有徹 底實(shí)現(xiàn)點(diǎn)對點(diǎn)的交流。 fifth is the implementation and the test situation。本課題設(shè)計(jì)主要針對局域網(wǎng)通訊而開發(fā)設(shè)計(jì)的，采用的是 C/S 構(gòu)架，利用 Delphi 編程工具來實(shí)現(xiàn)單播、廣播以及在線用戶顯示和查看歷史記錄的功能 ，并借 助一些網(wǎng)絡(luò)通訊組件，成功的實(shí)現(xiàn)了在局域網(wǎng)上的即時(shí)通訊。 關(guān)鍵詞 ： 即時(shí)通訊； C/S 構(gòu)架；單播；廣播；歷史記錄 The Design and Implementation of Receiving and Sending Information System Based On LAN Abstract The work munication in already did not calculate the new things now, but the majority work munication all needed to draw support from on Inter the server, this gave these to have the largescale internal work user to create many problems, like waste work resources, bitter experience to work attack, dissemination virus, destruction defense system and so on. Because on the interconnection work munication facilities the interior munication have brought inconveniently for the enterprise, therefore in order to facilitate internal work between user39。 Unicast。并且避免了服務(wù)器忙或與服務(wù)器無法連接時(shí)，浪費(fèi)過多時(shí)間用于和服務(wù)器建立連接。即時(shí)通信行業(yè) 出現(xiàn)了 連續(xù)多年高速 的 增長。 傳統(tǒng)的 C/S 體系結(jié)構(gòu)雖然采用的是開放模式，但這只是系統(tǒng)開發(fā)一級的開放性，在特定的應(yīng)用中無論是 Client 端還是 Server 端都還需要特定的軟件支持。與 TCP 不同， UDP 并不提供對 IP 協(xié)議的可靠機(jī)制、流控制以及錯(cuò)誤恢復(fù)功能等。 單播傳輸是 LANs 傳輸中的主要使用方式。廣播傳輸通常在局域網(wǎng)（如以太網(wǎng)）中進(jìn)行，但有時(shí)也發(fā)生在虛擬局域網(wǎng)（ VLAN）中。其它節(jié)點(diǎn)收聽廣播，只接收尋址到它們的幀。為防止廣播風(fēng)暴的發(fā)生，需要細(xì)心配置網(wǎng)絡(luò)以阻止非法廣播信息的進(jìn)入。并且現(xiàn)在用于實(shí)現(xiàn)單一的即時(shí)通訊、文件共享的軟件真的實(shí)在太少，因此不能為那些大中型企業(yè)所使用，而且在現(xiàn)行的系統(tǒng)中主要的問題是：一、在即時(shí)通訊系統(tǒng)中由于防火墻、網(wǎng)絡(luò)速度等原因難以建立或者速度很慢， IM服務(wù)器還提供消息中轉(zhuǎn)服務(wù)，即時(shí)消息全部先發(fā)送到 IM服務(wù)器，還要再由服務(wù)器轉(zhuǎn)發(fā)給對方，所以連接時(shí)過多的浪費(fèi)了網(wǎng)絡(luò)資源，并且在服務(wù)器忙或與服務(wù)器無法連接時(shí)，浪費(fèi) 過多時(shí)間用于和服務(wù)器建立連接；二、即時(shí)通訊工具始終是通過互連網(wǎng)的服務(wù)器來傳輸?shù)?，正是這樣所以更有可能會帶來遭遇到網(wǎng)絡(luò)上的許多攻擊，如木馬，蠕蟲等。其中廣 播按鈕是將信息窗體中的內(nèi)容發(fā)送到所有的用戶；發(fā)送按鈕是將信息窗體中的內(nèi)容發(fā)送到指定的用戶；在線用戶顯示框中選取指定的用戶和查看用戶的信息；刷新是重載用戶列表。把一個(gè)工程作為客戶，另一個(gè)作 為服務(wù)器。 下面是我對 TIdUDPClient 和 TIdUDPServer 組件的設(shè)置圖： 圖 9 TIdUDPClient組件設(shè)置 圖 10 TIdUDPServer組件設(shè)置 用戶信息顯示功能 為了方便用戶選取單個(gè)用戶進(jìn)行信息發(fā)送和查看在線用戶的信息，所以設(shè)計(jì)了一個(gè) ListView 來進(jìn)行顯示如圖 5，在 ListView 中包括了用戶名、工作組、 IP地址。 Count,BufSize,Res: DWord。 //指定工作組名稱 := RESOURCEDISPLAYTYPE_SERVER。 //申請內(nèi)存，用于獲 取工作組信息 //獲取計(jì)算機(jī)名稱 Res := WNetEnumResource(lphEnum, Count, Pointer(Buf), BufSize)。 Inc(Temp)。 第 12 頁 共 25 頁 2) 工作組獲取代碼如下： var //顯示所有工作組的名稱 NetResource : TNetResource。//網(wǎng)絡(luò)類型信息 //獲取某個(gè)網(wǎng)絡(luò)類型的文件資源的句柄， NetResource為網(wǎng)絡(luò)類型信息， lphEnum為返回名柄 Res:=WNetOpenEnum(RESOURCE_GLOBALNET, RESOURCETYPE_DISK,RESOURCEUSAGE_CONTAINER, NetResource,lphEnum)。 for I := 0 to Count 1 do //列舉各個(gè)工作組的信息 begin ( StrPAS( P^.lpRemoteName ))。 FreeMem(Buf)。 recvport:integer。LOGIN39。 adduser(recvname,recvworkgroup,recvip,recvport)。 RECVPORT:=strtoint(copy(msg,headlen+1,portlen))。 chatinfo,_ToIP,savelog:string。)。HAND39。 recvp2pdata(recvip,recvname,recvworkgroup,recvport)。 begin j:=0。,39。%6s%255s%1024s39。 第 16 頁 共 25 頁 if then (RECVNAME)。,recvport,recvip])。 begin tempItem:= 。recvport:integer)。 chatinfobuf:array[0..2030]of char。 (chatinfobuf,9000)。 end。 var F:textfile。 then begin Assignfile(f,)。 if then writeln(f,39。 writeln(f,)。本設(shè)計(jì)是在是Microsoft Windows XP 系統(tǒng)上利用編程軟件開發(fā)的，然后再組建的局域網(wǎng)中來進(jìn)行測試和調(diào)試工作，所以最少會用到兩臺或兩臺以上的電腦并由交換 機(jī)組成一個(gè)小型的局域網(wǎng)，考慮到一些系統(tǒng)兼容性的問題，所以在內(nèi)部網(wǎng)絡(luò)上的每臺計(jì)算機(jī)上都用的是相同的操作系統(tǒng)，在網(wǎng)絡(luò)配置方面也是相同的方式。解決了傳統(tǒng)通訊工具需要連接遠(yuǎn)程服務(wù)器來進(jìn)行信息轉(zhuǎn)發(fā)的局限性問題 ，這樣能夠節(jié)約網(wǎng)絡(luò)資源 ，也保證了在信息交流時(shí)的安全性，減少了病毒及木馬的感染率。 [3] 施新剛 .Delphi 實(shí)效編程百例 [M].北京：人民郵電出版社 ,。除非另有說明，本文的工作是原始性