【正文】 本軟件適用于任何家庭網以及中小企業(yè)單位等局域網內文件資源共享，屬于一款比較 實用的文件傳輸軟件。 測試結果 本 系統(tǒng)經多次測試，能在 Windows操作系統(tǒng)正常運行。 第 23 頁 共 26頁 件保存路徑后確認即可。 end。+savedir)。 (39。\39。\39。我的電腦 39。保存文件夾 39。 // cmd:=extractfilename(string(filename))。\39。 // filename:=pchar()。 begin Savedir:=39。 ldir:stringarray。 //接收文件夾名字及設置存放路徑 var localroot:pchar。 一臺主機作為發(fā)送方選擇文件接收者，當用戶選擇文件接收者以后點擊“文件傳 輸”或者“文件夾傳輸”按鈕后在文件選擇窗口載入需要發(fā)送的文件或文件夾，另外一臺做為接收方的主機會自動彈出文件保存提示框，如果服務器方拒絕接受文件可以點擊“取消”退出文件接收過程。在 Windows 操作系統(tǒng)下，以局域網內任意兩臺主機之間發(fā)送文件及文件夾。本系統(tǒng)還實現(xiàn)文件夾的傳輸，能夠同時對多個文件進行傳輸以實現(xiàn)文件夾的共享。連接建立以后客戶端不斷地向 SOCKET 寫入傳輸?shù)奈募?，服務器端接收文件流后重組文件并將文件保存到本地目錄。 第 22 頁 共 26頁 文件夾接收完畢保存到本地路徑，其源代碼如下： 5 系統(tǒng)實施及測試 實施概況 局域網內文件傳輸系統(tǒng)目前運行環(huán)境為： Windows 操作系統(tǒng)。 end。 。 fs:=(targetname,fmcreate)。 exit。 //發(fā)送開始 信號 lsize:=strtointdef(readln,0)。BEGIN39。 targetname:=strpas(localroot)+msg。 if not directoryexists(localdir) then createdir(localdir)。 for i:=0 to high(ldir)1 do begin localdir:=localdir+ldir[i]+39。)。 //接收文件名 ldir:=split(msg,39。START39。 end。FALSE39。)。 writeln(39。 zeromemory(localroot,255)。\39。\39。我的電腦 39。保存文件夾 39。TRANSDIR39。 begin 第 21 頁 共 26頁 with do begin cmd:=trim(readln)。 ldir:stringarray。 filename:pchar。 lsize:int64。 procedure (AThread: TIdPeerThread)。 end。 end。 finally 。 (lstream,false,false,lsize)。BEGIN39。 lsize:=。)。 try (39。 ()。 :=FIP。 psocket:tidtcpclient。以及設置存放路徑。 第 20 頁 共 26頁 客戶口端文件夾傳輸完畢以后斷開連接，釋放套 節(jié)字空間。 var lSize:Int64。 procedure (LocalName:String。 findClose(F)。 end。)。 end else begin PutDir(LocalDir++39。 Iremotefile:=trim(Copy(localfile,length(remotefilename)+1,length(localfile)))。) then begin if and faDirectoryfaDirectory then begin inc(POSI,1)。) and (39。,faAnyFile,F)=0 then repeat if (39。 begin if FindFirst(LocalDir+39。 var F:TSearchRec。 end。 。 end。FALSE39。 then putdir(Flocaldir)。 if ()=39。TRANSDIR39。 ()。 :=fip。 fs:tfilestream。 procedure 。 end。\39。 end。 //E:\due\why\ remotefilename:=remotefilename+39。39。)。,Dir)=true then begin rdir:=split(dir,39。,39。 if SelectDirectory(39。 inherited create(false)。 // Fcount:=count。 Flocaldir:=localdir。localdir:string)。)以及調用函數(shù) putdir(Flocaldir)寫入文件 流 。此部分的主要功能是向套節(jié)字寫入傳輸文件的目標 IP 地址 等信息 ，如果 連接成功，寫 入文件傳輸信息(39。39。 toip:=trim([1])。 exit。提示 39。請選擇消息接收者！ 39。 tempItem:=。 i:integer。 tempItem:TListItem。 procedure (Sender: TObject)。 //保存文件名 if then move ([1],filename^,length()。 begin filename:=pchar()。 Procedure (var msg:tmessage)。具體過程如下： 1）客戶端請求建立連接并發(fā)送文件夾 用戶選擇文件夾接收者后點擊“文件夾傳輸”按鈕。這樣就可以避免一個文件夾中的大量文件重復進行多次單文件的傳輸，很大程度上減少了用戶的工作量，從而有效地提高工作效率。但是用戶不可能進行一次又一次的單文件的傳送，不但浪費時間，而且很不值得。 end。 end。 // openrevfilepath:=trim(strpas(localroot))+trim(ldir[0])。 readstream(fs,lsize)。 end。 //接收文件大小 if lsize=0 then begin disconnect。)。 //本地文件名 writeln(39。 //創(chuàng)建接收到的文件夾下邊的文件夾 end。\39。 localdir:=strpas(localroot)。\39。then begin msg:=readln()。 if cmd=39。 。 fs:=(filename,fmcreate)。 exit。 lsize:=strtointdef(readln,0)。BEGIN39。 sendmessage(,WM_USER+100,integer(filename),0)。 第 16 頁 共 26頁 tmpfn:=readln。 postmessage(,TransferSupervisor,integer(pname),lSize)。 zeromemory(pname,255)。 //獲取傳輸文件名 postmessage(,TransferSupervisorTwo,integer(hostname),0)。 //post the hostname //分配監(jiān)視器內存 zeromemory(hostname,255)。 //釋放文件流 end。 (fs,false,false,)。then begin GetMem(filename,255)。 if cmd=39。 begin with do begin cmd:=trim(readln)。 ldir:stringarray。 filename:pchar。 lsize:int64。其源代碼如下： procedure (AThread: TIdPeerThread)。否則接收文件開始。連接建立后得到文件的基本信息，進行自動初始化并分配臨時空間。 第 15 頁 共 26頁 文件傳輸完畢以后斷開 SOCKET連接并釋放套節(jié)字空間。 //創(chuàng)建線程并立刻執(zhí)行 end。 //整型轉字符型 為字節(jié)流的長度 filename:=。 //寫入套接字類型為 TRANSFILE (FFileName)。TRANSFILE39。 //進行套節(jié)字連接 if then fs:=(FFileName,fmopenread)。 //創(chuàng)建客戶端套界字 :=Fip。 //定義客戶端套節(jié)字 fs:tfilestream。 procedure 。 //完成后自動關閉 inherited create(false)。 FFilename:=filename。碼如下 ： onstructor (IP,FileName:string)。 第 14 頁 共 26頁 文件打開后客戶端調用函數(shù) 。 begin :=INTTOSTR()。 begin procedure (Sender: TObject)。 end。,0)。,39。 //獲取文件接收者 if (not assigned(tempItem)) or (tempItem=nil) then begin MessageBox( ,39。 tempItem:TListItem。代碼依次如下： Procedure TForm1. BitBtn2Click(Sender: TObject)。向服務器發(fā)送連接請求。建立文件流并執(zhí)行 。如果沒有選擇就提示用戶選擇接收者。文件傳輸?shù)恼麄€過程可以分別表示為：客戶端和服務器端。系統(tǒng)實現(xiàn)主要依靠發(fā)送端與接收端建立有效的連接后，客戶端不斷地向 SOCKET寫入文件流，服務器端不斷接受來自客戶端的 SOCKET文件流。并顯示在線人數(shù)。