【導(dǎo)讀】很多情況下，人們的日常工作需要借助文件傳輸來完成。但大多數(shù)文件傳輸。功能都需要借助移動磁盤等硬件設(shè)備或Inter上的服務(wù)器才能實現(xiàn)。病毒入侵、降低了工作效率等。為了方便局域網(wǎng)內(nèi)主機的資源共享，需要開發(fā)一。個基于局域網(wǎng)的文件傳輸工具，在內(nèi)部網(wǎng)絡(luò)中實現(xiàn)文件交換。本系統(tǒng)能夠促進局域網(wǎng)內(nèi)用戶之間的文件資源共享，滿足主機之間信息。交流，確保文件及文件夾傳輸安全性，有效地提高工作效率。設(shè)計共分為五大模塊，分別為：一、介紹選題背景及意義和國內(nèi)外研究現(xiàn)狀；

　　

【正文】 39。) then begin if and faDirectoryfaDirectory then begin inc(POSI,1)。 localfile:=localdir+。 Iremotefile:=trim(Copy(localfile,length(remotefilename)+1,length(localfile)))。 putfile(localfile,Iremotefile)。 end else begin PutDir(LocalDir++39。\39。)。 end。 end。 until FindNext(F)0。 findClose(F)。 end。 procedure (LocalName:String。Remotedir:String)。 var lSize:Int64。 lStream:TFileStream。 第 19 頁 共 26頁 客戶口端文件夾傳輸完畢以后斷開連接，釋放套節(jié)字空間。 2）服務(wù)器端接收到文件夾傳輸請求以后，初始化分配臨時空間，獲取 文 件夾基本信息。以 及設(shè)置存放路徑。 Sfilename:string。 psocket:tidtcpclient。 begin try psocket:=(nil)。 :=FIP。 :=9923。 ()。 if then begin lstream:=(localname,fmopenread)。 try (39。START39。)。 (remotedir)。 lsize:=。 if trim(())=39。BEGIN39。then begin (inttostr(lsize))。 (lstream,false,false,lsize)。 end。 finally 。 end。 end。 finally 。 end。 end。 procedure (AThread: TIdPeerThread)。 var cmd,tmpfn,msg,targetname,localdir,:string。 lsize:int64。 fs:tfilestream。 filename:pchar。 sign,i:integer。 ldir:stringarray。 lSavePath,Savedir:String。 begin 第 20 頁 共 26頁 with do begin cmd:=trim(readln)。 if cmd=39。TRANSDIR39。then //接收文件夾信號 begin if selectdirectory(39。保存文件夾 39。,39。我的電腦 39。,Savedir)=true then begin if trim(copy(Savedir,length(Savedir),1))39。\39。 then Savedir:=Savedir+39。\39。 GetMem(localroot,255)。 zeromemory(localroot,255)。 move(Savedir[1],localroot^,length(Savedir))。 writeln(39。TRUE39。)。 end else writeln(39。FALSE39。)。 end。 if cmd=39。START39。then begin msg:=readln()。 //接收文件名 ldir:=split(msg,39。\39。)。 localdir:=strpas(localroot)。 for i:=0 to high(ldir)1 do begin localdir:=localdir+ldir[i]+39。\39。 if not directoryexists(localdir) then createdir(localdir)。 //創(chuàng)建接收到的文件夾下邊的文件夾 end。 targetname:=strpas(localroot)+msg。 //本地文件 名 writeln(39。BEGIN39。)。 //發(fā)送開始信號 lsize:=strtointdef(readln,0)。 //接收文件大小 if lsize=0 then begin disconnect。 exit。 end。 fs:=(targetname,fmcreate)。 readstream(fs,lsize)。 。 end。 end。 end。 第 21 頁 共 26頁 文件夾接收完畢保存到本地路徑，其源代碼如下： 5 系統(tǒng)實施及測試 實施概況 局域網(wǎng)內(nèi)文件傳輸系統(tǒng)目前運行環(huán)境為： Windows 操作系統(tǒng)。 文件傳輸系統(tǒng)在 WINDOWS 操作系統(tǒng)下，以 C/S 的模式客戶端主動向服務(wù)器端發(fā)送 SOCKET 套節(jié)字連接請求后，服務(wù)器收到連接請求后對其進行響應(yīng)并初始化臨時內(nèi)存空間，建立連接。連接建立以后客戶端不斷地向 SOCKET 寫入傳輸?shù)奈募?，服?wù)器端接收文件流后重組 文件并將文件保存到本地目錄。文件傳輸完畢關(guān)閉套節(jié)字連接。本系統(tǒng)還實現(xiàn)文件夾的傳輸， 能夠同時對多個文件進行傳輸以實現(xiàn)文件夾的共享。 測試方案 局域網(wǎng)的文件傳輸系統(tǒng)既是服務(wù)器端 ，又是客戶端。 在 Windows 操作系統(tǒng)下，以局域網(wǎng)內(nèi)任意兩臺主機之間發(fā)送文件 及文件夾 。測試過程中，兩臺測試主機同時運行設(shè)計軟件。 一臺主機作為發(fā)送方 選擇文件接收者，當用戶選擇文件接收者 以后點擊“文件傳輸” 或者“文件夾傳輸” 按鈕后在文件選擇窗口載入需要發(fā)送的文件 或文件夾 ，另外一臺做為接收方的主 機會自動彈出文件保存提示框，如果服務(wù)器方拒絕接受文件可以點擊“取消”退出文件接收過程。否則用戶選擇文Procedure (var msg:tmessage)。 //接收文件夾名字及設(shè)置存放路徑 var localroot:pchar。 savedir,cmd,tempdir:string。 ldir:stringarray。 i:integer。 begin Savedir:=39。39。 // filename:=pchar()。 取得文件夾名字 // ldir:=split(string(filename),39。\39。)。 // cmd:=extractfilename(string(filename))。 if selectdirectory(39。保存文件 夾 39。,39。我的電腦 39。,Savedir)=true then begin if trim(copy(Savedir,length(Savedir),1))39。\39。 then Savedir:=Savedir+39。\39。 localpath:=Savedir。 (39。savedir39。+savedir)。 //取得本地磁盤路徑 move(localpath[1],localroot^,length(localpath))。 end。 end。 第 22 頁 共 26頁 件保存路徑后確認即可。 系統(tǒng)的測試界面如下： 圖 4 系統(tǒng)運行界面 本系統(tǒng)鑒于快速準確文件傳輸功能實現(xiàn)的同時，能夠保證信息安全的保密性。 測試結(jié)果 本 系統(tǒng)經(jīng)多次測試，能在 Windows操作系統(tǒng)正常運行。 基本上實現(xiàn)了 預(yù)期的功能 ,目前 測試 運行良好。 本軟件適用于任何家庭網(wǎng)以及中小企業(yè)單位等局域網(wǎng)內(nèi)文件資源共享，屬于一款比較實用的文件傳輸軟件。 由于時間倉促，一些技術(shù)和設(shè)備所限，本系統(tǒng)依然存在大量不足之處，有待進一 步改進和完善，具體說來有： A. 如果系統(tǒng)運行環(huán)境 WINDOWS系統(tǒng)裝有防火墻有可能導(dǎo)致服務(wù)列表中工作組的顯示出現(xiàn)問題。 B. 本系統(tǒng)不能夠支持斷點續(xù)傳功能。 C． 對窗體設(shè)計中有大量需要改進的地方。 D．代碼不夠精煉。 結(jié) 論 通過對局域網(wǎng)的文件傳輸系統(tǒng)研發(fā)，我充分的認識到了局域網(wǎng)內(nèi)文件傳輸對企業(yè)安全，可靠，低成本資源共享的重要性。本系統(tǒng)能夠自動獲取局域網(wǎng)內(nèi)在線用戶主機名， IP 地址，工作組名。能夠?qū)υ诰€用戶信息進行顯示，實現(xiàn)點對點的文件 以及文件夾 傳輸。與傳統(tǒng)的文件傳輸工具相比，本系統(tǒng)不需要連接遠程服務(wù)器 來進行文件轉(zhuǎn)發(fā) ， 解決了傳統(tǒng)文件傳輸 比較煩瑣 的問題，同時也 節(jié)省了網(wǎng)絡(luò) 第 23 頁 共 26頁 開銷 ， 而且系統(tǒng)的運行與外網(wǎng)徹底隔離，資源的安全性也得到了極大的保證， 達到快速安全的 資源 共享目的。 通過測試和試用，我發(fā)現(xiàn)該系統(tǒng)還存在以下的問題： 如果軟件運行環(huán)境安裝有防火墻，用戶列表中工作組的顯示可能會出現(xiàn)異常； 整個系統(tǒng)功能不夠全面，比如說不能實現(xiàn)文件的斷點傳輸； 操作界面的問題：盡管在設(shè)計的過程中，我時刻考慮到了操作界面的友好性，但做出的系統(tǒng)友好性仍不高。我會在以后的工作學(xué)習中逐步解決這些問題，不斷完善這個系統(tǒng)。 經(jīng)過這幾個月畢 業(yè)設(shè)計的制作， 我 確實學(xué)到了大量網(wǎng)絡(luò)通訊方面的知識，同時也對自己知識的欠缺有了深刻的認識。 本次課程設(shè)計是我從理論走向?qū)嵺`的第一次軟件開發(fā)經(jīng)歷。 雖然即將畢業(yè)，但在以后的學(xué)習工作中， 我 一定會繼續(xù)堅持不懈。在工作中獲得經(jīng)驗的同時，時刻不忘學(xué)習新興的專業(yè)知識及相關(guān)的非專業(yè)知識，只有這樣才能緊跟時代的潮流。 參考文獻 [1]Andrew [英 ].計算機網(wǎng)絡(luò) .[M]北京 :清華大學(xué)出版社 ,1998。 [2]Douglas [美 ].TCP/IP詳解 [M].北京：清華大學(xué)出版社 ,1998。 [3]鮑敏 ,吳昊 .Delphi 網(wǎng)絡(luò)高級編程 [M]. 北京 :人民郵電出版 ,2021。 [4]肖建 .Delphi6編程基礎(chǔ) [M].北京 :清華大學(xué)出版社 ,2021。 [5]施新剛 .Delphi實效編程百例 [M]. 北京 :人民郵電出版社 ,2021。 [6] Stevens[美 ].TCP/IP 詳解 卷 1:協(xié)議 [M]．北京：機械工業(yè)出版社 ,2021。 [7]飛思科技產(chǎn)品研發(fā)中心 .Delphi 高級編程 6[M].北京 :電子工業(yè)出版社 ,2021。