【正文】 ，但TCP/IP實際上是一組協(xié)議， 只是 TCP協(xié)議處于運輸層，它能夠確保 文件準確的傳送；而 IP協(xié)議處于網絡層，它標識了處于網絡中任意主機的唯一身份。 第 2 頁 共 26頁 2 理論基礎 TCP/IP 點對點協(xié)議技術 系統(tǒng)的文件傳輸功能主要依賴于建立客戶端與服務器之間點對點的的連接后實現?；诰钟蚓W的文件 傳輸 系統(tǒng)能夠讓家庭網絡以及各個 企業(yè)等局域網對內部資料有一個快捷， 準確 ,安全的共享。文件傳輸 系統(tǒng)由于比較復雜，可變因素較多， 安全性低 ，因此發(fā)展還不成熟。 而達到的效果卻總是因為傳輸效率以及安全威脅而受到很大的限制。 在計算機與網絡迅速發(fā)展的今天，借助于網絡進行信息資源交流給人們帶來了極大的方便。 Fifth, to carries on based on the local area work file transfer system tests and obtains the test result. Key words: C/S structure。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。 基于局域網的文件傳輸系統(tǒng)的設計選用 Delphi 為開發(fā)工具 ，以 C/S 模式通過建立 Socket 連接后實現局域網快速，準確，安全的點對點文件以及文件夾傳輸功能。很多情況下，人們的日常工作需要借助文件傳輸來完成。但大多數文件傳輸功能都需要借助移動磁盤等硬件設備或 Inter 上的服務器才能實現。本系統(tǒng)能夠促進局域網內用戶之間的文件資源共享，滿足主機之間信息交流，確保文件及文件夾傳輸安全性，有效地提高工作效率。 Second, introduces the TCP/IP point to point protocol technology, C/S overhead construction Delphi programming technique and the Socket work programming technology。 Network munication module。各種文件傳輸系統(tǒng)都已被廣大用戶接受。在這種形勢下，開發(fā)一個功能簡單而實用，能在 Windows 操作系統(tǒng)中運行，并且具有可移植性的局域網 內 文件傳輸工具勢在必行。 但是隨著科學技術的發(fā)展，各種以局域網為單位的文件傳輸系統(tǒng)已經進入穩(wěn)健發(fā)展期，比 如說市面上比較普遍使用的 、 UC、飛鴿傳書等以內部網絡為中心的資源共享系統(tǒng)也即將進入高速發(fā)展期。特別是對如今較大系統(tǒng)研發(fā)的模塊分工合作得到了絕對保密性，從而使各項工作有計劃、更科學的 進行 及順利完成，使企業(yè)的辦事效率得到顯著提高。所以就得與 TCP/IP協(xié)議協(xié)合。 TCP協(xié)議和 IP協(xié)議是保證數據完整傳輸的兩個基本的重要協(xié)議。本設計要實現文件 及文件夾的 傳輸就需要以 IP地址為傳送基礎進行 ； 第二，新用戶上線后需要向局域網內所有用戶廣播自己的主機信息使網內主機得到本機的 IP地址等。它是軟件系統(tǒng)體系結構，通過它可以充分利用兩端硬件環(huán)境的優(yōu)勢，將 信息交互 任務合理分配到 Client 端和 Server 端來實現，降低了系統(tǒng) 文件傳輸過程中的 開銷。 第 3 頁 共 26頁 Request Response Request Response Request Response . . . . Request . Response 圖 1 客戶機 /服務器 通訊 結構 文件傳輸系統(tǒng)同時采用了 Delphi網絡組件編程技術。 Delphi 具有 很多 特性：基于窗體和面向對象的方法，高速的編譯器，與 Windows 編程緊密結合，強大而成熟的組件技術。除此之外，還允許用戶掛接其它的應用程序開發(fā)工 具，如 Borland 公司的資源編輯器（ Resourse Workshop）。 所謂 Socket 通常也稱作 套接字 ，用于描述 IP 地址和端口， socket 類表現了客戶端套接字，它是屬于兩臺計算機的兩個 TCP 通訊端口之間的通訊通道。 3 系統(tǒng)需 求分析 現行業(yè)務系統(tǒng)描述 目前各種文件資源交流的主要方式可以分為三種 ：（ 1）通過局域網內主機之間以文件共享后再經過復制，粘貼方式實現。 如果 通過 局域網內主機之間復制 粘貼來 實現文件 資源 共享，將浪費 大量的 網絡 帶寬，極大程度上影響了網內用戶的工作效率 ，甚至導致用戶不能正常工作 ；如果依靠移動磁盤實現文件的共享，將花費 大量 的金錢 ， 而文件 較 大 移動磁盤容量不足 的情況下 會 令人 極為 頭疼， 何況 移動 磁盤 是病毒傳播的重要途徑； 如果 通過 Inter 郵件方式 實現 ， 用戶需要接入 Inter 服務器， 這種方式 對遠程服務器有非常大的依賴性， 即使 1KB 的文件都要經歷極度繁瑣的路徑， 不能徹底實現點對點的 即時 交流 ， 文件較大的情況下就不言而喻了 。企業(yè)需要對各種因素有足夠深刻的認識才可能實現最終目標 盈利。 第二部分：文件傳輸是本設計功能實現的核心。文件傳輸的整個流程圖如下： 第 6 頁 共 26頁 TCP/IP 3 次握手 SOCKET 流 三次握手 圖 2 文件傳輸系統(tǒng)框架圖 系統(tǒng)界面設計 界面設計 用戶 信息 用戶列表建立以后，將局域網內所有在線用戶的主機名，主機 IP 地址以及工作組名顯示于列表中。局域網內所有在線主機收到該廣播信息以后將新上線的主機名，端口， IP 地址以及工作組信息添加到 自己的在線用戶列表并都以 HAND 為頭信息向局域網廣播本機的握手信息；當包括剛上線主機在內的局域網所有主機收到這個握手信息以后線判斷自 己的在線用戶列表中是否存在這個主機廣播的主機信息，如果不存在就 說明 它 是剛上線主機，最后將這個信息添加到自己在線列表，否則就不加；當用戶下線的時候也將自己的信息以LOGOUT 為頭信息廣播給局域網，其他在線用戶收到這個消息以后將其主機信息從本地在線用戶列表刪除。 //本機信息 pmyname:array[0..1023]of char。 //把程序圖標顯示在系統(tǒng)托盤里邊 if wsastartup($101,wsadata)0 then exit。 clist:=。 //獲 本機工作 組 end。 myinfo:=format(39。,myname,myworkgroup])。 function (ip,name,workgroup:string。 begin minfo:=format(39。,name,workgroup])。 procedure (Sender: TObject)。%6s%255s39。 strpcopy(mylogoutbuf,mylogoutinfo)。 第 8 頁 共 26頁 系統(tǒng)功能模塊設計 獲取用戶信息 本部分主要是顯示用戶列表中在線用戶的主機名，主機的 IP 地址以 及工作組名三部分，代碼分別進行介紹如下： 獲取局域網內用戶名的源代碼如下： Function ( GroupName : string。 Buf : Pointer。 Temp : TNetResourceArray。////初始化網絡層次信息 := RESOURCEDISPLAYTYPE_SERVER。 If Res NO_ERROR Then Exit。//申請內存，用于獲取工作組信息 /獲取計算機名稱 Res := WNetEnumResource(lphEnum, Count, Pointer(Buf), BufSize)。 For Ind := 0 to Count 1 do//列舉工作組的計算機名稱 Begin tmpStr:=。 End。//執(zhí)行失敗 Result := True。 AData: TStream。 recvport:integer。 msg:=Trim(String(Pchar(Readbuf[0])))。LOGIN39。login recv39。 adduser(recvname,recvworkgroup,recvip,recvport)。,[39。 (recvip,recvport,minfobuf,sizeof(minfobuf))。then //添加對方返回的自己的 ip (對比 ) begin // (39。 recvip:=copy(msg,headlen+portlen+1,iplen)。 THEN //處理握手信息 添加對方 ip 返回對方 ip BEgin // (39。 recvworkgroup:=copy(msg,headlen+namelen+1,workglen)。 END。 if mynamerecvname then deleteuser(recvname)。 //初始化網絡層次信息 Buf : Pointer。 i,j : SmallInt。 //獲取局域網中的工作組信息 。//執(zhí)行失敗 //獲取整個網絡中的網絡類型信息 Count := $FFFFFFFF。 //獲取計算機名稱 If ( Res = ERROR_NO_MORE_ITEMS ) //資源列舉完畢 or (Res NO_