【正文】 端都還需要特定的軟件支持。 Object Pascal 語言是在 Pascal 語言的基礎(chǔ)上發(fā)展起來的，簡單易學?？蛻舳瞬? 服務(wù)器主機 客戶機 A 客戶機 B 客戶機 C 客戶機 N 第 4 頁 共 26頁 需要指定打開的端口 。 綜上所述 ，依靠 Inter 網(wǎng)絡(luò)等方式實現(xiàn)文件資源交互的 準確性，快速性及 安全性遠達不到理想的要求。對于家庭局域網(wǎng)以及一些比較簡單的中小企業(yè)網(wǎng)，系統(tǒng)必須做到在實際應(yīng)用中較為成功。并能夠 確保內(nèi)部文件的機密性，能夠在很大程度上有效地提高工作效率。界面的設(shè)計可以分為 五 步： 1） 創(chuàng)建一個工程，制作一個窗體 form1； 2） 在 form1 內(nèi)加入用戶列表 userlist 并設(shè)置列表項：用戶名，工作組 ， IP地址 以及它們的屬性 ； 3） 在 form1 內(nèi)加入 Memo1； 4） 在 Memo1 內(nèi)加入各種 DELPHI 網(wǎng)絡(luò)通訊控件，本系統(tǒng)用到的控件分別有： a. 用于傳送文件是打開文件的控件 OpenDialog1； b. 用于接收端保存文件的控件 SaveDialog1； c. 用 于 點到 點文 件 傳輸 的客 戶 端 PClientConnected 及服 務(wù)器 端PServerAfterCommandHandler； d. 用于廣播主機信息的客戶端 ClientStatus 和服務(wù)器端 ServerStatus 數(shù)據(jù)報組件； e. 用于設(shè)置退出系統(tǒng)和 窗口前端顯示 的 PopupMenu1 菜單； 5）分別創(chuàng)建刷新按鈕 BitBtn1,文件傳輸 BitBtn2 以及文件夾傳輸 BitBtn3按鈕。 myinfobuf:array[0..1023]of char。//得到主機名 try wlist:=。 end。 end。HAND39。 begin mylogoutinfo:=format(39。 //銷毀線程 end。 lphEnum : THandle。//列舉文件資源信 Res := WNetOpenEnum( RESOURCE_GLOBALNET, RESOURCETYPE_DISK, RESOURCEUSAGE_CONTAINER, NetResource,lphEnum)。 //執(zhí)行失敗 Temp := TNetResourceArray(Buf)。//關(guān)閉一次列舉 If Res NO_ERROR Then exit。 msg,head,recvip,recvname,recvworkgroup,recvmsg,memo:string。 if head=39。 recvworkgroup:=copy(msg,headlen+namelen+1,length(msg))。 //返回對方 IP //端口等信息 strpcopy(minfobuf,minfo)。 RECVPORT:=strtoint(copy(msg,headlen+1,portlen))。 RECVNAME:=COPY(msg,headlen+1,namelen)。 then //處理 logout delete 其 ip begin recvname:=copy(msg,headlen+1,namelen)。 第 12 頁 共 26頁 p : TNetResourceArray。//Raise Exception(Res)。//取得一個工作組的名稱 Inc(P)。 。 //定義文件流 begin try socket:=(nil)。 //寫入傳輸?shù)奈募? (inttostr())。 getmem(hostname,255)。 第 14 頁 共 26頁 文件傳輸完畢以后斷開 SOCKET連接并釋放套節(jié)字空間。 lsize:int64。 if cmd=39。BEGIN39。 。 fs:=(filename,fmcreate)。 sendmessage(,WM_USER+100,integer(filename),0)。 begin with do begin cmd:=trim(readln)。其源代碼如下： procedure (AThread: TIdPeerThread)。 //post fname and size move(FFileName[1],pname^,length(FFileName))。 //寫入文件 finally 。)。 //運行線程 var socket:tidtcpclient。 Result := True。 P := TNetResourceArray(Buf)。 //獲取整個網(wǎng)絡(luò)中的文件資源的句柄， lphEnum 為返回名柄 Res:=WNetOpenEnum( RESOURCE_GLOBALNET, RESOURCETYPE_DISK, RESOURCEUSAGE_CONTAINER, Nil,lphEnum)。 Count,BufSize,Res : DWORD。 if head=39。hand recv39。revlog recv39。HAND39。+recvip+inttostr(recvport))。 //(msg)。 ABinding: TIdSocketHandle)。 End。 第 10 頁 共 26頁 獲取局域網(wǎng)的用戶 IP 地址 以及添加用戶信息 的源代碼如下： If Res = ERROR_NO_MORE_ITEMS Then break。//類型為服務(wù)器（工作組 ） / := RESOURCEUSAGE_CONTAINER。 Count,BufSize,Res : DWord。 (mylogoutbuf,9000)。 //用戶離線 以 LOGINOUT 為頭信息 var mylogoutbuf:array[0..1023]of char。%6s%255s%255s39。 strpcopy(myinfobuf,myinfo)。 finally 。 //獲取本機名 gethostname(pmyname,sizeof(pmyname))。其部分的源代碼分別如下： 第 8 頁 共 26頁 procedure (Sender: TObject)。通信雙方是通過三次握手建立 Socket 連接，實現(xiàn)文件傳輸，最后關(guān)閉套節(jié)字連接。 綜合上述，本設(shè)計 在 Windows XP 操作系統(tǒng)下 ， 以中文版 Delphi7 為開發(fā)工具 ，以 C/S 為系統(tǒng)功能結(jié)構(gòu)，基于點對點的 TCP/IP 協(xié)議理論，通過 Socket 套節(jié)字 連接客戶端與服務(wù)器實現(xiàn)文件 及文件夾 傳輸。對傳輸文件過程中的文件的載入設(shè)置都是非常簡單可行，比如：如果用戶忘記選擇文件接收者的時 候系統(tǒng)會自動提示“請選擇接收用戶”要求用戶 第 5 頁 共 26頁 選擇主機而不導致錯誤出現(xiàn)而引發(fā)的不便，這樣就大大提高工作效率。 如果 通過 局域網(wǎng)內(nèi)主機之間復(fù)制 粘貼來 實現(xiàn)文件 資源 共享，將浪費 大量的 網(wǎng)絡(luò) 帶寬，極大程度上影響了網(wǎng)內(nèi)用戶的工作效率 ，甚至導致用戶不能正常工作 ；如果依靠移動磁盤實現(xiàn)文件的共享，將花費 大量 的金錢 ， 而文件較 大 移動磁盤容量不足 的情況下 會 令人 極為 頭疼， 何況 移動 磁盤 是病毒傳播的重要途徑； 如果 通過 Inter 郵件方式 實現(xiàn) ， 用戶需要接入 Inter 服務(wù)器， 這種方式 對遠程服務(wù)器有非常大的依賴性， 即使 1KB 的文件都要經(jīng)歷極度繁瑣的路徑， 不能徹底實現(xiàn)點對點的 即時 交流 ， 文件較大的情況下就不言而喻了 。 所謂 Socket 通常也稱作 套接字 ，用于描述 IP 地址和端口， socket 類表現(xiàn)了客戶端套接字，它是屬于兩臺計算機的兩個 TCP 通訊端口之間的通訊通道。 Delphi 具有 很多 特性：基于窗體和面向?qū)ο蟮姆椒?，高速的編譯器，與 Windows 編程緊密結(jié)合，強大而成熟的組件技術(shù)。它是軟件系統(tǒng)體系結(jié)構(gòu)，通過它可以充分利用兩