【正文】 網(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ù)更是日新月異，令人眼花燎亂，目不睱接。 技術(shù)無(wú)論 是從 理論上 或 實(shí)踐 上 都還不夠完善 。 本系統(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)具有重要的意義。 傳統(tǒng)的 C／ S 體系結(jié)構(gòu)雖然采用的是開(kāi)放模式，但這只是系統(tǒng)開(kāi)發(fā)一級(jí)的開(kāi)放性，在特定的應(yīng)用中無(wú)論是 Client 端還是 Server端都還需要特定的軟件支持。 Object Pascal 語(yǔ)言是在 Pascal 語(yǔ)言的基礎(chǔ)上發(fā)展起來(lái)的，簡(jiǎn)單易學(xué)?？蛻舳瞬? 服務(wù)器主機(jī) 客戶機(jī) A 客戶機(jī) B 客戶機(jī) C 客戶機(jī) N 第 4 頁(yè) 共 26頁(yè) 需要指定打開(kāi)的端口 。 綜上所述，依靠 Inter 網(wǎng)絡(luò)等方式實(shí)現(xiàn)文件資源交互的準(zhǔn)確性，快速性及安全性遠(yuǎn)達(dá)不到理想的要求。對(duì)于家庭局域網(wǎng)以及一些比較簡(jiǎn)單的中小企業(yè)網(wǎng)，系統(tǒng)必須做到在實(shí)際應(yīng)用中較為成功。并能夠 確保內(nèi)部文件的機(jī)密性，能夠在很大程度上有效地提高工作效率。界面的設(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按鈕。 myinfobuf:array[0..1023]of char。//得到主機(jī)名 try wlist:=。 end。 end。HAND39。 begin mylogoutinfo:=format(39。 //銷(xiāo)毀線程 end。 lphEnum : THandle。//列舉 文件資源信 Res := WNetOpenEnum( RESOURCE_GLOBALNET, RESOURCETYPE_DISK, RESOURCEUSAGE_CONTAINER, NetResource,lphEnum)。 //執(zhí)行失敗 Temp := TNetResourceArray(Buf)。//關(guān)閉一次列舉 If Res NO_ERROR Then exit。 msg,head,recvip,recvname,recvworkgroup,recvmsg,memo:string。 if head=39。 recvworkgroup:=copy(msg,headlen+namelen+1,length(msg))。 //返回對(duì)方 IP //端口等信息 strpcopy(minfobuf,minfo)。 RECVPORT:=strtoint(copy(msg,headlen+1,portlen))。 RECVNAME:=COPY(msg,headlen+1,namelen)。 then //處理 logout delete 其 ip begin recvname:=copy(msg,headlen+1,namelen)。 第 12 頁(yè) 共 26頁(yè) p : TNetResourceArray。//Raise Exception(Res)。//取得一個(gè)工作組的名稱(chēng) Inc(P)。 。文件傳輸?shù)恼麄€(gè)過(guò)程可以分別表示為：客戶端和服務(wù)器端。代碼依次如下： Procedure TForm1. BitBtn2Click(Sender: TObject)。,0)。 第 14 頁(yè) 共 26頁(yè) 文件打開(kāi)后客戶端調(diào)用函數(shù) 。 procedure 。TRANSFILE39。 第 15 頁(yè) 共 26頁(yè) 文件傳輸完畢以后斷開(kāi) SOCKET連接并釋放套節(jié)字空間。 lsize:int64。 if cmd=39。 //post the hostname //分配監(jiān)視器內(nèi)存 zeromemory(hostname,255)。 第 16 頁(yè) 共 26頁(yè) tmpfn:=readln。 exit。then begin msg:=readln()。 //創(chuàng)建接收到的文件夾下邊的文件夾 end。 end。 end。 Procedure (var msg:tmessage)。 tempItem:TListItem。提示 39。此部分的主要功能是向套節(jié)字寫(xiě)入傳輸文件的目標(biāo) IP 地址 等信息 ，如果 連接成功，寫(xiě) 入文件傳輸信息(39。 // Fcount:=count。,Dir)=true then begin rdir:=split(dir,39。 end。 fs:tfilestream。 if ()=39。 。,faAnyFile,F)=0 then repeat if (39。 end else begin PutDir(LocalDir++39。 procedure (LocalName:String。 psocket:tidtcpclient。)。 finally 。 lsize:int64。TRANSDIR39。\39。FALSE39。)。BEGIN39。 。本系統(tǒng)還實(shí)現(xiàn)文件夾的傳輸，能夠同時(shí)對(duì)多個(gè)文件進(jìn)行傳輸以實(shí)現(xiàn)文件夾的共享。 ldir:stringarray。 // cmd:=extractfilename(string(filename))。\39。 第 23 頁(yè) 共 26頁(yè) 件保存路徑后確認(rèn)即可。 測(cè)試結(jié)果 本 系統(tǒng)經(jīng)多次測(cè)試，能在 Windows操作系統(tǒng)正常運(yùn)行。 (39。保存文件夾 39。 begin Savedir:=39。在 Windows 操作系統(tǒng)下，以局域網(wǎng)內(nèi)任意兩臺(tái)主機(jī)之間發(fā)送文件及文件夾。 end。 //發(fā)送開(kāi)始 信號(hào) lsize:=strtointdef(readln,0)。 for i:=0 to high(ldir)1 do begin localdir:=localdir+ldir[i]+39。 end。 zeromemory(localroot,255)。保存文件夾 39。 filename:pchar。 end。 lsize:=。 :=FIP。 var lSize:Int64。)。) and (39。 end。 then putdir(Flocaldir)。 :=fip。\39。)。 inherited create(false)。)以及調(diào)用函數(shù) putdir(Flocaldir)寫(xiě)入文件 流 。 exit。 i:integer。 begin filename:=pchar()。但是用戶不可能進(jìn)行一次又一次的單文件的傳送，不但浪費(fèi)時(shí)間，而且很不值得。 readstream(fs,lsize)。 //本地文件名 writeln(39。\39。 fs:=(filename,fmcreate)。 sendmessage(,WM_USER+100,integer(filename),0)。 //獲取傳輸文件名 postmessage(,TransferSupervisorTwo,integer(hostname),0)。then begin GetMem(filename,255)。 filename:pchar。連接建立后得到文件的基本信息，進(jìn)行自動(dòng)初始化并分配臨時(shí)空間。 //寫(xiě)入套接字類(lèi)型為 TRANSFILE