【正文】 ssion Control Protocol/Inter Protocol)叫做傳輸控制 /網(wǎng)際協(xié)議，又叫網(wǎng)絡(luò)通訊協(xié)議，這個(gè)協(xié)議是 Inter國(guó)際互聯(lián)網(wǎng)絡(luò)的基礎(chǔ)。 TCP/IP是網(wǎng)絡(luò)中使用的基本通信協(xié)議。雖然從名字上看 TCP/IP包括兩個(gè)協(xié)議，傳輸控制協(xié)議 (TCP)和網(wǎng)際協(xié)議 (IP)，但TCP/IP實(shí)際上是一組協(xié)議， 只是 TCP協(xié)議處于運(yùn)輸層，它能夠確保 文件準(zhǔn)確的傳送；而 IP協(xié)議處于網(wǎng)絡(luò)層，它標(biāo)識(shí)了處于網(wǎng)絡(luò)中任意主機(jī)的唯一身份。 TCP協(xié)議和 IP協(xié)議是保證數(shù)據(jù)完整傳輸?shù)膬蓚€(gè)基本的重要協(xié)議。通常說(shuō) TCP/IP是 Inter協(xié)議族，而不單單是 TCP和 IP。 采用 TCP/IP詳解 的原因： 第一， 局域網(wǎng)內(nèi)主機(jī)之間的是依靠 IP地址進(jìn)行標(biāo)識(shí)。本設(shè)計(jì)要實(shí)現(xiàn)文件 及文件夾的 傳輸就需要以 IP地址為傳送基礎(chǔ)進(jìn)行 ； 第二，新用戶上線后需要向局域網(wǎng)內(nèi)所有用戶廣播自己的主機(jī)信息使網(wǎng)內(nèi)主機(jī)得到本機(jī)的 IP地址等。需要用到與 TCP/IP相對(duì)的 UDP協(xié)議。 C/S 架構(gòu)的 DELPHI 程序 設(shè)計(jì)技術(shù) 本系統(tǒng)的開(kāi)發(fā)主要采用 C/S 結(jié)構(gòu)。所謂 C/S （ Client/Server）結(jié)構(gòu)，即大家熟知的客戶機(jī)和服務(wù)器結(jié)構(gòu)。它是軟件系統(tǒng)體系結(jié)構(gòu)，通過(guò)它可以充分利用兩端硬件環(huán)境的優(yōu)勢(shì)，將 信息交互 任務(wù)合理分配到 Client 端和 Server 端來(lái)實(shí)現(xiàn)，降低了系統(tǒng) 文件傳輸過(guò)程中的 開(kāi)銷。目前大多數(shù)應(yīng)用軟件系統(tǒng)都是Client/Server 形式的兩層結(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端都還需要特定的軟件支持。由于沒(méi)能提供用戶真正 期望的開(kāi)放環(huán)境， C/S 結(jié)構(gòu)的軟件需要針對(duì)不同的操作系統(tǒng)系統(tǒng)開(kāi)發(fā)不同版本的軟件，加之產(chǎn)品的更新?lián)Q代十分快，已經(jīng)很難適應(yīng) 百 臺(tái)電腦以上局域網(wǎng)用戶同時(shí)使用。 第 3 頁(yè) 共 26頁(yè) Request Response Request Response Request Response . . . . Request . Response 圖 1 客戶機(jī) /服務(wù)器 通訊 結(jié)構(gòu) 文件傳輸系統(tǒng)同時(shí)采用了 Delphi網(wǎng)絡(luò)組件編程技術(shù)。 Delphi是美國(guó) BORLAND公司推出的功能強(qiáng)大的應(yīng)用程序開(kāi)發(fā)工具。 它具有簡(jiǎn)單、高效、功能強(qiáng)大的特點(diǎn)。它 可是眾多 程序員至愛(ài)的編程工具。 Delphi 具有 很多 特性：基于窗體和面向?qū)ο蟮姆椒?，高速的編譯器，與 Windows 編程緊密結(jié)合，強(qiáng)大而成熟的組件技術(shù)。而且其重要 的還 有 Object Pascal 語(yǔ)言，它是一切的根本。 Object Pascal 語(yǔ)言是在 Pascal 語(yǔ)言的基礎(chǔ)上發(fā)展起來(lái)的，簡(jiǎn)單易學(xué)。 Delphi 提供了各種開(kāi)發(fā)工具，包括集成環(huán)境、圖像編輯（ Image Editor），以及各種開(kāi)發(fā) 可視化軟件 的應(yīng)用程序，如 DesktopDataBase Expert 等。除此之外，還允許用戶掛接其它的應(yīng)用程序開(kāi)發(fā)工 具，如 Borland 公司的資源編輯器（ Resourse Workshop）。 DELPHI是可視化應(yīng)用 編程 開(kāi)發(fā)環(huán)境，可重用性面向?qū)ο?編程 語(yǔ)言，快速編譯器能夠有效快速建立 WINDOWS 應(yīng)用程序，快速簡(jiǎn)化 WINDOWS 與瀏覽器客戶， WEB 服務(wù)器以及中間件等開(kāi)發(fā)之外，同時(shí)也支持基于 WEB 服務(wù)的 Microsoft， .， Sun one 體系，而且提供給 WEB 開(kāi)發(fā)者需要的可伸縮性和可靠性。用戶可以開(kāi)發(fā)支持 WEB 服務(wù)特性的服務(wù)器端和客戶端應(yīng)用，而這一切都是通過(guò)一套高度集成的可視化開(kāi)發(fā)工具，先進(jìn)的編譯技術(shù)和可重用的組件完成。 SOCKET 網(wǎng)絡(luò)程序設(shè)計(jì)技術(shù) 文件傳輸系統(tǒng)得以實(shí)現(xiàn)的根本在于建立有效的連接以及是否存在文件傳輸載體。 所謂 Socket 通常也稱作 套接字 ，用于描述 IP 地址和端口， socket 類表現(xiàn)了客戶端套接字，它是屬于兩臺(tái)計(jì)算機(jī)的兩個(gè) TCP 通訊端口之間的通訊通道。 在網(wǎng)絡(luò)編程中， 客戶端使用 Socket 對(duì)網(wǎng)絡(luò)上某一個(gè)服務(wù)器的某一個(gè)端口發(fā)出連接請(qǐng)求，一旦連接成功，打開(kāi)會(huì)話；會(huì)話完成后，關(guān)閉 Socket。客戶端不 服務(wù)器主機(jī) 客戶機(jī) A 客戶機(jī) B 客戶機(jī) C 客戶機(jī) N 第 4 頁(yè) 共 26頁(yè) 需要指定打開(kāi)的端口 。 服務(wù)器使用 Socket 監(jiān)聽(tīng)指定的端口，端口可以隨意指定，等待客戶連接請(qǐng)求，客戶連接后，會(huì)話產(chǎn)生；在完成會(huì)話后，關(guān)閉連接。 3 系統(tǒng)需 求分析 現(xiàn)行業(yè)務(wù)系統(tǒng)描述 目前各種文件資源交流的主要方式可以分為三種 ：（ 1）通過(guò)局域網(wǎng)內(nèi)主機(jī)之間以文件共享后再經(jīng)過(guò)復(fù)制，粘貼方式實(shí)現(xiàn)。（ 2）依靠可移動(dòng)磁盤的兩次信息轉(zhuǎn)移實(shí)現(xiàn)。（ 3）通過(guò) Inter 郵件方式實(shí)現(xiàn)。此三種方法并非不可行，但 它們都需要花費(fèi)較長(zhǎng)的時(shí)間 以及安全性也得不到保證 ， 工作效率將在很大程度上受到限制。 如果 通過(guò) 局域網(wǎng)內(nèi)主機(jī)之間復(fù)制 粘貼來(lái) 實(shí)現(xiàn)文件 資源 共享，將浪費(fèi) 大量的 網(wǎng)絡(luò) 帶寬，極大程度上影響了網(wǎng)內(nèi)用戶的工作效率 ，甚至導(dǎo)致用戶不能正常工作 ；如果依靠移動(dòng)磁盤實(shí)現(xiàn)文件的共享，將花費(fèi) 大量 的金錢 ， 而文件 較 大 移動(dòng)磁盤容量不足 的情況下 會(huì) 令人 極為 頭疼， 何況 移動(dòng) 磁盤 是病毒傳播的重要途徑； 如果 通過(guò) Inter 郵件方式 實(shí)現(xiàn) ， 用戶需要接入 Inter 服務(wù)器， 這種方式 對(duì)遠(yuǎn)程服務(wù)器有非常大的依賴性， 即使 1KB 的文件都要經(jīng)歷極度繁瑣的路徑， 不能徹底實(shí)現(xiàn)點(diǎn)對(duì)點(diǎn)的 即時(shí) 交流 ， 文件較大的情況下就不言而喻了 。 最重要的是，在如今病毒黑客橫行的網(wǎng)絡(luò)世界中，信息的安全性也得不到保證。 綜上所述 ，依靠 Inter 網(wǎng)絡(luò)等方式實(shí)現(xiàn)文件資源交互的 準(zhǔn)確性，快速性及 安全性遠(yuǎn)達(dá)不到理想的要求。 現(xiàn)行系統(tǒng)存在的主要問(wèn)題分析 針對(duì)企業(yè)來(lái)說(shuō)，提高 工作效率是企業(yè)的一個(gè)重心；降低成本是企業(yè)贏取最大利益的重要方式；保證信息安全卻是可能影響企業(yè)生死存亡的關(guān)鍵。企業(yè)需要對(duì)各種因素有足夠深刻的認(rèn)識(shí)才可能實(shí)現(xiàn)最終目標(biāo) 盈利。而傳統(tǒng)的文件資源交互方式卻存在很多的問(wèn)題，大致可以分為： 一、不能有效地降低文件交互成本；二、文件交換過(guò)程過(guò)于繁瑣；三、內(nèi)部機(jī)密資料得不到安全保證；四、文件交互的準(zhǔn)確性得不到 更本 保證。 提出解決方案 4 系統(tǒng)設(shè)計(jì) 系統(tǒng)總體架構(gòu) 本系統(tǒng)的設(shè)計(jì)過(guò)程主要分為兩部分： 第一部分：系統(tǒng)界面的設(shè)計(jì)以及獲取局域網(wǎng)內(nèi)所有在線用戶的主機(jī)名， IP地址以及工作組名 。使網(wǎng)內(nèi)所有用戶都能夠獲取其他用戶信息。 第二部分：文件傳輸是本設(shè)計(jì)功能實(shí)現(xiàn)的核心。系統(tǒng)采用 C/S 架構(gòu)將系統(tǒng)運(yùn)行載體分為兩個(gè)部分：客戶端與服務(wù)器端。文件傳輸需要建立有效的連接后，通 第 5 頁(yè) 共 26頁(yè) 過(guò) TCP/IP 協(xié)議實(shí)現(xiàn)點(diǎn)對(duì)點(diǎn)的文件傳輸。通信雙方是通過(guò)三次握手建立 Socket 連接，實(shí)現(xiàn)文件傳輸，最后關(guān)閉套節(jié)字連接。文件傳輸?shù)恼麄€(gè)流程圖如下： 第 6 頁(yè) 共 26頁(yè) TCP/IP 3 次握手 SOCKET 流 三次握手 圖 2 文件傳輸系統(tǒng)框架圖 系統(tǒng)界面設(shè)計(jì) 界面設(shè)計(jì) 用戶 信息 用戶列表建立以后，將局域網(wǎng)內(nèi)所有在線用戶的主機(jī)名，主機(jī) IP 地址以及工作組名顯示于列表中。方法是首先確定用戶主機(jī)是上線信息，返回信息，握手信息還是離線信息。這里對(duì)他們分別設(shè)置了一個(gè)信息發(fā)送的頭信息，分別設(shè)置為：LOGIN， HAND 以及 LOGOUT。如果新用戶上線，它就向局域網(wǎng)以 LOGIN 為頭信息廣播本機(jī)的主機(jī)名， IP 地址以及工作組。局域網(wǎng)內(nèi)所有在線主機(jī)收到該廣播信息以后將新上線的主機(jī)名，端口， IP 地址以及工作組信息添加到 自己的在線用戶列表并都以 HAND 為頭信息向局域網(wǎng)廣播本機(jī)的握手信息；當(dāng)包括剛上線主機(jī)在內(nèi)的局域網(wǎng)所有主機(jī)收到這個(gè)握手信息以后線判斷自 己的在線用戶列表中是否存在這個(gè)主機(jī)廣播的主機(jī)信息，如果不存在就 說(shuō)明 它 是剛上線主機(jī)，最后將這個(gè)信息添加到自己在線列表，否則就不加；當(dāng)用戶下線的時(shí)候也將自己的信息以LOGOUT 為頭信息廣播給局域網(wǎng)，其他在線用戶收到這個(gè)消息以后將其主機(jī)信息從本地在線用戶列表刪除。其部分的源代碼分別如下： 客戶端主機(jī) 服務(wù)器端主機(jī) 套節(jié)字連接請(qǐng)求 連接響應(yīng) 寫入文件流 接收文件流 并保存 斷開(kāi)連接 斷開(kāi)連接響應(yīng) LIANJIETCP 第 7 頁(yè) 共 26頁(yè) procedure (Sender: TObject)。 //新用戶上線 以 LOGIN 為頭信息 var wsadata:twsadata。 myinfobuf:array[0..1023]of char。 //本機(jī)信息 pmyname:array[0..1023]of char。 //本機(jī)名 wList,clist: TStringList 。 i,j:integer。 begin mainhide。 //把程序圖標(biāo)顯示在系統(tǒng)托盤里邊 if wsastartup($101,wsadata)0 then exit。 //獲取本機(jī)名 gethostname(pmyname,sizeof(pmyname))。 //獲取主機(jī)名 myname:=strpas(pmyname)。//得到主機(jī)名 try wlist:=。 clist:=。 GetServerList(wList)。 //獲取本機(jī) IP for i:=0 to do begin getusers([i],clist)。//得到用戶名 for j:=0 to do begin if ([j]=uppercase(myname)) or ([j]=myname) then begin myworkgroup:=[i]。 //獲 本機(jī)工作 組 end。 finally 。 。 end。 myinfo:=format(39。%6s%255s%255s39。,[39。LOGIN39。,myname,myworkgroup])。 strpcopy(myinfobuf,myinfo)。 (myinfobuf,9000)。 end。 function (ip,name,workgroup:string。port:integer):string。 //向好友發(fā)握手信息 var minfobuf:array[0..1023]of char。 minfo:string。 begin minfo:=format(39。%6s%255s%255s39。,[39。HAND39。,name,workgroup])。 strpcopy(minfobuf,minfo)。 (ip,port,minfobuf,sizeof(minfobuf))。 end。 procedure (Sender: TObject)。 //用戶離線 以 LOGINOUT 為頭信息 var mylogoutbuf:array[0..1023]of char。 mylogoutinfo:string。 begin mylogoutinfo:=format(39。%6s%255s39。,[39。LOGOUT39。,myname])。 strpcopy(mylogoutbuf,mylogoutinfo)。 (mylogoutbuf,9000)。 // 廣播自己離線信息 。 //銷毀線程 end。 第 8 頁(yè) 共 26頁(yè) 系統(tǒng)功能模塊設(shè)計(jì) 獲取用戶信息 本部分主要是顯示用戶列表中在線用戶的主機(jī)名，主