【正文】 [6] Stevens[美 ].TCP/IP 詳解 卷 1:協(xié)議 [M]．北京：機(jī)械工業(yè)出版社 ,2021。 [2]Douglas [美 ].TCP/IP詳解 [M].北京：清華大學(xué)出版社 ,1998。 本次課程設(shè)計是我從理論走向?qū)嵺`的第一次軟件開發(fā)經(jīng)歷。與傳統(tǒng)的文件傳輸工具相比，本系統(tǒng)不需要連接遠(yuǎn)程服務(wù)器 來進(jìn)行文件轉(zhuǎn)發(fā) ， 解決了傳統(tǒng)文件傳輸 比較煩瑣 的問題，同時也 節(jié)省了網(wǎng)絡(luò) 第 23 頁 共 26頁 開銷 ， 而且系統(tǒng)的運(yùn)行與外網(wǎng)徹底隔離，資源的安全性也得到了極大的保證， 達(dá)到快速安全的 資源 共享目的。 D．代碼不夠精煉。 本軟件適用于任何家庭網(wǎng)以及中小企業(yè)單位等局域網(wǎng)內(nèi)文件資源共享，屬于一款比較實(shí)用的文件傳輸軟件。 第 22 頁 共 26頁 件保存路徑后確認(rèn)即可。+savedir)。\39。我的電腦 39。 // cmd:=extractfilename(string(filename))。 // filename:=pchar()。 ldir:stringarray。 一臺主機(jī)作為發(fā)送方 選擇文件接收者，當(dāng)用戶選擇文件接收者 以后點(diǎn)擊“文件傳輸” 或者“文件夾傳輸” 按鈕后在文件選擇窗口載入需要發(fā)送的文件 或文件夾 ，另外一臺做為接收方的主 機(jī)會自動彈出文件保存提示框，如果服務(wù)器方拒絕接受文件可以點(diǎn)擊“取消”退出文件接收過程。本系統(tǒng)還實(shí)現(xiàn)文件夾的傳輸， 能夠同時對多個文件進(jìn)行傳輸以實(shí)現(xiàn)文件夾的共享。 第 21 頁 共 26頁 文件夾接收完畢保存到本地路徑，其源代碼如下： 5 系統(tǒng)實(shí)施及測試 實(shí)施概況 局域網(wǎng)內(nèi)文件傳輸系統(tǒng)目前運(yùn)行環(huán)境為： Windows 操作系統(tǒng)。 。 exit。BEGIN39。 if not directoryexists(localdir) then createdir(localdir)。)。START39。FALSE39。 writeln(39。\39。我的電腦 39。TRANSDIR39。 ldir:stringarray。 lsize:int64。 end。 finally 。BEGIN39。)。 ()。 psocket:tidtcpclient。 第 19 頁 共 26頁 客戶口端文件夾傳輸完畢以后斷開連接，釋放套節(jié)字空間。 procedure (LocalName:String。 end。 end else begin PutDir(LocalDir++39。) then begin if and faDirectoryfaDirectory then begin inc(POSI,1)。,faAnyFile,F)=0 then repeat if (39。 var F:TSearchRec。 。FALSE39。 if ()=39。 ()。 fs:tfilestream。 end。 end。39。,Dir)=true then begin rdir:=split(dir,39。 if SelectDirectory(39。 // Fcount:=count。localdir:string)。此部分的主要功能是向套 節(jié)字寫入傳輸文件的目標(biāo) IP 地址 等信息 ，如果 連接成功，寫 入文件傳輸信息(39。 toip:=trim([1])。提示 39。 tempItem:=。 tempItem:TListItem。 //保存文件名 if then move ([1],filename^,length()。 Procedure (var msg:tmessage)。這樣就可以避免一個文件夾中的 大量 文件重復(fù)進(jìn)行多次單文件的傳輸，很大程度上減少了用戶的工作量，從而有效地提高工 作效率。 end。 // openrevfilepath:=trim(strpas(localroot))+trim(ldir[0])。 end。)。 //創(chuàng)建接收到的文件夾下邊的文件夾 end。 localdir:=strpas(localroot)。then begin msg:=readln()。 。 exit。BEGIN39。 第 15 頁 共 26頁 tmpfn:=readln。 zeromemory(pname,255)。 //post the hostname //分配監(jiān)視器內(nèi)存 zeromemory(hostname,255)。 (fs,false,false,)。 if cmd=39。 ldir:stringarray。 lsize:int64。否則接收文件開始。 第 14 頁 共 26頁 文件傳輸完畢以后斷開 SOCKET連接并釋放套節(jié)字空間。 //整型轉(zhuǎn)字符型 為字 節(jié)流的長度 filename:=。TRANSFILE39。 //創(chuàng)建客戶端套界字 :=Fip。 procedure 。 FFilename:=filename。 第 13 頁 共 26頁 文件打開后客戶端調(diào)用函數(shù) 。 begin procedure (Sender: TObject)。,0)。 //獲取文件接收者 if (not assigned(tempItem)) or (tempItem=nil) then begin MessageBox( ,39。代碼依次如下： Procedure TForm1. BitBtn2Click(Sender: TObject)。建立文件流并執(zhí)行 。文件傳輸?shù)恼麄€過程可以分別表示為：客戶端和服務(wù)器端。并顯示在線人數(shù)。 。//關(guān)閉一次列舉 If Res NO_ERROR Then break。//取得一個工作組的名稱 Inc(P)。//申請內(nèi)存，用于獲取工作組信息 Res := WNetEnumResource(lphEnum, Count, Pointer(Buf), BufSize)。//Raise Exception(Res)。 NetworkTypeList := 。 第 11 頁 共 26頁 p : TNetResourceArray。 //獲取服務(wù)列表 Var NetResource : TNetResource。 then //處理 logout delete 其 ip begin recvname:=copy(msg,headlen+1,namelen)。 recvp2pdata(recvip,recvname,recvworkgroup,recvport)。 RECVNAME:=COPY(msg,headlen+1,namelen)。HAND39。 RECVPORT:=strtoint(copy(msg,headlen+1,portlen))。REVLOG39。 //返回對方 IP //端口等信息 strpcopy(minfobuf,minfo)。%6s%4d%255s39。 recvworkgroup:=copy(msg,headlen+namelen+1,length(msg))。 第 10 頁 共 26頁 獲取局域網(wǎng)的工作組名的源代碼如下 ： // (39。 if head=39。 (readbuf,sizeof(readbuf))。 msg,head,recvip,recvname,recvworkgroup,recvmsg,memo:string。 procedure (Sender: TObject。//關(guān)閉一次列舉 If Res NO_ERROR Then exit。 Inc(Temp)。 //執(zhí)行失敗 Temp := TNetResourceArray(Buf)。//緩沖區(qū)大小設(shè)置為 8K GetMem(Buf, BufSize)。//列舉文件資源信 Res := WNetOpenEnum( RESOURCE_GLOBALNET, RESOURCETYPE_DISK, RESOURCEUSAGE_CONTAINER, NetResource,lphEnum)。 FillChar(NetResource, SizeOf(NetResource), 0)。 lphEnum : THandle。 Var NetResource : TNetResource。 //銷毀線程 end。,myname])。 begin mylogoutinfo:=format(39。 end。HAND39。 minfo:string。 end。LOGIN39。 end。//得到用戶名 for j:=0 to do begin if ([j]=uppercase(myname)) or ([j]=myname) then begin myworkgroup:=[i]。//得到主機(jī)名 try wlist:=。 begin mainhide。 myinfobuf:array[0..1023]of char。如果新用戶上線，它就向局域網(wǎng)以 LOGIN 為頭信息廣播本機(jī)的主機(jī)名， IP 地址以及工作組。通信雙方是通過三次握手建立 Socket 連接，實(shí)現(xiàn)文件傳輸，最后關(guān)閉套節(jié)字連接。使網(wǎng)內(nèi)所有用戶都能夠獲取其他用戶信息。 現(xiàn)行系統(tǒng)存在的主要問題分析 針對企業(yè)來說，提高 工作效率是企業(yè)的一個重心；降低成本是企業(yè)贏取最大利益的重要方式；保證信息安全卻是可能影響企業(yè)生死存亡的關(guān)鍵。此三種方法并非不可行，但 它們都需要花費(fèi)較長的時間 以及安全性也得不到保證 ， 工作效率將在很大程度上受到限制。 服務(wù)器使用 Socket 監(jiān)聽指定的端口，端口可以隨意指定，等待客戶連接請求，客戶連接后，會話產(chǎn)生；在完成會話后，關(guān)閉連接。 SOCKET 網(wǎng)絡(luò)程序設(shè)計技術(shù) 文件傳輸系統(tǒng)得以實(shí)現(xiàn)的根本在于建立有效的連接以及是否存在文件傳輸載體。 Delphi 提供了各種開發(fā)工具，包括集成環(huán)境、圖像編輯（ Image Editor），以及各種開發(fā) 可視化軟件 的應(yīng)用程序，如 DesktopDataBase Expert 等。它 可是眾多 程序員至愛的編程工具。由于沒能提供用戶真正 期望的開放環(huán)境， C/S 結(jié)構(gòu)的軟件需要針對不同的操作系統(tǒng)系統(tǒng)開發(fā)不同版本的軟件，加之產(chǎn)品的更新?lián)Q代十分快，已經(jīng)很難適應(yīng) 百 臺電腦以上局域網(wǎng)用戶同時使用。所謂 C/S （ Client/Server）結(jié)構(gòu)，即大家熟知的客戶機(jī)和服務(wù)器結(jié)構(gòu)。采用 TCP/IP詳解 的原因： 第一， 局域網(wǎng)內(nèi)主機(jī)之間的是依靠 IP地址進(jìn)行標(biāo)識。雖然從名字上看 TCP/IP包括兩個協(xié)議，傳輸控制協(xié)議 (TCP)和網(wǎng)際協(xié)議 (IP)