基于局域網(wǎng)的文件傳輸系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)—免費(fèi)畢業(yè)設(shè)計(jì)論文-資料下載頁

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

　　

【正文】 end。 if SelectDirectory(39。目錄文件夾 39。,39。我的電腦 39。,Dir)=true then begin rdir:=split(dir,39。\39。)。 remotefilename:=39。39。 for i:=0 to high(rdir)1 do begin remotefilename:=remotefilename+rdir[i]。 //E:\due\why\ remotefilename:=remotefilename+39。\39。 end。 dir:=dir+39。\39。 (toip,dir)。 end。 end。 procedure 。 var csocket:tidtcpclient。 fs:tfilestream。 begin try csocket:=(nil)。 :=fip。 :=9923。 ()。 if then 第 19 頁 共 26頁 begin (39。TRANSDIR39。)。 if ()=39。TRUE39。 then putdir(Flocaldir)。 if ()=39。FALSE39。then 。 end。 finally 。 。 end。 end。 procedure (LocalDir: String)。 var F:TSearchRec。 Iremotefile,localfile:string。 begin if FindFirst(LocalDir+39。*.*39。,faAnyFile,F)=0 then repeat if (39。.39。) and (39。..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。 第 20 頁 共 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 第 21 頁 共 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。 第 22 頁 共 26頁 文件夾接收完畢保存到本地路徑，其源代碼如下： 5 系統(tǒng)實(shí)施及測試 實(shí)施概況 局域網(wǎng)內(nèi)文件傳輸系統(tǒng)目前運(yùn)行環(huán)境為： Windows 操作系統(tǒng)。 文件傳輸系統(tǒng)在 WINDOWS 操作系統(tǒng)下，以 C/S 的模式客戶端主動向服務(wù)器端發(fā)送 SOCKET 套節(jié)字連接請求后，服務(wù) 器收到連接請求后對其進(jìn)行響應(yīng)并初始化臨時內(nèi)存空間，建立連接。連接建立以后客戶端不斷地向 SOCKET 寫入傳輸?shù)奈募鳎?wù)器端接收文件流后重組文件并將文件保存到本地目錄。文件傳輸完畢關(guān)閉套節(jié)字連接。本系統(tǒng)還實(shí)現(xiàn)文件夾的傳輸，能夠同時對多個文件進(jìn)行傳輸以實(shí)現(xiàn)文件夾的共享。 測試方案 局域網(wǎng)的文件傳輸系統(tǒng)既是服務(wù)器端，又是客戶端。在 Windows 操作系統(tǒng)下，以局域網(wǎng)內(nèi)任意兩臺主機(jī)之間發(fā)送文件及文件夾。測試過程中，兩臺測試主機(jī)同時運(yùn)行設(shè)計(jì)軟件。 一臺主機(jī)作為發(fā)送方選擇文件接收者，當(dāng)用戶選擇文件接收者以后點(diǎn)擊“文件傳 輸”或者“文件夾傳輸”按鈕后在文件選擇窗口載入需要發(fā)送的文件或文件夾，另外一臺做為接收方的主機(jī)會自動彈出文件保存提示框，如果服務(wù)器方拒絕接受文件可以點(diǎn)擊“取消”退出文件接收過程。否則用戶選擇文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。 第 23 頁 共 26頁 件保存路徑后確認(rèn)即可。系統(tǒng)的測試界面如下： 圖 4 系統(tǒng)運(yùn)行界面 本系統(tǒng)鑒于快速準(zhǔn)確文件傳輸功能實(shí)現(xiàn)的同時，能夠保證信息安全的保密性。 測試結(jié)果 本 系統(tǒng)經(jīng)多次測試，能在 Windows操作系統(tǒng)正常運(yùn)行。 基本上實(shí)現(xiàn)了 預(yù)期的功能 ,目前 測試 運(yùn)行良好。 本軟件適用于任何家庭網(wǎng)以及中小企業(yè)單位等局域網(wǎng)內(nèi)文件資源共享，屬于一款比較 實(shí)用的文件傳輸軟件。 由于時間倉促，一些技術(shù)和設(shè)備所限，本系統(tǒng)依然存在大量不足之處，有待進(jìn)一步改進(jìn)和完善，具體說來有： A. 如果系統(tǒng)運(yùn)行環(huán)境 WINDOWS系統(tǒng)裝有防火墻有可能導(dǎo)致服務(wù)列表中工作