【正文】 ile 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。 Fourth, carries on the design according to the solution to the system。 Socket connection. 目 錄 論文總頁(yè)數(shù)： 26 頁(yè) 1 引言 ................................................................... 1 選題背景 ........................................................... 1 國(guó)內(nèi)外研究現(xiàn)狀 ...................................................... 1 課題研究的意義 ...................................................... 1 2 理論基礎(chǔ) ............................................................... 2 TCP/IP點(diǎn)對(duì)點(diǎn)協(xié)議技術(shù) ............................................... 2 C/S架構(gòu)的 DELPHI程序設(shè)計(jì)技術(shù) ....................................... 2 SOCKET網(wǎng)絡(luò)程序設(shè)計(jì)技術(shù) ............................................. 3 3 系統(tǒng)需求分析 ........................................................... 4 現(xiàn)行業(yè)務(wù)系統(tǒng)描述 .................................................... 4 現(xiàn)行系統(tǒng)存在的主要問(wèn)題分析 .......................................... 4 提出解決方案 ....................................................... 4 4 系 統(tǒng)設(shè)計(jì) ............................................................... 5 系統(tǒng)總體架構(gòu) ....................................................... 5 系統(tǒng)界面設(shè)計(jì) ....................................................... 6 界面設(shè)計(jì) ....................................................... 6 用戶信息 ....................................................... 7 系統(tǒng)功能模塊設(shè)計(jì) .................................................... 9 獲取用戶信息 .................................................... 9 局域網(wǎng)內(nèi)文件傳輸 ............................................... 13 局域網(wǎng)內(nèi)文件夾傳輸 ............................................. 17 5 系統(tǒng)實(shí)施及測(cè)試 ........................................................ 22 實(shí)施概況 .......................................................... 22 測(cè)試方案 .......................................................... 22 測(cè)試結(jié)果 .......................................................... 23 參考文獻(xiàn) .................................................................. 24 致 謝 .................................................................. 25 聲 明 ................................................................... 0 第 1 頁(yè) 共 26頁(yè) 1 引言 選題背景 當(dāng)今世界科學(xué)技術(shù)飛速發(fā)展，尤其以計(jì)算機(jī)通信網(wǎng)絡(luò)為代表的互聯(lián)網(wǎng)技術(shù)更是日新月異，令人眼花燎亂，目不睱接。甚至需要花費(fèi)大量的金錢購(gòu)買各種移動(dòng)磁盤或者其他局域網(wǎng)內(nèi)連接主機(jī)的硬件設(shè)備 。 技術(shù)無(wú)論 是從 理論上 或 實(shí)踐 上 都還不夠完善 。 課題研究的意義 隨著網(wǎng)絡(luò)通信技術(shù)的發(fā)展與用戶需求日益多樣化，現(xiàn)代局域網(wǎng)絡(luò)正處在變革與發(fā)展之中，本課題的主要目的之一是為了更清晰地培養(yǎng)學(xué)生掌握科學(xué)研究方法的能力和使學(xué)生迅速體會(huì)文件傳輸系統(tǒng)的研發(fā)過(guò)程。 本系統(tǒng)既鍛煉了我們的實(shí)際動(dòng)手能力，使我們將大學(xué)四年所學(xué)的理論知識(shí)與實(shí)際開(kāi)發(fā)相結(jié)合，又引導(dǎo)我們進(jìn)行了一次模擬實(shí)際產(chǎn)品的開(kāi)發(fā)，對(duì)于我們以后工作能力的培養(yǎng)具有重要的意義。 TCP/IP是網(wǎng)絡(luò)中使用的基本通信協(xié)議。 C/S 架構(gòu)的 DELPHI 程序設(shè)計(jì)技術(shù) 本系統(tǒng)的開(kāi)發(fā)主要采用 C/S 結(jié)構(gòu)。 傳統(tǒng)的 C／ S 體系結(jié)構(gòu)雖然采用的是開(kāi)放模式，但這只是系統(tǒng)開(kāi)發(fā)一級(jí)的開(kāi)放性，在特定的應(yīng)用中無(wú)論是 Client 端還是 Server端都還需要特定的軟件支持。 它具有簡(jiǎn)單、高效、功能強(qiáng)大的特點(diǎn)。 Object Pascal 語(yǔ)言是在 Pascal 語(yǔ)言的基礎(chǔ)上發(fā)展起來(lái)的，簡(jiǎn)單易學(xué)。用戶可以開(kāi)發(fā)支持 WEB 服務(wù)特性的服務(wù)器端和客戶端應(yīng)用，而這一切都是通過(guò)一套高度集成的可視化開(kāi)發(fā)工具，先進(jìn)的編譯技術(shù)和可重用的組件完成?？蛻舳瞬? 服務(wù)器主機(jī) 客戶機(jī) A 客戶機(jī) B 客戶機(jī) C 客戶機(jī) N 第 4 頁(yè) 共 26頁(yè) 需要指定打開(kāi)的端口 。（ 3）通過(guò) Inter 郵件方式實(shí)現(xiàn)。 綜上所述，依靠 Inter 網(wǎng)絡(luò)等方式實(shí)現(xiàn)文件資源交互的準(zhǔn)確性，快速性及安全性遠(yuǎn)達(dá)不到理想的要求。 提出解決方案 解決當(dāng)前問(wèn)題的方案主要是指在允許的成本、性能要求下，分析系統(tǒng)實(shí)施的可行性，提出功能實(shí)現(xiàn)的依據(jù)，包括其簡(jiǎn)單性，安全性以及經(jīng)濟(jì)可行性。對(duì)于家庭局域網(wǎng)以及一些比較簡(jiǎn)單的中小企業(yè)網(wǎng)，系統(tǒng)必須做到在實(shí)際應(yīng)用中較為成功。最重要的一點(diǎn)就是：使用戶避免花費(fèi)高額的資金去購(gòu)買各種移動(dòng)磁盤甚至是通過(guò) Inter 郵件方式，使得用戶方便的同時(shí)，也讓信息少走了不少“彎路”。并能夠 確保內(nèi)部文件的機(jī)密性，能夠在很大程度上有效地提高工作效率。系統(tǒng)采用 C/S 架構(gòu)將系統(tǒng)運(yùn)行載體分為兩個(gè)部分：客戶端與服務(wù)器端。界面的設(shè)計(jì)可以分為五步： 1）創(chuàng)建一個(gè)工程，制作一個(gè)窗體 form1； 2）在 form1 內(nèi)加入用戶列表 userlist 并設(shè)置列表項(xiàng)：用戶名，工作組 ， IP地址以及它們的屬性； 3）在 form1 內(nèi)加入 Memo1； 4）在 Memo1 內(nèi)加入各種 DELPHI 網(wǎng)絡(luò)通訊控件，本系統(tǒng)用到的控件分別有： a. 用于傳送文件是打開(kāi)文件的控件 OpenDialog1； b. 用于接收端保存文件的控件 SaveDialog1； c. 用 于 點(diǎn)到 點(diǎn)文 件 傳輸 的客 戶 端 PClientConnected 及服 務(wù)器 端PServerAfterCommandHandler； d. 用于廣播主機(jī)信息的客戶端 ClientStatus 和服務(wù)器端 ServerStatus 數(shù)據(jù)報(bào)組件； e. 用于設(shè)置退出系統(tǒng)和窗口前端顯示的 PopupMenu1 菜單； 5）分別創(chuàng)建刷新按鈕 BitBtn1,文件傳輸 BitBtn2 以及文件夾傳輸 BitBtn3按鈕。如果新用戶上線，它就向局域網(wǎng)以 LOGIN 為頭信息廣播本機(jī)的主機(jī)名， IP 地址以及工作組 。 myinfobuf:array[0..1023]of char。 begin mainhide。//得到主機(jī)名 try wlist:=。//得到用戶名 for j:=0 to do begin if ([j]=uppercase(myname)) or ([j]=myname) then begin myworkgroup:=[i]。 end。LOGIN39。 end。 minfo:string。HAND39。 end。 begin mylogoutinfo:=format(39。,myname])。 //銷毀線程 end。 Var NetResource : TNetResource。 lphEnum : THandle。 FillChar(NetResource, SizeOf(NetResource), 0)。//列舉 文件資源信 Res := WNetOpenEnum( RESOURCE_GLOBALNET, RESOURCETYPE_DISK, RESOURCEUSAGE_CONTAINER, NetResource,lphEnum)。//緩沖區(qū)大小設(shè)置為 8K GetMem(Buf, BufSize)。 //執(zhí)行失敗 Temp := TNetResourceArray(Buf)。 Inc(Temp)。//關(guān)閉一次列舉 If Res NO_ERROR Then exit。 procedure (Sender: TObject。 msg,head,recvip,recvname,recvworkgroup,recvmsg,memo:string。 (readbuf,sizeof(readbuf))。 if head=39。 第 11 頁(yè) 共 26頁(yè) 獲取局域網(wǎng)的工作組名的源代碼如下 ： // (39。 recvworkgroup:=copy(msg,headlen+namelen+1,length(msg))。%6s%4d%255s39。 //返回對(duì)方 IP //端口等信息 strpcopy(minfobuf,minfo)。REVLOG39。 RECVPORT:=strtoint(copy(msg,headlen+1,portlen))。HAND39。 RECVNAME:=COPY(msg,headlen+1,namelen)。 recvp2pdata(recvip,recvname,recvworkgroup,recvport)。 then //處理 logout delete 其 ip begin recvname:=copy(msg,headlen+1,namelen)。 //獲取服務(wù)列表 Var NetResource : TNetResource。 第 12 頁(yè) 共 26頁(yè) p : TNetResourceArray。 NetworkTypeList := 。//Raise Exception(Res)。//申請(qǐng)內(nèi)存，用于獲取工作組信息 Res := WNetEnumResource(lphEnum, Count, Pointer(Buf), BufSize)。//取得一個(gè)工作組的名稱 Inc(P)。//關(guān)閉一次列舉 If Res NO_ERROR Then break。 。并顯示在線人數(shù)。文件傳輸?shù)恼麄€(gè)過(guò)程可以分別表示為：客戶端和服務(wù)器端。建立文件流并執(zhí)行 。代碼依次如下： Procedure TForm1. BitBtn2Click(Sender: TObject)。 //獲取文件接收者 if (not assigned(tempItem)) or (tempItem=nil) then begin M