【正文】 procedure 。//執(zhí)行失敗 End。 //獲取計算機(jī)名稱 If ( Res = ERROR_NO_MORE_ITEMS ) //資源列舉完畢 or (Res NO_ERROR) //執(zhí)行失敗 then break。 //獲取局域網(wǎng)中的工作組信息 。 //初始化網(wǎng)絡(luò)層次信息 Buf : Pointer。 END。 THEN //處理握手信息 添加對方 ip 返回對方 ip BEgin // (39。then //添加對方返回的自己的 ip (對比 ) begin // (39。,[39。login recv39。 msg:=Trim(String(Pchar(Readbuf[0])))。 AData: TStream。 End。//申請內(nèi)存，用于獲取工作組信息 /獲取計算機(jī)名稱 Res := WNetEnumResource(lphEnum, Count, Pointer(Buf), BufSize)。////初始化網(wǎng)絡(luò)層次信息 := RESOURCEDISPLAYTYPE_SERVER。 Buf : Pointer。 strpcopy(mylogoutbuf,mylogoutinfo)。 procedure (Sender: TObject)。 begin minfo:=format(39。,myname,myworkgroup])。 //獲 本機(jī)工作 組 end。 //把程序圖標(biāo)顯示在系統(tǒng)托盤里邊 if wsastartup($101,wsadata)0 then exit。局域網(wǎng)內(nèi)所有在線主機(jī)收到該廣播信息以后將新上線的主機(jī)名，端口， IP 地址以及工作組信息添加到自己的在線用戶列表并都以 HAND 為頭信息向局域網(wǎng)廣播本機(jī)的握手信息；當(dāng)包括剛上線主機(jī)在內(nèi)的局域網(wǎng)所有主機(jī)收到這個握手信息以后線判斷自 己的在線用戶列表中是否存在這個主機(jī)廣播的主機(jī)信息，如果不存在就 說明 它 是剛上線主機(jī)，最后將這個信息添加到自己在線列表，否則就不加；當(dāng)用戶下線的時候也將自己的信息以LOGOUT 為頭信息廣播給局域網(wǎng)，其他在線用戶收到這個消息以后將其主機(jī)信息從本地在線用戶列表刪除。文件傳輸需要建立有效的連接后，通過 TCP/IP 協(xié)議實現(xiàn)點對點的文件傳輸。 4）快速準(zhǔn)確性方案：鑒于系統(tǒng)的目標(biāo)要求和特點，能夠保證快速準(zhǔn)確地實現(xiàn)文件共享。根據(jù)企業(yè)簡單快速，安全的資源共享等要求 ,提出以下 四 種解決方案： 1）操作簡單性方案：開發(fā)的系統(tǒng)需要有 以下 特點： Windows 友好的用戶界面和系統(tǒng)快速的應(yīng)用方法，簡單易操作，不需對使用人員進(jìn)行培訓(xùn)，可以使用戶很好的掌握。此三種方法并非不可行，但 它們都需要花費較長的時間 以及安全性也得不到保證 ， 工作效 率將在很大程度上受到限制。 SOCKET 網(wǎng)絡(luò)程序設(shè)計技術(shù) 文件傳輸系統(tǒng)得以實現(xiàn)的根本在于建立有效的連接以及是否存在文件傳輸載體。它 可是眾多 程序員至愛的編程工具。所謂 C/S （ Client/Server）結(jié)構(gòu)，即大家熟知的客戶機(jī)和服務(wù)器結(jié)構(gòu)。雖然從名字上看 TCP/IP包括兩個協(xié)議，傳輸控制協(xié)議 (TCP)和網(wǎng)際協(xié)議 (IP)，但TCP/IP實際上是一組協(xié)議， 只是 TCP協(xié)議處于運輸層，它能夠確保文件準(zhǔn)確的傳送；而 IP協(xié)議處于網(wǎng)絡(luò)層，它標(biāo)識了處于網(wǎng)絡(luò)中任意主機(jī)的唯一身份?；诰钟蚓W(wǎng)的文件 傳輸 系統(tǒng)能夠讓家庭網(wǎng)絡(luò)以及各個企業(yè)等局域網(wǎng)對內(nèi)部資料有一個快捷， 準(zhǔn)確 ,安全的共享。 而達(dá)到的效果卻總是因為傳輸效率以及安全威脅而受到很大的限制。 參考文獻(xiàn) ................................................... 錯誤 !未定義書簽。 Fifth, to carries on based on the local area work file transfer system tests and obtains the test result. Key words: C/S structure。 基于局域網(wǎng)的文件傳輸系統(tǒng)的設(shè)計選用 Delphi 為開發(fā)工具 ，以 C/S 模式通過建立 Socket 連接后實現(xiàn)局域網(wǎng)快速，準(zhǔn)確，安全的點對點文件以及文件夾傳輸功能。但大多數(shù)文件傳輸功能都需要借助移動磁盤等硬件設(shè)備或 Inter 上的服務(wù)器才能實現(xiàn)。 Second, introduces the TCP/IP point to point protocol technology, C/S overhead construction Delphi programming technique and the Socket work programming technology。 實施概況 ........................................... 錯誤 !未定義書簽。各種文件傳輸系統(tǒng)都已被廣大用戶接受。 但是隨著科學(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ā)展期。所以就得與 TCP/IP協(xié)議協(xié)合。本設(shè)計要實現(xiàn)文件 及文件夾的 傳輸就需要以 IP地址為傳送基礎(chǔ)進(jìn)行 ； 第二，新用戶上線后需要向局域網(wǎng)內(nèi)所有用戶廣播自己的主機(jī)信息使網(wǎng)內(nèi)主機(jī)得到本機(jī)的 IP地址等。 第 3 頁 共 26頁 Request Response Request Response Request Response . . . . Request . Response 圖 1 客戶機(jī) /服務(wù)器 通訊 結(jié)構(gòu) 文件傳輸系統(tǒng)同時采用了 Delphi網(wǎng)絡(luò)組件編程技術(shù)。除此之外，還允許用戶掛接其它的應(yīng)用程序開發(fā)工 具，如 Borland 公司的資源編輯器（ Resourse Workshop）。 3 系統(tǒng)需求分析 現(xiàn)行業(yè)務(wù)系統(tǒng)描述 目前各種文件資源交流的主要方式可以分為三種 ：（ 1）通過局域網(wǎng)內(nèi)主機(jī)之間以文件共享后再經(jīng)過復(fù)制，粘貼方式實現(xiàn)。企業(yè)需要對各種因素有足夠深刻的認(rèn)識才可能實現(xiàn)最終目標(biāo) 盈利。 2）傳輸安全性方案：系統(tǒng)開發(fā)完成后， 能 有效地使內(nèi)部資源與外網(wǎng)的完全隔離，從而保證了內(nèi)部機(jī)密文件的安全性。使網(wǎng)內(nèi)所有用戶都能夠獲取其他用戶信息。方法是首先確定用戶主機(jī)是上線信息，返回信息，握手信息還是離線信息。 //本機(jī)名 wList,clist: TStringList 。 GetServerList(wList)。%6s%255s%255s39。port:integer):string。 strpcopy(minfobuf,minfo)。,[39。List : TStringList) : Boolean。 TmpStr:String。 //執(zhí)行失敗 While True Do//列舉指定工作組的網(wǎng)絡(luò)資源 Begin Count := $FFFFFFFF。//獲取工作組的計算機(jī)名稱 Delete(tmpstr,1,2)。 FreeMem(Buf)。 f:textfile。 THEN //添加對方 IP IP 2. 發(fā)出 Hand 握手信息 begin recvip:=。 handdata(recvip,myname,myworkgroup,recvport)。 } end。 end。 recvip:=。 end。 NetworkTypeList : TList。//不限資源數(shù)目 BufSize := 8192。 End。 第 13 頁 共 26頁 局域網(wǎng)內(nèi)文件傳輸 文件傳輸實現(xiàn)之前，需要 獲取 在線用戶列表中的用戶信息。 //寫入 IP ()。 //顯示在線人數(shù) var f:textfile。 //清空內(nèi)存 move(myname[1],hostname^,length(myName)