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