【正文】 [4]肖建 .Delphi6編程基礎(chǔ) [M].北京 :清華大學(xué)出版社 ,2021。我會在以后的工作學(xué)習(xí)中逐步解決這些問題，不斷完善這個系統(tǒng)。 B. 本系統(tǒng)不能夠支持斷點續(xù)傳功能。 end。\39。\39。 //接收文件夾名字及設(shè)置存放路徑 var localroot:pchar。連接建立以后客戶端不斷地向 SOCKET 寫入傳輸?shù)奈募鳎?wù)器端接收文件流后重組 文件并將文件保存到本地目錄。 fs:=(targetname,fmcreate)。 targetname:=strpas(localroot)+msg。 //接收文件名 ldir:=split(msg,39。)。\39。 begin 第 20 頁 共 26頁 with do begin cmd:=trim(readln)。 procedure (AThread: TIdPeerThread)。 (lstream,false,false,lsize)。 try (39。以 及設(shè)置存放路徑。 findClose(F)。 Iremotefile:=trim(Copy(localfile,length(remotefilename)+1,length(localfile)))。 begin if FindFirst(LocalDir+39。 end。TRANSDIR39。 procedure 。 //E:\due\why\ remotefilename:=remotefilename+39。,39。 Flocaldir:=localdir。39。請選擇消息接收者！ 39。 procedure (Sender: TObject)。具體過程如下： 1）客戶端請求建立連接并發(fā)送文件 夾 用戶選擇文件夾 接 收 者后點擊“文件夾傳輸”按鈕。 end。 //接收文件大小 if lsize=0 then begin disconnect。\39。 if cmd=39。 lsize:=strtointdef(readln,0)。 postmessage(,TransferSupervisor,integer(pname),lSize)。 //釋放文件流 end。 begin with do begin cmd:=trim(readln)。其源代碼如下： procedure (AThread: TIdPeerThread)。 //創(chuàng)建線程并立刻執(zhí)行 end。 //進行套節(jié)字連接 if then fs:=(FFileName,fmopenread)。 //完成后自動關(guān)閉 inherited create(false)。 begin :=INTTOSTR()。,39。向服務(wù)器發(fā) 送連接請求。系統(tǒng)實現(xiàn)主要依靠發(fā)送端與接收端建立有效 的連接后，客戶端不斷地向 SOCKET寫入文件流，服務(wù)器端不斷接受來自客戶端的 SOCKET文件流。 Result := True。 P := TNetResourceArray(Buf)。 //獲取整個網(wǎng)絡(luò)中的文件資源的句柄， lphEnum 為返回名柄 Res:=WNetOpenEnum( RESOURCE_GLOBALNET, RESOURCETYPE_DISK, RESOURCEUSAGE_CONTAINER, Nil,lphEnum)。 Count,BufSize,Res : DWORD。 if head=39。hand recv39。revlog recv39。HAND39。+recvip+inttostr(recvport))。 //(msg)。 ABinding: TIdSocketHandle)。 End。 第 9 頁 共 26頁 獲取局域網(wǎng)的用戶 IP 地址 以及添加用戶信息 的源代碼如下： If Res = ERROR_NO_MORE_ITEMS Then break。//類型為服務(wù)器（工作組 ） / := RESOURCEUSAGE_CONTAINER。 Count,BufSize,Res : DWord。 (mylogoutbuf,9000)。 //用戶離線 以 LOGINOUT 為頭信息 var mylogoutbuf:array[0..1023]of char。%6s%255s%255s39。 strpcopy(myinfobuf,myinfo)。 finally 。 //獲取本機名 gethostname(pmyname,sizeof(pmyname))。其部分的源代碼分別如下： 客戶端主機 服務(wù)器端主機 套節(jié)字連接請求 連接響應(yīng) 寫入文件流 接收文件流 并保存 斷開連接 斷開連接響應(yīng) LIANJIETCP 第 7 頁 共 26頁 procedure (Sender: TObject)。系統(tǒng)采用 C/S 架構(gòu)將系統(tǒng)運行載體分為兩個部分：客戶端與服務(wù)器端。 最重要的是，在如今病毒黑客橫行的網(wǎng)絡(luò)世界中，信息的安全性也得不到保證。 在網(wǎng)絡(luò)編程中， 客戶端使用 Socket 對網(wǎng)絡(luò)上某一個服務(wù)器的某一個端口發(fā)出連接請求，一旦連接成功，打開會話；會話完成后，關(guān)閉 Socket。而且其重要 的還 有 Object Pascal 語言，它是一切的根本。目前大多數(shù)應(yīng)用軟件系統(tǒng)都是Client/Server 形式的兩層結(jié)構(gòu) 。通常說 TCP/IP是 Inter協(xié)議族，而不單單是 TCP和 IP。文件傳輸系統(tǒng)主要功能是自動獲取局域網(wǎng)內(nèi)用戶的主機名， IP 地址以及工作組名字，最終以 C/S 模式通過 TCP/IP 協(xié)議實現(xiàn)點到點文件傳輸功能。 國內(nèi)外研究現(xiàn)狀 目前，國內(nèi)外企業(yè)對局域網(wǎng)的文件傳輸系統(tǒng)認識和使用情況并不好，各個企業(yè)單位在局域網(wǎng)內(nèi)實現(xiàn)文件傳輸，資源共享還有很大的缺陷。 Pointtopoint。 設(shè)計共分為五大模塊，分別為：一、介紹選題背景及意義和國內(nèi)外研究現(xiàn)狀；二、介紹 TCP/IP 點對點協(xié)議技術(shù) ,C/S 架構(gòu)的 Delphi 程序設(shè)計技術(shù)和 Socket 網(wǎng)絡(luò)編程技術(shù)；三、對當(dāng)前局域網(wǎng)文件傳輸進行需求分析并提出解決方案；四、根據(jù)解決方案對系統(tǒng)進行設(shè)計；五、對基于局域網(wǎng)的文件傳輸系統(tǒng)進行測試并得到測試結(jié)果。 A 公司局域網(wǎng)文件傳輸存在的問題及對策 摘 要 隨著互聯(lián)網(wǎng)技術(shù)的迅猛發(fā)展，計算機通信給人類文明帶來了翻天覆地的變化。 關(guān)鍵詞： C/S 結(jié)構(gòu)；網(wǎng)絡(luò)通訊組件；點對點； Socket 連接 591 論文網(wǎng) The Design and Implementation of File Transfer System Based on LAN Abstract Along with the Inter technology swift and violent development, the puter correspondence the human culture has brought the earthshaking change for. In very many situations, people39。 Socket connection. 591 論文網(wǎng) 目 錄 論文總頁數(shù)： 26 頁 1 引言 ................................................................... 1 選題背景 ........................................................... 1 國內(nèi)外研究現(xiàn)狀 ...................................................... 1 課題研究的意義 ...................................................... 1 2 理論基礎(chǔ) ............................................................... 2 TCP/IP點對點協(xié)議技術(shù) ............................................... 2 C/S架構(gòu)的 DELPHI程序設(shè)計技術(shù) ....................................... 2 SOCKET網(wǎng)絡(luò)程序設(shè)計技術(shù) ............................................. 3 3 系統(tǒng)需求分析 ........................................................... 4 現(xiàn)行業(yè)務(wù)系統(tǒng)描述 .................................................... 4 現(xiàn)行系統(tǒng)存在的主要問題分析 .......................................... 4 提出解決方案 ....................................................... 4 4 系 統(tǒng)設(shè)計 ............................................................... 4 系統(tǒng)總體架構(gòu) ....................................................... 4 系統(tǒng)界面設(shè)計 ....................................................... 6 界面設(shè)計 ....................................................... 6 用戶信息 ....................................................... 6 系統(tǒng)功能模塊設(shè)計 .................................................... 8 獲取用戶信息 .................................................... 8 局域網(wǎng)內(nèi)文件傳輸 ............................................... 12 局域網(wǎng)內(nèi)文件夾傳輸 ............................................. 16 5 系統(tǒng)實施及測試 ........................................................ 21 實施概況 .......................................................... 21 測試方案 .......................................................... 21 測試結(jié)果 .......................................................... 22 參考文獻 .................................................................. 23 第 1 頁 共 26頁 1 引言 選題背景 當(dāng)今世界科學(xué)技術(shù)飛速發(fā)展，尤其以計算機通信網(wǎng)絡(luò)為代表的互聯(lián)網(wǎng)技術(shù)更是日新月異，令人眼花燎亂，目不睱接。 技術(shù)無論 是從 理論上 或 實踐 上 都還不夠完善 。 本系統(tǒng)既鍛煉了我們的實際動手能力，使我們將大學(xué)四年所學(xué)的理論知識與實際開發(fā)相結(jié)合，又引導(dǎo)我們進行了一次模擬實際產(chǎn)品的開發(fā)，對于我們以后工作能力的培養(yǎng)具有重要的意義。 傳統(tǒng)的 C／ S 體系結(jié)構(gòu)雖然采用的是開放模式，但這只是系統(tǒng)開發(fā)一級的開放性，在特定的應(yīng)用中無論是 Client 端還是 Server端都還需要特定的軟件支持。