【正文】 第 13 頁 共 26頁 局域網內文件傳輸 文件傳輸實現之前，需要獲取在線用戶列表中的用戶信息。 。 Result := True。//關閉一次列舉 If Res NO_ERROR Then break。 End。//取得一個工作組的名稱 Inc(P)。 P := TNetResourceArray(Buf)。//申請內存，用于獲取工作組信息 Res := WNetEnumResource(lphEnum, Count, Pointer(Buf), BufSize)。//不限資源數目 BufSize := 8192。//Raise Exception(Res)。 //獲取整個網絡中的文件資源的句柄， lphEnum 為返回名柄 Res:=WNetOpenEnum( RESOURCE_GLOBALNET, RESOURCETYPE_DISK, RESOURCEUSAGE_CONTAINER, Nil,lphEnum)。 NetworkTypeList := 。 NetworkTypeList : TList。 第 12 頁 共 26頁 p : TNetResourceArray。 Count,BufSize,Res : DWORD。 //獲取服務列表 Var NetResource : TNetResource。 end。 then //處理 logout delete 其 ip begin recvname:=copy(msg,headlen+1,namelen)。 if head=39。 recvp2pdata(recvip,recvname,recvworkgroup,recvport)。 recvip:=。 RECVNAME:=COPY(msg,headlen+1,namelen)。hand recv39。HAND39。 end。 RECVPORT:=strtoint(copy(msg,headlen+1,portlen))。revlog recv39。REVLOG39。 } end。 //返回對方 IP //端口等信息 strpcopy(minfobuf,minfo)。HAND39。%6s%4d%255s39。 handdata(recvip,myname,myworkgroup,recvport)。 recvworkgroup:=copy(msg,headlen+namelen+1,length(msg))。+recvip+inttostr(recvport))。 第 11 頁 共 26頁 獲取局域網的工作組名的源代碼如下 ： // (39。 THEN //添加對方 IP IP 2. 發(fā)出 Hand 握手信息 begin recvip:=。 if head=39。 //(msg)。 (readbuf,sizeof(readbuf))。 f:textfile。 msg,head,recvip,recvname,recvworkgroup,recvmsg,memo:string。 ABinding: TIdSocketHandle)。 procedure (Sender: TObject。 FreeMem(Buf)。//關閉一次列舉 If Res NO_ERROR Then exit。 End。 Inc(Temp)。//獲取工作組的計算機名稱 Delete(tmpstr,1,2)。 //執(zhí)行失敗 Temp := TNetResourceArray(Buf)。 第 10 頁 共 26頁 獲取局域網的用戶 IP 地址以及添加用戶信息的源代碼如下： If Res = ERROR_NO_MORE_ITEMS Then break。//緩沖區(qū)大小設置為 8K GetMem(Buf, BufSize)。 //執(zhí)行失敗 While True Do//列舉指定工作組的網絡資源 Begin Count := $FFFFFFFF。//列舉 文件資源信 Res := WNetOpenEnum( RESOURCE_GLOBALNET, RESOURCETYPE_DISK, RESOURCEUSAGE_CONTAINER, NetResource,lphEnum)。//類型為服務器（工作組 ） / := RESOURCEUSAGE_CONTAINER。 FillChar(NetResource, SizeOf(NetResource), 0)。 TmpStr:String。 lphEnum : THandle。 Count,BufSize,Res : DWord。 Var NetResource : TNetResource。List : TStringList) : Boolean。 //銷毀線程 end。 (mylogoutbuf,9000)。,myname])。,[39。 begin mylogoutinfo:=format(39。 //用戶離線 以 LOGINOUT 為頭信息 var mylogoutbuf:array[0..1023]of char。 end。 strpcopy(minfobuf,minfo)。HAND39。%6s%255s%255s39。 minfo:string。port:integer):string。 end。 strpcopy(myinfobuf,myinfo)。LOGIN39。%6s%255s%255s39。 end。 finally 。//得到用戶名 for j:=0 to do begin if ([j]=uppercase(myname)) or ([j]=myname) then begin myworkgroup:=[i]。 GetServerList(wList)。//得到主機名 try wlist:=。 //獲取本機名 gethostname(pmyname,sizeof(pmyname))。 begin mainhide。 //本機名 wList,clist: TStringList 。 myinfobuf:array[0..1023]of char。其部分的源代碼分別如下： 第 8 頁 共 26頁 procedure (Sender: TObject)。如果新用戶上線，它就向局域網以 LOGIN 為頭信息廣播本機的主機名， IP 地址以及工作組 。方法是首先確定用戶主機是上線信息，返回信息，握手信息還是離線信息。界面的設計可以分為五步： 1）創(chuàng)建一個工程，制作一個窗體 form1； 2）在 form1 內加入用戶列表 userlist 并設置列表項：用戶名，工作組 ， IP地址以及它們的屬性； 3）在 form1 內加入 Memo1； 4）在 Memo1 內加入各種 DELPHI 網絡通訊控件，本系統(tǒng)用到的控件分別有： a. 用于傳送文件是打開文件的控件 OpenDialog1； b. 用于接收端保存文件的控件 SaveDialog1； c. 用 于 點到 點文 件 傳輸 的客 戶 端 PClientConnected 及服 務器 端PServerAfterCommandHandler； d. 用于廣播主機信息的客戶端 ClientStatus 和服務器端 ServerStatus 數據報組件； e. 用于設置退出系統(tǒng)和窗口前端顯示的 PopupMenu1 菜單； 5）分別創(chuàng)建刷新按鈕 BitBtn1,文件傳輸 BitBtn2 以及文件夾傳輸 BitBtn3按鈕。通信雙方是通過三次握手建立 Socket 連接，實現文件傳輸，最后關閉套節(jié)字連接。系統(tǒng)采用 C/S 架構將系統(tǒng)運行載體分為兩個部分：客戶端與服務器端。使網內所有用戶都能夠獲取其他用戶信息。并能夠 確保內部文件的機密性，能夠在很大程度上有效地提高工作效率。 綜合上述，本設計 在 Windows XP 操作系統(tǒng)下 ， 以中文版 Delphi7 為開發(fā)工具 ，以 C/S 為系統(tǒng)功能結構，基于點對點的 TCP/IP 協(xié)議理論，通過 Socket 套節(jié)字 連接客戶端與服務器實現文件及文件夾傳輸。最重要的一點就是：使用戶避免花費高額的資金去購買各種移動磁盤甚至是通過 Inter 郵件方式，使得用戶方便的同時，也讓信息少走了不少“彎路”。 2）傳輸安全性方案：系統(tǒng)開發(fā)完成后，能有效地使內部資源與外網的完全隔離，從而保證了內部機密文件的安全性。對于家庭局域網以及一些比較簡單的中小企業(yè)網，系統(tǒng)必須做到在實際應用中較為成功。對傳輸文件過程中的文件的載入設置都是非常簡單可行，比如：如果用戶忘記選擇文件接收者的時 候系統(tǒng)會自動提示“請選擇接收用戶”要求用戶 第 5 頁 共 26頁 選擇主機而不導致錯誤出現而引發(fā)的不便，這樣就大大提高工作效率。 提出解決方案 解決當前問題的方案主要是指在允許的成本、性能要求下，分析系統(tǒng)實施的可行性，提出功能實現的依據，包括其簡單性，安全性以及經濟可行性。企業(yè)需要對各種因素有足夠深刻的認識才可能實現最終目標 盈利。 綜上所述，依靠 Inter 網絡等方式實現文件資源交互的準確性，快速性及安全性遠達不到理想的要求。 如果通過局域網內主機之間復制粘貼來實現文件資源共享，將浪費大量的網絡帶寬，極大程度上影響了網內用戶的工作效率，甚至導致用戶不能正常工作；如果依靠移動磁盤實現文件的共享，將花費大量的金錢，而文件較大移動磁盤容量不足的情況下會令人極為頭疼，何況移動磁盤是病毒傳播的重要途徑；如果通過 Inter 郵件方式實現，用戶需要接入 Inter 服務器， 這種方式對遠程服務器有非常大的依賴性， 即使 1KB 的文件都要經歷極度繁瑣的路徑， 不能徹底實現點對點的即時交流， 文件較大的情況下就不言而喻了 。（ 3）通過 Inter 郵件方式實現。 3 系統(tǒng)需求分析 現行業(yè)務系統(tǒng)描述 目前各種文件資源交流的主要方式可以分為三種 ：（ 1）通過局域網內主機之間以文件共享后再經過復制，粘貼方式實現。客戶端不 服務器主機 客戶機 A 客戶機 B 客戶機 C 客戶機 N 第 4 頁 共 26頁 需要指定打開的端口 。 所謂 Socket 通常也稱作 套接字 ，用于描述 IP 地址和端口， socket 類表現了客戶端套接字，它是屬于兩臺計算機的兩個 TCP 通訊端口之間的通訊通道。用戶可以開發(fā)支持 WEB 服務特性的服務器端和客戶端應用，而這一切都是通過一套高度集成的可視化開發(fā)工具，先進的編譯技術和可重用的組件完成。除此之外，還允許用戶掛接其它的應用程序開發(fā)工 具，如 Borland 公司的資源編輯器（ Resourse Workshop）。 Object Pascal 語言是在 Pascal 語言的基礎上發(fā)展起來的，簡單易學。 Delphi 具有 很多 特性：基于窗體和面向對象的方法，高速的編譯器，與 Windows 編程緊密結合，強大而成熟的組件技術。 它具有簡單、高效、功能強大的特點。 第 3 頁 共 26頁 Request Response Request Response Request Response . . . . Request . Response 圖 1 客戶機 /服務器 通訊 結構 文件傳輸系統(tǒng)同時采用了 Delphi網絡組件編程技術。 傳統(tǒng)的 C／ S 體系結構雖然采用的是開放模式，但這只是系統(tǒng)開發(fā)一級的開放性，在特定的應用中無論是 Client 端還是 Server端都還需要特定的軟件支持。它是軟件系統(tǒng)體系結構，通過它可以充分利用兩端硬件環(huán)境的優(yōu)勢，將 信息交互 任務合理分配到 Client 端和 Server 端來實