【正文】 在工作中獲得經驗的同時，時刻不忘學習新興的專業(yè)知識及相關的非專業(yè)知識，只有這樣才能緊跟時代的潮流。 測試結果 本 系統(tǒng)經多次測試，能在 Windows操作系統(tǒng)正常運行。保存文件 夾 39。 在 Windows 操作系統(tǒng)下，以局域網內任意兩臺主機之間發(fā)送文件 及文件夾 。 //發(fā)送開始信號 lsize:=strtointdef(readln,0)。 end。保存文件夾 39。 end。 :=FIP。)。 end。 :=fip。)。)以及調用函數 putdir(Flocaldir)寫入文件 流 。 i:integer。但是用戶不可能進行一次 又一次的單文件的傳送，不但 浪費時間，而且很不值得。 //本地文件名 writeln(39。 fs:=(filename,fmcreate)。 //獲 取傳輸文件名 postmessage(,TransferSupervisorTwo,integer(hostname),0)。 filename:pchar。 //寫入套接字類型為 TRANSFILE (FFileName)。碼如下 ： onstructor (IP,FileName:string)。 tempItem:TListItem。 第 12 頁 共 26頁 局域網內文件傳輸 文件傳輸實現之前，需要 獲取 在線用戶列表中的用戶信息。//不限資源數目 BufSize := 8192。 end。 end。 handdata(recvip,myname,myworkgroup,recvport)。 f:textfile。//獲取工作組的計算機名稱 Delete(tmpstr,1,2)。 TmpStr:String。,[39。port:integer):string。 GetServerList(wList)。方法是首先確定用戶主機是上線信息，返回信息，握手信息還是離線信息。（ 2）依靠可移動磁盤的兩次信息轉移實現。 Delphi是美國 BORLAND公司推出的功能強大的應用程序開發(fā)工具。 TCP/IP協(xié)議 (Transmission Control Protocol/Inter Protocol)叫做傳輸控制 /網際協(xié)議，又叫網絡通訊協(xié)議，這個協(xié)議是 Inter國際互聯(lián)網絡的基礎。比如 、 UC、 Inter 郵件等互聯(lián)網中運用最為廣泛的文件傳輸工具，但它們之間的文件傳輸往往對遠程服務器有非常大的依賴性，沒有徹底實現點對點安全的文件傳輸。 這就給那些具有大規(guī)模內部網絡的用戶造成了 許多問題，如浪費資金、浪費網絡資源、病毒入侵、降低了工作效率等。 Fourth, carries on the design according to the solution to the system。 課題研究的意義 隨著網絡通信技術的發(fā)展與用戶需求日益多樣化，現代局域網絡正處在 變革與發(fā)展之中，本課題的主要目的之一是為了更清晰地培養(yǎng)學生掌握科學研究方法的能力和使學生迅速體會文件傳輸系統(tǒng)的研發(fā)過程。 C/S 架構的 DELPHI 程序 設計技術 本系統(tǒng)的開發(fā)主要采用 C/S 結構。用戶可以開發(fā)支持 WEB 服務特性的服務器端和客戶端應用，而這一切都是通過一套高度集成的可視化開發(fā)工具，先進的編譯技術和可重用的組件完成。 提出解決方案 4 系統(tǒng)設計 系統(tǒng)總體架構 本系統(tǒng)的設計過程主要分為兩部分： 第一部分：系統(tǒng)界面的設計以及獲取局域網內所有在線用戶的主機名， IP地址以及工作組名 。 i,j:integer。,[39。 (ip,port,minfobuf,sizeof(minfobuf))。 //獲取工作組的計算機名稱 type TNetResourceArray = ^TNetResource。//不限資源數目 BufSize := 8192。 End。 recvport:=9000。 if head=39。 recvport:=9000。 //返回局域網中的工作組類型 Begin Result := False。 Res := WNetCloseEnum(lphEnum)。然后以組件 。 if then //如果文件打開。 //定義文件流 begin try socket:=(nil)。如果文件大小為 OK就認為是文件傳輸完畢自動斷開連接。 zeromemory(filename,255)。 writeln(39。)。 。 :=string(filename)。 end。 end。 (toip,dir)。 if ()=39。..39。 lStream:TFileStream。 if trim(())=39。 sign,i:integer。 move(Savedir[1],localroot^,length(Savedir))。\39。 end。39。savedir39。能夠對在線用戶信息進行顯示，實現點對點的文件 以及文件夾 傳輸。 [7]飛思科技產品研發(fā)中心 .Delphi 高級編程 6[M].北京 :電子工業(yè)出版社 ,2021。 結 論 通過對局域網的文件傳輸系統(tǒng)研發(fā)，我充分的認識到了局域網內文件傳輸對企業(yè)安全，可靠，低成本資源共享的重要性。 localpath:=Savedir。 i:integer。 end。 localdir:=strpas(localroot)。 GetMem(localroot,255)。 fs:tfilestream。 (remotedir)。Remotedir:String)。.39。TRUE39。 dir:=dir+39。 freeonterminate:=true。,0)。 //保存文件 var filename:pchar。 //如果發(fā)過來的文件是 0KB 的 會收不到 所以 Delete fs:=(targetname,fmcreate)。 //接收文件名 ldir:=split(msg,39。 move(tmpfn[1],filename^,length(tmpfn))。TRANSFILE39。 2）服務器端響應功能 ： 當服務器收到來自客戶端文件傳輸連接請求后，對其進行連接響應建立連接。 //運行線程 var socket:tidtcpclient。 exit。 1）客戶端連接并發(fā)送功能 : 客戶端點擊文件發(fā)送按鈕以后，系統(tǒng)首先判斷是否選擇文件接受者。 End。 i,j : SmallInt。 recvworkgroup:=copy(msg,headlen+namelen+1,workglen)。 (recvip,recvport,minfobuf,sizeof(minfobuf))。LOGIN39。//執(zhí)行失敗 Result := True。 If Res NO_ERROR Then Exit。 第 8 頁 共 26頁 系統(tǒng)功能模塊設計 獲取用戶信息 本部分主要是顯示用戶列表中在線用戶的主機名，主機的 IP 地址以 及工作組名三部分，代碼分別進行介紹如下： 獲取局域網內用戶名的源代碼如下： Function ( GroupName : string。,name,workgroup])。 myinfo:=format(39。 //本機信息 pmyname:array[0..1023]of char。企業(yè)需要對各種因素有足夠深刻的認識才可能實現最終目標 盈利。除此之外，還允許用戶掛接其它的應用程序開發(fā)工 具，如 Borland 公司的資源編輯器（ Resourse Workshop）。本設計要實現文件 及文件夾的 傳輸就需要以 IP地址為傳送基礎進行 ； 第二，新用戶上線后需要向局域網內所有用戶廣播自己的主機信息使網內主機得到本機的 IP地址等。 但是隨著科學技術的發(fā)展，各種以局域網為單位的文件傳輸系統(tǒng)已經進入穩(wěn)健發(fā)展期，比 如說市面上比較普遍使用的 、 UC、飛鴿傳書等以內部網絡為中心的資源共享系統(tǒng)也即將進入高速發(fā)展期。 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)的設計選用 Delphi 為開發(fā)工具 ，以 C/S 模式通過建立 Socket 連接后實現局域網快速，準確，安全的點對點文件以及文件夾傳輸功能。 而達到的效果卻總是因為傳輸效率以及安全威脅而受到很大的限制。雖然從名字上看 TCP/IP包括兩個協(xié)議，傳輸控制協(xié)議 (TCP)和網際協(xié)議 (IP)，但TCP/IP實際上是一組協(xié)議， 只是 TCP協(xié)議處于運輸層，它能夠確保 文件準確的傳送；而 IP協(xié)議處于網絡層，它標識了處于網絡中任意主機的唯一身份。它 可是眾多 程序員至愛的編程工具。此三種方法并非不可行，但 它們都需要花費較長的時間 以及安全性也得不到保證 ， 工作效率將在很大程度上受到限制。如果新用戶上線，它就向局域網以 LOGIN 為頭信息廣播本機的主機名， IP 地址以及工作組。//得到用戶名 for j:=0 to do begin if ([j]=uppercase(myname)) or ([j]=myname) then begin myworkgroup:=[i]。 minfo:string。,myname])。 FillChar(NetResource, SizeOf(NetResource), 0)。 Inc(Temp)。 (readbuf,sizeof(readbuf))。%6s%4d%255s39。HAND39。 //獲取服務列表 Var NetResource : TNetResource。//申請內存，用于獲取工作組信息 Res := WNetEnumResource(lphEnum, Count, Pointer(Buf), BufSize)。并顯示在線人數。 //獲取文件接收者 if (not assigned(tempItem)) or (tempItem=nil) then begin MessageBox( ,39。 FFilename:=filename。 //整型轉字符型 為字 節(jié)流的長度 filename:=。 ldir:stringarray。 zeromemory(pname,255)。 。)。這樣就可以避免一個文件夾中的 大量 文件重復進行多次單文件的傳輸，很大程度上減少了用戶的工作量，從而有效地提高工 作效率。 tempItem:=。localdir:string)。39。 ()。 var F:TSearchRec。 end。 ()。 end。我的電腦 39。START39。 exit。 一臺主機作為發(fā)送方 選擇文件接收者，當用戶選擇文件接收者 以后點擊“文件傳輸” 或者“文件夾傳輸” 按鈕后在文件選擇窗口載入需要發(fā)送的文件 或文件夾 ，另外一臺做為接收方的主 機會自動彈出文件保存提示框，如果服務器方拒絕接受文件可以點擊“取消”退出文件接收過程。我的電腦 39。 本軟件適用于任何家庭網以及中小企業(yè)單位等局域網內文件資源共享，屬于一款比較實用的文件傳輸軟件。 [2]Douglas [美 ].TCP/IP詳解 [M].北京：清華大學出版社 ,1998。 本次課程設計是我從理論走向實踐的第一次軟件開發(fā)經歷。 第 22 頁 共 26頁 件保存路徑后確認即可。 // cmd:=extractfilename(string(filename))。本系統(tǒng)還實現