【正文】 for j:=0 to do begin if ([j]=uppercase(myname)) or ([j]=myname) then begin myworkgroup:=[i]。 GetServerList(wList)。//得到主機(jī)名 try wlist:=。 //獲取本機(jī)名 gethostname(pmyname,sizeof(pmyname))。 begin mainhide。 //本機(jī)名 wList,clist: TStringList 。 myinfobuf:array[0..1023]of char。其部分的源代碼分別如下： 第 8 頁 共 26頁 procedure (Sender: TObject)。如果新用戶上線，它就向局域網(wǎng)以 LOGIN 為頭信息廣播本機(jī)的主機(jī)名， IP 地址以及工作組 。方法是首先確定用戶主機(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. 用于傳送文件是打開文件的控件 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按鈕。通信雙方是通過三次握手建立 Socket 連接，實(shí)現(xiàn)文件傳輸，最后關(guān)閉套節(jié)字連接。系統(tǒng)采用 C/S 架構(gòu)將系統(tǒng)運(yùn)行載體分為兩個(gè)部分：客戶端與服務(wù)器端。使網(wǎng)內(nèi)所有用戶都能夠獲取其他用戶信息。并能夠 確保內(nèi)部文件的機(jī)密性，能夠在很大程度上有效地提高工作效率。 綜合上述，本設(shè)計(jì) 在 Windows XP 操作系統(tǒng)下 ， 以中文版 Delphi7 為開發(fā)工具 ，以 C/S 為系統(tǒng)功能結(jié)構(gòu)，基于點(diǎn)對點(diǎn)的 TCP/IP 協(xié)議理論，通過 Socket 套節(jié)字 連接客戶端與服務(wù)器實(shí)現(xiàn)文件 及文件夾 傳輸。最重要的一點(diǎn)就是：使用戶避免花費(fèi)高額的資金去購買各種移動磁盤甚至是通過 Inter 郵件方式，使得用戶方便的同時(shí)，也讓信息少走了不少“彎路”。 2）傳輸安全性方案：系統(tǒng)開發(fā)完成后， 能 有效地使內(nèi)部資源與外網(wǎng)的完全隔離，從而保證了內(nèi)部機(jī)密文件的安全性。對于家庭局域網(wǎng)以及一些比較簡單的中小企業(yè)網(wǎng)，系統(tǒng)必須做到在實(shí)際應(yīng)用中較為成功。對傳輸文件過程中的文件的載入設(shè)置都是非常簡單可行，比如：如果用戶忘記選擇文件接收者的時(shí) 候系統(tǒng)會自動提示“請選擇接收用戶”要求用戶 第 5 頁 共 26頁 選擇主機(jī)而不導(dǎo)致錯誤出現(xiàn)而引發(fā)的不便，這樣就大大提高工作效率。 提出解決方案 解決當(dāng)前問題的方案主要是指在允許的成本、性能要求下，分析系統(tǒng)實(shí)施的可行性，提出功能實(shí)現(xiàn)的依據(jù)，包括其簡單性，安全性以及經(jīng)濟(jì)可行性。企業(yè)需要對各種因素有足夠深刻的認(rèn)識才可能實(shí)現(xiàn)最終目標(biāo) 盈利。 綜上所述 ，依靠 Inter 網(wǎng)絡(luò)等方式實(shí)現(xiàn)文件資源交互的 準(zhǔn)確性，快速性及 安全性遠(yuǎn)達(dá)不到理想的要求。 如果 通過 局域網(wǎng)內(nèi)主機(jī)之間復(fù)制 粘貼來 實(shí)現(xiàn)文件 資源 共享，將浪費(fèi) 大量的 網(wǎng)絡(luò) 帶寬，極大程度上影響了網(wǎng)內(nèi)用戶的工作效率 ，甚至導(dǎo)致用戶不能正常工作 ；如果依靠移動磁盤實(shí)現(xiàn)文件的共享，將花費(fèi) 大量 的金錢 ， 而文件較 大 移動磁盤容量不足 的情況下 會 令人 極為 頭疼， 何況 移動 磁盤 是病毒傳播的重要途徑； 如果 通過 Inter 郵件方式 實(shí)現(xiàn) ， 用戶需要接入 Inter 服務(wù)器， 這種方式 對遠(yuǎn)程服務(wù)器有非常大的依賴性， 即使 1KB 的文件都要經(jīng)歷極度繁瑣的路徑， 不能徹底實(shí)現(xiàn)點(diǎn)對點(diǎn)的 即時(shí) 交流 ， 文件較大的情況下就不言而喻了 。（ 3）通過 Inter 郵件方式實(shí)現(xiàn)。 3 系統(tǒng)需求分析 現(xiàn)行業(yè)務(wù)系統(tǒng)描述 目前各種文件資源交流的主要方式可以分為三種 ：（ 1）通過局域網(wǎng)內(nèi)主機(jī)之間以文件共享后再經(jīng)過復(fù)制，粘貼方式實(shí)現(xiàn)?？蛻舳瞬? 服務(wù)器主機(jī) 客戶機(jī) A 客戶機(jī) B 客戶機(jī) C 客戶機(jī) N 第 4 頁 共 26頁 需要指定打開的端口 。 所謂 Socket 通常也稱作 套接字 ，用于描述 IP 地址和端口， socket 類表現(xiàn)了客戶端套接字，它是屬于兩臺計(jì)算機(jī)的兩個(gè) TCP 通訊端口之間的通訊通道。用戶可以開發(fā)支持 WEB 服務(wù)特性的服務(wù)器端和客戶端應(yīng)用，而這一切都是通過一套高度集成的可視化開發(fā)工具，先進(jìn)的編譯技術(shù)和可重用的組件完成。除此之外，還允許用戶掛接其它的應(yīng)用程序開發(fā)工 具，如 Borland 公司的資源編輯器（ Resourse Workshop）。 Object Pascal 語言是在 Pascal 語言的基礎(chǔ)上發(fā)展起來的，簡單易學(xué)。 Delphi 具有 很多 特性：基于窗體和面向?qū)ο蟮姆椒ǎ咚俚木幾g器，與 Windows 編程緊密結(jié)合，強(qiáng)大而成熟的組件技術(shù)。 它具有簡單、高效、功能強(qiáng)大的特點(diǎn)。 第 3 頁 共 26頁 Request Response Request Response Request Response . . . . Request . Response 圖 1 客戶機(jī) /服務(wù)器 通訊 結(jié)構(gòu) 文件傳輸系統(tǒng)同時(shí)采用了 Delphi網(wǎng)絡(luò)組件編程技術(shù)。 傳統(tǒng)的 C／ S 體系結(jié)構(gòu)雖然采用的是開放模式，但這只是系統(tǒng)開發(fā)一級的開放性，在特定的應(yīng)用中無論是 Client 端還是 Server端都還需要特定的軟件支持。它是軟件系統(tǒng)體系結(jié)構(gòu)，通過它可以充分利用兩端硬件環(huán)境的優(yōu)勢，將 信息交互 任務(wù)合理分配到 Client 端和 Server 端來實(shí)現(xiàn)，降低了系統(tǒng) 文件傳輸過程中的 開銷。 C/S 架構(gòu)的 DELPHI 程序設(shè)計(jì)技術(shù) 本系統(tǒng)的開發(fā)主要采用 C/S 結(jié)構(gòu)。本設(shè)計(jì)要實(shí)現(xiàn)文件 及文件夾的 傳輸就需要以 IP地址為傳送基礎(chǔ)進(jìn)行 ； 第二，新用戶上線后需要向局域網(wǎng)內(nèi)所有用戶廣播自己的主機(jī)信息使網(wǎng)內(nèi)主機(jī)得到本機(jī)的 IP地址等。 TCP協(xié)議和 IP協(xié)議是保證數(shù)據(jù)完整傳輸?shù)膬蓚€(gè)基本的重要協(xié)議。 TCP/IP是網(wǎng)絡(luò)中使用的基本通信協(xié)議。所以就得與 TCP/IP協(xié)議協(xié)合。 本系統(tǒng)既鍛煉了我們的實(shí)際動手能力，使我們將大學(xué)四年所學(xué)的理論知識與實(shí)際開發(fā)相結(jié)合，又引導(dǎo)我們進(jìn)行了一次模擬實(shí)際產(chǎn)品的開發(fā)，對于我們以后工作能力的培養(yǎng)具有重要的意義。特別是對如今較大系統(tǒng)研發(fā)的模塊分工合作得到了絕對保密性，從而使各項(xiàng)工作有計(jì)劃、更科學(xué)的 進(jìn)行 及順利完成，使企業(yè)的辦事效率得到顯著提高。 課題研究的意義 隨著網(wǎng)絡(luò)通信技術(shù)的發(fā)展與用戶需求日益多樣化，現(xiàn)代局域網(wǎng)絡(luò)正處在 變革與發(fā)展之中，本課題的主要目的之一是為了更清晰地培養(yǎng)學(xué)生掌握科學(xué)研究方法的能力和使學(xué)生迅速體會文件傳輸系統(tǒng)的研發(fā)過程。 但是隨著科學(xué)技術(shù)的發(fā)展，各種以局域網(wǎng)為單位的文件傳輸系統(tǒng)已經(jīng)進(jìn)入穩(wěn)健發(fā)展期，比如說市面上比較普遍使用的 、 UC、飛鴿傳書等以內(nèi)部網(wǎng)絡(luò)為中心的資源共享系統(tǒng)也即將進(jìn)入高速發(fā)展期。 技術(shù)無論 是從 理論上 或 實(shí)踐 上 都還不夠完善 。在這種形勢下，開發(fā)一個(gè)功能簡單而實(shí)用，能在 Windows 操作系統(tǒng)中運(yùn)行，并且具有可移植性的局域網(wǎng) 內(nèi) 文件傳輸工具勢在必行。甚至需要花費(fèi)大量的金錢購買各種移動磁盤或者其他局域網(wǎng)內(nèi)連接主機(jī)的硬件設(shè)備 。各種文件傳輸系統(tǒng)都已被廣大用戶接受。 第 1 頁 共 26頁 1 引言 選題背景 當(dāng)今世界科學(xué)技術(shù)飛速發(fā)展，尤其以計(jì)算機(jī)通信網(wǎng)絡(luò)為代表的互聯(lián)網(wǎng)技術(shù)更是日新月異，令人眼花燎亂，目不睱接。