【正文】 ERROR) //執(zhí)行失敗 then break。 End。//執(zhí)行失敗 End。 End。 源代碼如下： 文件 以及文件夾 傳輸功能是本設(shè)計(jì)能夠?qū)崿F(xiàn)的理論核心。 1）客戶端連接并發(fā)送功能 : 客戶端點(diǎn)擊文件發(fā)送按鈕以后，系統(tǒng)首先判斷是否選擇文件接受者。在 機(jī)的 IP及端口號(hào)。 //發(fā)送按鈕 文件傳輸 事件 var filename:string。請(qǐng)選擇消息接收者！ 39。 exit。 //顯示在線人數(shù) var f:textfile。此函數(shù)的源代碼如下 ： 文 件 流 建 立 后 由 inherited create(false) 提 示 系 統(tǒng) 自 動(dòng) 執(zhí) 行。 FreeonTerminate:=true。 //運(yùn)行線程 var socket:tidtcpclient。 //寫(xiě)入 IP ()。)。 //獲 取文件名 ([1],extractfilename(filename))。 2）服務(wù)器端響應(yīng)功能 ： 當(dāng)服務(wù)器收到來(lái)自客戶端文件傳輸連接請(qǐng)求后，對(duì)其進(jìn)行連接響應(yīng)建立連接。當(dāng)傳輸完畢后斷開(kāi)連接。 fs:tfilestream。 lSavePath,Savedir:String。TRANSFILE39。 //寫(xiě)入文件 finally 。 //清空內(nèi)存 move(myname[1],hostname^,length(myName))。 //post fname and size move(FFileName[1],pname^,length(FFileName))。 move(tmpfn[1],filename^,length(tmpfn))。)。 end。 end。 //接收文件名 ldir:=split(msg,39。 for i:=0 to high(ldir)1 do begin localdir:=localdir+ldir[i]+39。 targetname:=strpas(localroot)+msg。 //發(fā)送開(kāi)始信號(hào) lsize:=strtointdef(readln,0)。 //如果發(fā)過(guò)來(lái)的文件是 0KB 的 會(huì)收不到 所以 Delete fs:=(targetname,fmcreate)。 end。 第 16 頁(yè) 共 26頁(yè) 服務(wù)器端將收到的文件流重組以后通過(guò) Delphi組件 SaveDialog設(shè)置保存路徑并 保存到本地文件夾，其源代碼如下： 局域網(wǎng)內(nèi)文件夾傳輸 在人們的日常生活 中，很多時(shí)候不僅僅需要進(jìn)行單個(gè)文件的共享，而是需要進(jìn)成百上千個(gè) 文件 組成的文件夾 的共享。其過(guò)程同樣的分為服務(wù)器與客戶口端兩部分：首先是客戶口端向 服務(wù)器發(fā)送連接請(qǐng)求，服務(wù)器響應(yīng)后建立連接實(shí)現(xiàn)文件傳輸 。 //保存文件 var filename:pchar。 end。 Rdir:stringarray。 if (not assigned(tempItem)) or (tempItem=nil) then begin MessageBox( ,39。,0)。 Dir := 39。TRANSDIR39。 begin FIP:=IP。 freeonterminate:=true。目錄文 件夾 39。\39。 for i:=0 to high(rdir)1 do begin remotefilename:=remotefilename+rdir[i]。 dir:=dir+39。 end。 begin try csocket:=(nil)。 if then 第 18 頁(yè) 共 26頁(yè) begin (39。TRUE39。then 。 end。 Iremotefile,localfile:string。.39。 localfile:=localdir+。\39。 until FindNext(F)0。Remotedir:String)。 2）服務(wù)器端接收到文件夾傳輸請(qǐng)求以后，初始化分配臨時(shí)空間，獲取 文 件夾基本信息。 begin try psocket:=(nil)。 if then begin lstream:=(localname,fmopenread)。 (remotedir)。then begin (inttostr(lsize))。 end。 end。 fs:tfilestream。 lSavePath,Savedir:String。then //接收文件夾信號(hào) begin if selectdirectory(39。,Savedir)=true then begin if trim(copy(Savedir,length(Savedir),1))39。 GetMem(localroot,255)。TRUE39。)。then begin msg:=readln()。 localdir:=strpas(localroot)。 //創(chuàng)建接收到的文件夾下邊的文件夾 end。)。 end。 end。 文件傳輸系統(tǒng)在 WINDOWS 操作系統(tǒng)下，以 C/S 的模式客戶端主動(dòng)向服務(wù)器端發(fā)送 SOCKET 套節(jié)字連接請(qǐng)求后，服務(wù)器收到連接請(qǐng)求后對(duì)其進(jìn)行響應(yīng)并初始化臨時(shí)內(nèi)存空間，建立連接。 測(cè)試方案 局域網(wǎng)的文件傳輸系統(tǒng)既是服務(wù)器端 ，又是客戶端。否則用戶選擇文Procedure (var msg:tmessage)。 i:integer。 取得文件夾名字 // ldir:=split(string(filename),39。 if selectdirectory(39。,Savedir)=true then begin if trim(copy(Savedir,length(Savedir),1))39。 localpath:=Savedir。 //取得本地磁盤(pán)路徑 move(localpath[1],localroot^,length(localpath))。 系統(tǒng)的測(cè)試界面如下： 圖 4 系統(tǒng)運(yùn)行界面 本系統(tǒng)鑒于快速準(zhǔn)確文件傳輸功能實(shí)現(xiàn)的同時(shí)，能夠保證信息安全的保密性。 由于時(shí)間倉(cāng)促，一些技術(shù)和設(shè)備所限，本系統(tǒng)依然存在大量不足之處，有待進(jìn)一 步改進(jìn)和完善，具體說(shuō)來(lái)有： A. 如果系統(tǒng)運(yùn)行環(huán)境 WINDOWS系統(tǒng)裝有防火墻有可能導(dǎo)致服務(wù)列表中工作組的顯示出現(xiàn)問(wèn)題。 結(jié) 論 通過(guò)對(duì)局域網(wǎng)的文件傳輸系統(tǒng)研發(fā)，我充分的認(rèn)識(shí)到了局域網(wǎng)內(nèi)文件傳輸對(duì)企業(yè)安全，可靠，低成本資源共享的重要性。 通過(guò)測(cè)試和試用，我發(fā)現(xiàn)該系統(tǒng)還存在以下的問(wèn)題： 如果軟件運(yùn)行環(huán)境安裝有防火墻，用戶列表中工作組的顯示可能會(huì)出現(xiàn)異常； 整個(gè)系統(tǒng)功能不夠全面，比如說(shuō)不能實(shí)現(xiàn)文件的斷點(diǎn)傳輸； 操作界面的問(wèn)題：盡管在設(shè)計(jì)的過(guò)程中，我時(shí)刻考慮到了操作界面的友好性，但做出的系統(tǒng)友好性仍不高。 雖然即將畢業(yè)，但在以后的學(xué)習(xí)工作中， 我 一定會(huì)繼續(xù)堅(jiān)持不懈。 [3]鮑敏 ,吳昊 .Delphi 網(wǎng)絡(luò)高級(jí)編程 [M]. 北京 :人民郵電出版 ,2021。 [7]飛思科技產(chǎn)品研發(fā)中心 .Delphi 高級(jí)編程 6[M].北京 :電子工業(yè)出版社 ,2021。 [5]施新剛 .Delphi實(shí)效編程百例 [M]. 北京 :人民郵電出版社 ,2021。 參考文獻(xiàn) [1]Andrew [英 ].計(jì)算機(jī)網(wǎng)絡(luò) .[M]北京 :清華大學(xué)出版社 ,1998。 經(jīng)過(guò)這幾個(gè)月畢 業(yè)設(shè)計(jì)的制作， 我 確實(shí)學(xué)到了大量網(wǎng)絡(luò)通訊方面的知識(shí)，同時(shí)也對(duì)自己知識(shí)的欠缺有了深刻的認(rèn)識(shí)。能夠?qū)υ诰€用戶信息進(jìn)行顯示，實(shí)現(xiàn)點(diǎn)對(duì)點(diǎn)的文件 以及文件夾 傳輸。 C． 對(duì)窗體設(shè)計(jì)中有大量需要改進(jìn)的地方。 基本上實(shí)現(xiàn)了 預(yù)期的功能 ,目前 測(cè)試 運(yùn)行良好。 end。savedir39。 then Savedir:=Savedir+39。,39。)。39。 savedir,cmd,tempdir:string。測(cè)試過(guò)程中，兩臺(tái)測(cè)試主機(jī)同時(shí)運(yùn)行設(shè)計(jì)軟件。文件傳輸完畢關(guān)閉套節(jié)字連接。 end。 readstream(fs,lsize)。 //接收文件大小 if lsize=0 then begin disconnect。 //本地文件 名 writeln(39。\39。\39。 if cmd=39。 end else writeln(39。 move(Savedir[1],localroot^,length(Savedir))。 then Savedir:=Savedir+39。,39。 if cmd=39。 sign,i:integer。 var cmd,tmpfn,msg,targetname,localdir,:string。 finally 。 end。 if trim(())=39。START39。 :=9923。 Sfilename:string。 lStream:TFileStream。 end。 end。 putfile(localfile,Iremotefile)。..39。*.*39。 procedure (LocalDir: String)。 finally 。 if ()=39。)。 :=9923。 var csocket:tidtcpclient。 (toip,dir)。\39。 remotefilename:=39。我的電腦 39。 end。 // Fremotename:=remotename。其源代碼 分別 如下： constructor (IP:string。 第 17 頁(yè) 共 26頁(yè) 文件夾選取以后 調(diào)用 (toip,dir)建立文件夾傳輸流， 其源代碼如下： 文件夾傳輸流建立以后，由函數(shù) inherited create(false)提示立刻執(zhí)行文件傳輸流函數(shù) 。 end。,39。 begin POSI:=0。 var dir:string。 :=string(filename)。 如果用戶忘記選擇文件接收者，系統(tǒng)彈出提示框“請(qǐng)選擇消息接收者”，然后打開(kāi)本地文件路徑， 并將本地文件夾路徑得出來(lái) 。所以這個(gè)時(shí)候我們需要對(duì)整個(gè)文件夾都進(jìn)行傳輸。 end。 。 exit。BEGIN39。 if not directoryexists(localdir) then createdir(localdir)。)。START39。 readstream(fs,lsize)。