【正文】 文件夾的傳輸， 能夠同時對多個文件進行傳輸以實現(xiàn)文件夾的共享。BEGIN39。FALSE39。TRANSDIR39。 finally 。 psocket:tidtcpclient。 end else begin PutDir(LocalDir++39。 。 fs:tfilestream。,Dir)=true then begin rdir:=split(dir,39。此部分的主要功能是向套 節(jié)字寫入傳輸文件的目標 IP 地址 等信息 ，如果 連接成功，寫 入文件傳輸信息(39。 tempItem:TListItem。 end。 //創(chuàng)建接收到的文件夾下邊的文件夾 end。 exit。 //post the hostname //分配監(jiān)視器內存 zeromemory(hostname,255)。 lsize:int64。TRANSFILE39。 第 13 頁 共 26頁 文件打開后客戶端調用函數(shù) 。代碼依次如下： Procedure TForm1. BitBtn2Click(Sender: TObject)。 。//Raise Exception(Res)。 then //處理 logout delete 其 ip begin recvname:=copy(msg,headlen+1,namelen)。 RECVPORT:=strtoint(copy(msg,headlen+1,portlen))。 recvworkgroup:=copy(msg,headlen+namelen+1,length(msg))。 msg,head,recvip,recvname,recvworkgroup,recvmsg,memo:string。 //執(zhí)行失敗 Temp := TNetResourceArray(Buf)。 lphEnum : THandle。 begin mylogoutinfo:=format(39。 end。//得到主機名 try wlist:=。通信雙方是通過三次握手建立 Socket 連接，實現(xiàn)文件傳輸，最后關閉套節(jié)字連接。 服務器使用 Socket 監(jiān)聽指定的端口，端口可以隨意指定，等待客戶連接請求，客戶連接后，會話產生；在完成會話后，關閉連接。由于沒能提供用戶真正 期望的開放環(huán)境， C/S 結構的軟件需要針對不同的操作系統(tǒng)系統(tǒng)開發(fā)不同版本的軟件，加之產品的更新?lián)Q代十分快，已經(jīng)很難適應 百 臺電腦以上局域網(wǎng)用戶同時使用。 第 2 頁 共 26頁 2 理論基礎 TCP/IP 點對點協(xié)議技術 系統(tǒng)的文件傳輸功能主要依賴于建立客戶端與服務器之間點對點的的連接后實現(xiàn)。 在計算機與網(wǎng)絡迅速發(fā)展的今天，借助于網(wǎng)絡進行信息資源交流給人們帶來了極大的方便。很多情況下，人們的日常工作需要借助文件傳輸來完成。 Network munication module。特別是對如今較大系統(tǒng)研發(fā)的模塊分工合作得到了絕對保密性，從而使各項工作有計劃、更科學的 進行 及順利完成，使企業(yè)的辦事效率得到顯著提高。它是軟件系統(tǒng)體系結構，通過它可以充分利用兩端硬件環(huán)境的優(yōu)勢，將 信息交互 任務合理分配到 Client 端和 Server 端來實現(xiàn)，降低了系統(tǒng) 文件傳輸過程中的 開銷。 所謂 Socket 通常也稱作 套接字 ，用于描述 IP 地址和端口， socket 類表現(xiàn)了客戶端套接字，它是屬于兩臺計算機的兩個 TCP 通訊端口之間的通訊通道。 第二部分：文件傳輸是本設計功能實現(xiàn)的核心。 //把程序圖標顯示在系統(tǒng)托盤里邊 if wsastartup($101,wsadata)0 then exit。,myname,myworkgroup])。 procedure (Sender: TObject)。 Buf : Pointer。//申請內存，用于獲取工作組信息 /獲取計算機名稱 Res := WNetEnumResource(lphEnum, Count, Pointer(Buf), BufSize)。 AData: TStream。login recv39。then //添加對方返回的自己的 ip (對比 ) begin // (39。 END。 //獲取局域網(wǎng)中的工作組信息 。//執(zhí)行失敗 End。在 機的 IP及端口號。 //顯示在線人數(shù) var f:textfile。 //寫入 IP ()。當傳輸完畢后斷開連接。 //寫入文件 finally 。)。 for i:=0 to high(ldir)1 do begin localdir:=localdir+ldir[i]+39。 end。 end。 Dir := 39。目錄文 件夾 39。 end。then 。 localfile:=localdir+。 2）服務器端接收到文件夾傳輸請求以后，初始化分配臨時空間，獲取 文 件夾基本信息。then begin (inttostr(lsize))。 lSavePath,Savedir:String。TRUE39。 //創(chuàng)建接收到的文件夾下邊的文件夾 end。 文件傳輸系統(tǒng)在 WINDOWS 操作系統(tǒng)下，以 C/S 的模式客戶端主動向服務器端發(fā)送 SOCKET 套節(jié)字連接請求后，服務器收到連接請求后對其進行響應并初始化臨時內存空間，建立連接。 取得文件夾名字 // ldir:=split(string(filename),39。 //取得本地磁盤路徑 move(localpath[1],localroot^,length(localpath))。 通過測試和試用，我發(fā)現(xiàn)該系統(tǒng)還存在以下的問題： 如果軟件運行環(huán)境安裝有防火墻，用戶列表中工作組的顯示可能會出現(xiàn)異常； 整個系統(tǒng)功能不夠全面，比如說不能實現(xiàn)文件的斷點傳輸； 操作界面的問題：盡管在設計的過程中，我時刻考慮到了操作界面的友好性，但做出的系統(tǒng)友好性仍不高。 [5]施新剛 .Delphi實效編程百例 [M]. 北京 :人民郵電出版社 ,2021。 C． 對窗體設計中有大量需要改進的地方。 then Savedir:=Savedir+39。 savedir,cmd,tempdir:string。 readstream(fs,lsize)。\39。 then Savedir:=Savedir+39。 var cmd,tmpfn,msg,targetname,localdir,:string。START39。 end。*.*39。)。\39。 // Fremotename:=remotename。,39。 如果用戶忘記選擇文件接收者，系統(tǒng)彈出提示框“請選擇消息接收者”，然后打開本地文件路徑， 并將本地文件夾路徑得出來 。 exit。START39。 end。 // (cmd)。 end。 //表示創(chuàng)建線程后立刻執(zhí)行 end。提示 39。直到文件傳輸完畢關閉套節(jié)字連接并釋放空間。 For I := 0 To Count 1 Do //列舉各個工作組的信息 Begin ( StrPAS( P^.lpRemoteName )) 。 lphEnum : THandle。)。,myname,myworkgroup])。 head:=trim(copy(msg,1,headlen))。 Res := WNetCloseEnum(lphEnum)。 := RESOURCETYPE_DISK。 // 廣播自己離線信息 。,[39。 。 //新用戶上線 以 LOGIN 為頭信息 var wsadata:twsadata。 綜上所述 ，依靠 Inter 網(wǎng)絡等方式實現(xiàn)文件資源交互的 準確性，快速性及 安全性遠達不到理想的要求。 Object Pascal 語言是在 Pascal 語言的基礎上發(fā)展起來的，簡單易學。 技術無論 是從 理論上 或 實踐 上 都還不夠完善 。 關鍵詞： C/S 結構；網(wǎng)絡通訊組件；點對點； Socket 連接 591 論文網(wǎng) The Design and Implementation of File Transfer System Based on LAN Abstract Along with the Inter technology swift and violent development, the puter correspondence the human culture has brought the earthshaking change for. In very many situations, people39。 設計共分為五大模塊，分別為：一、介紹選題背景及意義和國內外研究現(xiàn)狀；二、介紹 TCP/IP 點對點協(xié)議技術 ,C/S 架構的 Delphi 程序設計技術和 Socket 網(wǎng)絡編程技術；三、對當前局域網(wǎng)文件傳輸進行需求分析并提出解決方案；四、根據(jù)解決方案對系統(tǒng)進行設計；五、對基于局域網(wǎng)的文件傳輸系統(tǒng)進行測試并得到測試結果。 國內外研究現(xiàn)狀 目前，國內外企業(yè)對局域網(wǎng)的文件傳輸系統(tǒng)認識和使用情況并不好，各個企業(yè)單位在局域網(wǎng)內實現(xiàn)文件傳輸，資源共享還有很大的缺陷。通常說 TCP/IP是 Inter協(xié)議族，而不單單是 TCP和 IP。而且其重要 的還 有 Object Pascal 語言，它是一切的根本。 最重要的是，在如今病毒黑客橫行的網(wǎng)絡世界中，信息的安全性也得不到保證。其部分的源代碼分別如下： 客戶端主機 服務器端主機 套節(jié)字連接請求 連接響應 寫入文件流 接收文件流 并保存 斷開連接 斷開連接響應 LIANJIETCP 第 7 頁 共 26頁 procedure (Sender: TObject)。 finally 。%6s%255s%255s39。 (mylogoutbuf,9000)。//類型為服務器（工作組 ） / := RESOURCEUSAGE_CONTAINER。 End。 //(msg)。HAND39。hand recv39。 Count,BufSize,Res : DWORD。 P := TNetResourceArray(Buf)。系統(tǒng)實現(xiàn)主要依靠發(fā)送端與接收端建立有效 的連接后，客戶端不斷地向 SOCKET寫入文件流，服務器端不斷接受來自客戶端的 SOCKET文件流。,39。 //完成后自動關閉 inherited create(false)。 //創(chuàng)建線程并立刻執(zhí)行 end。 begin with do begin cmd:=trim(readln)。 postmessage(,TransferSupervisor,integer(pname),lSize)。 if cmd=39。 //接收文件大小 if lsize=0 then begin disconnect。具體過程如下： 1）客戶端請求建立連接并發(fā)送文件 夾 用戶選擇文件夾 接 收 者后點擊“文件夾傳輸”按鈕。請選擇消息接收者！ 39。 Flocaldir:=localdir。 //E:\due\why\ remotefilename:=remotefilename+39。TRANSDIR39。 begin if FindFirst(LocalDir+39。 findClose(F)。 try (39。 procedure (AThread: TIdPeerThread)。\39。 //接收文件名 ldir:=split(msg,39。 fs:=(targetname,fmcreate)。 //接收文件夾