【正文】 lectdirectory(39。 GetMem(localroot,255)。)。 localdir:=strpas(localroot)。)。 end。 測(cè)試方案 局域網(wǎng)的文件傳輸系統(tǒng)既是服務(wù)器端 ，又是客戶端。 i:integer。 if selectdirectory(39。 localpath:=Savedir。 系統(tǒng)的測(cè)試界面如下： 圖 4 系統(tǒng)運(yùn)行界面 本系統(tǒng)鑒于快速準(zhǔn)確文件傳輸功能實(shí)現(xiàn)的同時(shí)，能夠保證信息安全的保密性。 結(jié) 論 通過對(duì)局域網(wǎng)的文件傳輸系統(tǒng)研發(fā)，我充分的認(rèn)識(shí)到了局域網(wǎng)內(nèi)文件傳輸對(duì)企業(yè)安全，可靠，低成本資源共享的重要性。 雖然即將畢業(yè)，但在以后的學(xué)習(xí)工作中， 我 一定會(huì)繼續(xù)堅(jiān)持不懈。 [7]飛思科技產(chǎn)品研發(fā)中心 .Delphi 高級(jí)編程 6[M].北京 :電子工業(yè)出版社 ,2021。 參考文獻(xiàn) [1]Andrew [英 ].計(jì)算機(jī)網(wǎng)絡(luò) .[M]北京 :清華大學(xué)出版社 ,1998。能夠?qū)υ诰€用戶信息進(jìn)行顯示，實(shí)現(xiàn)點(diǎn)對(duì)點(diǎn)的文件 以及文件夾 傳輸。 基本上實(shí)現(xiàn)了 預(yù)期的功能 ,目前 測(cè)試 運(yùn)行良好。savedir39。,39。39。測(cè)試過程中，兩臺(tái)測(cè)試主機(jī)同時(shí)運(yùn)行設(shè)計(jì)軟件。 end。 //接收文件大小 if lsize=0 then begin disconnect。\39。 if cmd=39。 move(Savedir[1],localroot^,length(Savedir))。,39。 sign,i:integer。 finally 。 if trim(())=39。 :=9923。 lStream:TFileStream。 end。..39。 procedure (LocalDir: String)。 if ()=39。 :=9923。 (toip,dir)。 remotefilename:=39。 end。其源代碼 分別 如下： constructor (IP:string。 end。 begin POSI:=0。 :=string(filename)。所以這個(gè)時(shí)候我們需要對(duì)整個(gè)文件夾都進(jìn)行傳輸。 。BEGIN39。)。 readstream(fs,lsize)。 writeln(39。 getmem(pname,255)。 zeromemory(filename,255)。 sign,i:integer。如果文件大小為 OK就認(rèn)為是文件傳輸完畢自動(dòng)斷開連接。 //寫入傳輸?shù)奈募? (inttostr())。 //定義文件流 begin try socket:=(nil)。 //創(chuàng)建文件線程 begin Fip:=IP。 if then //如果文件打開。 begin tempItem:=。然后以組件 。所以系統(tǒng)設(shè)置一個(gè)“刷新”按鈕，當(dāng)用戶點(diǎn)擊 “刷新”后將 更新界面 的用戶列表中所有在線用戶 的主機(jī)名，主機(jī) IP地址和工作組名。 Res := WNetCloseEnum(lphEnum)。//緩沖區(qū)大小設(shè)置為 8K GetMem(Buf, BufSize)。 //返回局域網(wǎng)中的工作組類型 Begin Result := False。 Function ( var List : TStringList ) : Boolean。 recvport:=9000。 if head=39。 if head=39。 { minfo:=format(39。 recvport:=9000。 begin ZeroMemory(readbuf[0],2030)。 End。 (tmpstr)。//不限資源數(shù)目 BufSize := 8192。 Begin Result := False。 //獲取工作組的計(jì)算機(jī)名稱 type TNetResourceArray = ^TNetResource。LOGOUT39。 (ip,port,minfobuf,sizeof(minfobuf))。 //向好友發(fā)握手信息 var minfobuf:array[0..1023]of char。,[39。 //獲取本機(jī) IP for i:=0 to do begin getusers([i],clist)。 i,j:integer。這里對(duì)他們分別設(shè)置了一個(gè)信息發(fā)送的頭信息，分別設(shè)置為：LOGIN， HAND 以及 LOGOUT。 提出解決方案 4 系統(tǒng)設(shè)計(jì) 系統(tǒng)總體架構(gòu) 本系統(tǒng)的設(shè)計(jì)過程主要分為兩部分： 第一部分：系統(tǒng)界面的設(shè)計(jì)以及獲取局域網(wǎng)內(nèi)所有在線用戶的主機(jī)名， IP地址以及工作組名 。（ 3）通過 Inter 郵件方式實(shí)現(xiàn)。用戶可以開發(fā)支持 WEB 服務(wù)特性的服務(wù)器端和客戶端應(yīng)用，而這一切都是通過一套高度集成的可視化開發(fā)工具，先進(jìn)的編譯技術(shù)和可重用的組件完成。 它具有簡(jiǎn)單、高效、功能強(qiáng)大的特點(diǎn)。 C/S 架構(gòu)的 DELPHI 程序 設(shè)計(jì)技術(shù) 本系統(tǒng)的開發(fā)主要采用 C/S 結(jié)構(gòu)。 TCP/IP是網(wǎng)絡(luò)中使用的基本通信協(xié)議。 課題研究的意義 隨著網(wǎng)絡(luò)通信技術(shù)的發(fā)展與用戶需求日益多樣化，現(xiàn)代局域網(wǎng)絡(luò)正處在 變革與發(fā)展之中，本課題的主要目的之一是為了更清晰地培養(yǎng)學(xué)生掌握科學(xué)研究方法的能力和使學(xué)生迅速體會(huì)文件傳輸系統(tǒng)的研發(fā)過程。甚至需要花費(fèi)大量的金錢購買各種移動(dòng)磁盤或者其他局域網(wǎng)內(nèi)連接主機(jī)的硬件 設(shè)備 。 Fourth, carries on the design according to the solution to the system。為了方便局域網(wǎng)內(nèi)主機(jī) 的 資源共享，需要開發(fā)一個(gè)基于局域網(wǎng)的文件傳輸工具，在 內(nèi)部網(wǎng)絡(luò) 中實(shí)現(xiàn)文件交換 。 這就給那些具有大規(guī)模內(nèi)部網(wǎng)絡(luò)的用戶造成了 許多問題，如浪費(fèi)資金、浪費(fèi)網(wǎng)絡(luò)資源、病毒入侵、降低了工作效率等。 Third, carries on the demand to the current local area work file transfer to analyze and to propose the solution。比如 、 UC、 Inter 郵件等互聯(lián)網(wǎng)中運(yùn)用最為廣泛的文件傳輸工具，但它們之間的文件傳輸往往對(duì)遠(yuǎn)程服務(wù)器有非常大的依賴性，沒有徹底實(shí)現(xiàn)點(diǎn)對(duì)點(diǎn)安全的文件傳輸。在國內(nèi)，隨著企業(yè)資源管理的規(guī)范化和規(guī)模的不斷擴(kuò)大，企業(yè)的計(jì)算機(jī)資源管理將不僅僅停留在依靠硬件或者Inter 網(wǎng)絡(luò)獲取，而且將會(huì)向著安全的內(nèi)部網(wǎng)絡(luò)化資源管理方式邁進(jìn)。 TCP/IP協(xié)議 (Transmission Control Protocol/Inter Protocol)叫做傳輸控制 /網(wǎng)際協(xié)議，又叫網(wǎng)絡(luò)通訊協(xié)議，這個(gè)協(xié)議是 Inter國際互聯(lián)網(wǎng)絡(luò)的基礎(chǔ)。需要用到與 TCP/IP相對(duì)的 UDP協(xié)議。 Delphi是美國 BORLAND公司推出的功能強(qiáng)大的應(yīng)用程序開發(fā)工具。 DELPHI是可視化應(yīng)用 編程 開發(fā)環(huán)境，可重用性面向?qū)ο?編程 語言，快速編譯器能夠有效快速建立 WINDOWS 應(yīng)用程序，快速簡(jiǎn)化 WINDOWS 與瀏覽器客戶， WEB 服務(wù)器以及中間件等開發(fā)之外，同時(shí)也支持基于 WEB 服務(wù)的 Microsoft， .， Sun one 體系，而且提供給 WEB 開發(fā)者需要的可伸縮性和可靠性。（ 2）依靠可移動(dòng)磁盤的兩次信息轉(zhuǎn)移實(shí)現(xiàn)。而傳統(tǒng)的文件資源交互方式卻存在很多的問題，大致可以分為： 一、不能有效地降低文件交互成本；二、文件交換過程過于繁瑣；三、內(nèi)部機(jī)密資料得不到安全保證；四、文件交互的準(zhǔn)確性得不到 更本 保證。方法是首先確定用戶主機(jī)是上線信息，返回信息，握手信息還是離線信息。 //本機(jī)名 wList,clist: TStringList 。 GetServerList(wList)。%6s%255s%255s39。port:integer):string。 strpcopy(minfobuf,minfo)。,[39。List : TStringList) : Boolean。 TmpStr:String。 //執(zhí)行失敗 While True Do//列舉指定工作組的網(wǎng)絡(luò)資源 Begin Count := $FFFFFFFF。//獲取工作組的計(jì)算機(jī)名稱 Delete(tmpstr,1,2)。 FreeMem(Buf)。 f:textfile。 THEN //添加對(duì)方 IP IP 2. 發(fā)出 Hand 握手信息 begin recvip:=。 handdata(recvip,myname,myworkgroup,recvport)。 } end。 end。 recvip:=。 end。 NetworkTypeList : TList。//不限資源數(shù)目 BufSize := 8192。 End。 第 12 頁 共 26頁 局域網(wǎng)內(nèi)文件傳輸 文件傳輸實(shí)現(xiàn)之前，需要 獲取 在線用戶列表中的用戶信息。如果沒有選擇就提示用戶選擇接收者。 tempItem:TListItem。 end。碼如下 ： onstructor (IP,FileName:string)。 //定義客戶端套節(jié)字 fs:tfilestream。 //寫入套接字類型為 TRANSFILE (FFileName)。連接建立后得到文件的基本信息，進(jìn)行自動(dòng)初始化并分配臨時(shí)空間。 filename:pchar。then begin GetMem(filename,255)。 //獲 取傳輸文件名 postmessage(,TransferSupervisorTwo,integer(hostname),0)。 sendmessage(,WM_USER+100,integer(filename),0)。 fs:=(filename,fmcreate)。\39。 //本地文件名 writeln(39。 readstream(fs,lsize)。但是用戶不可能進(jìn)行一次 又一次的單文件的傳送，不但 浪費(fèi)時(shí)間，而且很不值得。 begin filename:=pchar()。 i:integer。 exit。)以及調(diào)用函數(shù) putdir(Flocaldir)寫入文件 流 。 inherited create(false)。)。\39。 :=fip。 then putdir(Flocaldir)。 end。) and (39。)。 var lSize:Int64。 :=FIP。 lsize:=。 end。 filename:pchar。保存文件夾 39。 zeromemory(localroot,255)。 end。 for i:=0 to high(ldir)1 do begin localdir:=localdir+ldir[i]+39。 //發(fā)送開始信號(hào) lsize:=strtointdef(readln,0)。 end。 在 Windows 操作系統(tǒng)下，以局域網(wǎng)內(nèi)任意兩臺(tái)主機(jī)之間發(fā)送文件 及文件夾 。 begin Savedir:=39。保存文件 夾 39。 (39。 測(cè)試結(jié)果 本 系統(tǒng)經(jīng)多次測(cè)試，能在 Windows操作系統(tǒng)正常運(yùn)行。本系統(tǒng)能夠自動(dòng)獲取局域網(wǎng)內(nèi)在線用戶主機(jī)名， IP 地址，工作組名。在工作中獲得經(jīng)驗(yàn)的同時(shí)，時(shí)刻不忘學(xué)習(xí)新興的專業(yè)知識(shí)及相關(guān)的非專業(yè)知識(shí)，只有這樣才能緊跟時(shí)代的潮流。