本文格式為Word版，下載可任意編輯——基于TCP的文件傳輸試驗報告

0ThenInput#2,receivedWinsock1.SendDatareceivedEndIfClose#2flag=FalseElse

OpentempfileForOutputAs#2'建立數據緩沖區ReDimdata(bytesTotal)'接收服務器端傳輸的數據

Winsock1.GetDatadata,vbArray+vbByte'將接收的數據寫入文件

Forj=received+1Toreceived+bytesTotalPut#1,j,data(j-received-1)Next

15

'更新已接收的數據

received=received+bytesTotal'更新臨時文件Write#2,received

ProgressBar1.Value=Int((received/filelength)*100)'傳輸完畢

IfProgressBar1.Value>=100ThenStatusBar1.SimpleText=\數據傳輸完畢！\Close#2'刪除臨時文件Kill(tempfile)Close#1EndIfClose#2EndIfEndSub

運行效果如圖4所示：

16

圖4客戶端斷點續傳的效果

4、總結

整個設計到目前為止已基本完成，從選擇這個設計課題開始，對winsock控件一無所知到現在能夠獨立完成本次設計，從中獲益非淺。在設計中碰見了好多所未預料的難辦的難題，通過圖書館查閱資料，上網探尋相關知識以及通過VB群里的朋友的幫助，逐個逐個的解決難題。同時，對自己程序設計的思維和問題解決能力也是一個很大的提高。

本課題設計了基于VB的網絡數據傳輸的C/S模型以及控制端和受控端模型。其中Winsock控件、文件夾的傳輸、添加客戶端，是設計的重點和難點。每個模塊都通過了屢屢的試驗和測試。本文通過在VB中使用Winsock控件，實現網絡之間的文件傳輸，更進一步理解了其工作原理。此外，還研究在網絡傳輸文件中要注意的問題，并對怎樣處理傳輸文件比較大時的狀況進行了詳細的分析，并通過實際的方法實現了文件的“斷點續傳〞，可以滿足實際中的要求，其設計的思想也具有普遍的通用性。

通過此次的畢業設計,從另一個角度加深了自己的編程和軟件開發的能力。首先，對設計的需

17

求和功能設計要有全局的了解和把握。在初次拿到這個課題時對winsock控件作了一番了解，簡單實現了字符的通信；在此基礎上設計本課題需要實現的功能模塊。在實際編程過程中，對于客戶端的斷開再連接實現操作一直是個難題，同時深層次的文件夾傳輸也困擾了許久。。

在本次設計中所遇到的一些難點，都是由自己尋求各種途徑和方案最終將其解決，在編程和設計思路上有了新的提升。

參考文獻

[1]崔彥鋒，許小榮.VB網絡與遠程控制編程實例教程[M].北京：北京希望電子出版社，1996.34～65

[2]卞志強.VisualBasic網絡程序設計[M].北京：人民郵電出版社，1993.48～93

[3]肖斌，董磊.VisualBasic6網絡編程實例教程[M]北京：北京希望電子出版社,1998.47～139

[4]LorenEidahl.VisualBasic控件設計與開發[M].浙江：浙江科學技術出版社，1998.26～89[5]魏江江.VisualBasicAPI編程百例通[M］.北京：科學出版社