【正文】 ISK, RESOURCEUSAGE_CONTAINER, Nil,lphEnum)。 NetworkTypeList : TList。 Count,BufSize,Res : DWORD。 end。 if head=39。 recvip:=。hand recv39。 end。revlog recv39。 } end。HAND39。 handdata(recvip,myname,myworkgroup,recvport)。+recvip+inttostr(recvport))。 THEN //添加對方 IP IP 2. 發(fā)出 Hand 握手信息 begin recvip:=。 //(msg)。 f:textfile。 ABinding: TIdSocketHandle)。 FreeMem(Buf)。 End。//獲取工作組的計算機名稱 Delete(tmpstr,1,2)。 第 10 頁 共 26頁 獲取局域網的用戶 IP 地址以及添加用戶信息的源代碼如下： If Res = ERROR_NO_MORE_ITEMS Then break。 //執(zhí)行失敗 While True Do//列舉指定工作組的網絡資源 Begin Count := $FFFFFFFF。//類型為服務器（工作組 ） / := RESOURCEUSAGE_CONTAINER。 TmpStr:String。 Count,BufSize,Res : DWord。List : TStringList) : Boolean。 (mylogoutbuf,9000)。,[39。 //用戶離線 以 LOGINOUT 為頭信息 var mylogoutbuf:array[0..1023]of char。 strpcopy(minfobuf,minfo)。%6s%255s%255s39。port:integer):string。 strpcopy(myinfobuf,myinfo)。%6s%255s%255s39。 finally 。 GetServerList(wList)。 //獲取本機名 gethostname(pmyname,sizeof(pmyname))。 //本機名 wList,clist: TStringList 。其部分的源代碼分別如下： 第 8 頁 共 26頁 procedure (Sender: TObject)。方法是首先確定用戶主機是上線信息，返回信息，握手信息還是離線信息。通信雙方是通過三次握手建立 Socket 連接，實現(xiàn)文件傳輸，最后關閉套節(jié)字連接。使網內所有用戶都能夠獲取其他用戶信息。 綜合上述，本設計 在 Windows XP 操作系統(tǒng)下 ， 以中文版 Delphi7 為開發(fā)工具 ，以 C/S 為系統(tǒng)功能結構，基于點對點的 TCP/IP 協(xié)議理論，通過 Socket 套節(jié)字 連接客戶端與服務器實現(xiàn)文件及文件夾傳輸。 2）傳輸安全性方案：系統(tǒng)開發(fā)完成后，能有效地使內部資源與外網的完全隔離，從而保證了內部機密文件的安全性。對傳輸文件過程中的文件的載入設置都是非常簡單可行，比如：如果用戶忘記選擇文件接收者的時 候系統(tǒng)會自動提示“請選擇接收用戶”要求用戶 第 5 頁 共 26頁 選擇主機而不導致錯誤出現(xiàn)而引發(fā)的不便，這樣就大大提高工作效率。企業(yè)需要對各種因素有足夠深刻的認識才可能實現(xiàn)最終目標 盈利。 如果通過局域網內主機之間復制粘貼來實現(xiàn)文件資源共享，將浪費大量的網絡帶寬，極大程度上影響了網內用戶的工作效率，甚至導致用戶不能正常工作；如果依靠移動磁盤實現(xiàn)文件的共享，將花費大量的金錢，而文件較大移動磁盤容量不足的情況下會令人極為頭疼，何況移動磁盤是病毒傳播的重要途徑；如果通過 Inter 郵件方式實現(xiàn)，用戶需要接入 Inter 服務器， 這種方式對遠程服務器有非常大的依賴性， 即使 1KB 的文件都要經歷極度繁瑣的路徑， 不能徹底實現(xiàn)點對點的即時交流， 文件較大的情況下就不言而喻了 。 3 系統(tǒng)需求分析 現(xiàn)行業(yè)務系統(tǒng)描述 目前各種文件資源交流的主要方式可以分為三種 ：（ 1）通過局域網內主機之間以文件共享后再經過復制，粘貼方式實現(xiàn)。 所謂 Socket 通常也稱作 套接字 ，用于描述 IP 地址和端口， socket 類表現(xiàn)了客戶端套接字，它是屬于兩臺計算機的兩個 TCP 通訊端口之間的通訊通道。除此之外，還允許用戶掛接其它的應用程序開發(fā)工 具，如 Borland 公司的資源編輯器（ Resourse Workshop）。 Delphi 具有 很多 特性：基于窗體和面向對象的方法，高速的編譯器，與 Windows 編程緊密結合，強大而成熟的組件技術。 第 3 頁 共 26頁 Request Response Request Response Request Response . . . . Request . Response 圖 1 客戶機 /服務器 通訊 結構 文件傳輸系統(tǒng)同時采用了 Delphi網絡組件編程技術。它是軟件系統(tǒng)體系結構，通過它可以充分利用兩端硬件環(huán)境的優(yōu)勢，將 信息交互 任務合理分配到 Client 端和 Server 端來實現(xiàn)，降低了系統(tǒng) 文件傳輸過程中的 開銷。本設計要實現(xiàn)文件及文件夾的傳輸就需要以 IP地址為傳送基礎進行 ； 第二，新用戶上線后需要向局域網內所有用戶廣播自己的主機信息使網內主機得到本機的 IP地址等。 TCP協(xié)議和 IP協(xié)議是保證數(shù)據(jù)完整傳輸?shù)膬蓚€基本的重要協(xié)議。所以就得與 TCP/IP協(xié)議協(xié)合。特別是對如今較大系統(tǒng)研發(fā)的模塊分工合作得到了絕對保密性，從而使各項工作有計劃、更科學的進行及順利完成，使企業(yè)的辦事效率得到顯著提高。 但是隨著科學技術的發(fā)展，各種以局域網為單位的文件傳輸系統(tǒng)已經進入穩(wěn)健發(fā)展期，比如說市面上比較普遍使用的 、 UC、飛鴿傳書等以內部網絡為中心的資源共享系統(tǒng)也即將進入高速發(fā)展期。在這種形勢下，開發(fā)一個功能簡單而實用，能在 Windows 操作系統(tǒng)中運行，并且具有可移植性的局域網內文件傳輸工具勢在必行。各種文件傳輸系統(tǒng)都已被廣大用戶接受。 Network munication module。 Second, introduces the TCP/IP point to point protocol technology, C/S overhead construction Delphi programming technique and the Socket work programming technology。本系統(tǒng)能夠促進局域網內用戶之間的文件資源共享，滿足主機之間信息交流，確保文件及文件夾傳輸安全性，有效地提高工作效率。但大多數(shù)文件傳輸功能都需要借助移動磁盤等硬件設備或 Inter 上的服務器才能實現(xiàn)。很多情況下，人們的日常工作需要借助文件傳輸來完成。 基于局域網的文件傳輸系統(tǒng)的設計選用 Delphi 為開發(fā)工具，以 C/S 模式通過建立 Socket 連接后實現(xiàn)局域網快速，準確，安全的點對點文件以及文件夾傳輸功能。s routine work needs to draw support from the file transfer to plete. But the majority file transfer function all needs to draw support moves hardware equipment or the Inter and so in the floppy disk server can realize This gave these to have the largescale internal work user to create many problems, like the waste fund, the waste work resources, the viral invasion, reduced the working efficiency and so on. In order to facilitate in the local area work main engine resources sharing, needs to develop one based on the local area work file transfer tool, realizes the document exchange in internal work. The design and implementation of file transfer system base on LAN uses Delphi development tool,C/S mode through the establishment of Socket after connecting LAN users fast, accurate, the pointtopoint security files and folders transmission functions. The system can contribute to LAN users to share file resources to meet the exchange of information between mainframe, ensure that the filets and folders transmission security, effectively improving efficiency. The design is divided into five major module altogether, including: First, introduction selected topic background and significance and domestic and foreign research present situation。 Fifth, to carries on based on the local area work file transfer system tests and obtains the test result. Key words: C/S structure。 在計算機與網絡迅速發(fā)展的今天，借助于網絡進行信息資 源交流給人們帶來了極大的方便。 而達到的效果卻總是因為傳輸效率以及安全威脅而受到很大的限制。文件傳輸 系統(tǒng)由于比較復雜，可變因素較多， 安全性低 ，因此發(fā)展還不成熟?；诰钟蚓W的文件傳輸系統(tǒng)能夠讓家庭網絡以及各個企業(yè)等局域網對內部資料有一個快捷，準確 ,安全的共享。 第 2 頁 共 26頁 2 理論基礎 TCP/IP 點對點協(xié)議技術 系統(tǒng)的文件傳輸功能主要依賴于建立客戶端與服務器之間點對點的的連接后實現(xiàn)。雖然從名字上看 TCP/IP包括兩個協(xié)議，傳輸控制協(xié)議 (TCP)和網際協(xié)議 (IP)，但TCP/IP實際上是一組協(xié)議， 只是 TCP協(xié)議處于運輸層，它能夠確保文件準確的傳送；而 IP協(xié)議處于網絡層，它標識了處于網絡中任意主機的唯一身份。采用 TCP/IP詳解 的原因： 第一， 局域網內主機之間的是依靠 IP地址進行標識。所謂 C/S （ Client/Server）結構，即大家熟知的客戶機和服務器結構。由于沒能提供用戶真正期望的開放環(huán)境， C/S 結構的軟件需要針對不同的操作系統(tǒng)系統(tǒng)開發(fā)不同版本的軟件，加之產品的更新?lián)Q代十分快，已經很難適應 百 臺電腦以上局域網用戶同時使用。它 可是眾多 程序員至愛的編程工具。 Delphi 提供了各種開發(fā)工具 ，包括集成環(huán)境、圖像編輯（ Image Editor），以及各種開發(fā) 可視化軟件 的應用程序，如 DesktopDataBase Expert 等。 SOCKET 網絡程序設計技術 文件傳輸系統(tǒng)得以實現(xiàn)的根本在于建立有效的連接以及是否存在文件傳輸載體。 服務器使用 Socket 監(jiān)聽指定的端口，端口可以隨意指定，等待客戶連接請求，客戶連接后，會話產生；在完成會話后，關閉連接。此三種方法并非不可行，但它們都需要花費較長的時間以及安全性也得不到保證，工作效 率將在很大程度上受到限制。 現(xiàn)行系統(tǒng)存在的主要問題分析 針對企業(yè)來說，提高工作效率是企業(yè)的一個重心；降低成本是企業(yè)贏取最大利益的重要方式；保證信息安全卻是可能影響企業(yè)生死存亡的關鍵。根據(jù)企業(yè)簡單快速，安全的資源共享等要求 ,提出以下四種解決方案： 1）操作簡單性方案：開發(fā)的系統(tǒng)需