【導(dǎo)讀】室、工廠、自動化控制領(lǐng)域。人們在各個地方都可通過互聯(lián)網(wǎng)來交換信息,因而網(wǎng)絡(luò)數(shù)據(jù)傳輸就顯得尤為的重要。在VB中就提供了支持數(shù)據(jù)傳輸?shù)目?。件，如：Winsock控件和MSComm控件等。通過程序開發(fā)和控件的使用,可實?，F(xiàn)網(wǎng)絡(luò)的數(shù)據(jù)通信，滿足網(wǎng)絡(luò)用戶對數(shù)據(jù)通信和數(shù)據(jù)交換的需求?？谕ㄐ胖惺褂肕SCOMM控件編程來模擬實現(xiàn)對受控方的相關(guān)操作。關(guān)鍵詞WinSock控件；客戶端/服務(wù)器模式；網(wǎng)絡(luò)數(shù)據(jù)傳輸；串口通信；

　　

【正文】 以什么來判斷 所 接收的 數(shù)據(jù) 就是該文件的數(shù)據(jù)； 又以什么來判斷該文件已經(jīng)傳輸完畢。在此前我使用的方案是：對所有命令標志采用六位如“ Fl_Len” , 客戶端接收后分離標志命令，之后就采取相應(yīng)的措施，如斷開連接，消息傳輸?shù)鹊龋@些均可順利實現(xiàn)，但是當(dāng)需要傳輸文件時問題就出現(xiàn)了，客戶端經(jīng)過分 離后得到指定的文件路徑，緊接著就采用 分割技術(shù)向服務(wù)器端傳輸二進制數(shù)據(jù)，對于服務(wù)器端來說，此前一個命令標志就可代表一個動作，但此時所接收的數(shù)據(jù)塊不只一個，也不可能在客戶端對每一個數(shù)據(jù)塊添加一個命令標志以便服務(wù)器端來確認該數(shù)據(jù)屬于該文件，如果服務(wù)器端一直接收數(shù)據(jù)，那有可能將其他標志命令也作為文件數(shù)據(jù)寫入該文件中，這樣就會該文件無法打開或讀取失敗。那么如何妥善的處理這個問題，我采用的解決途徑如下： 客戶端在得到該文件的路徑后，取得該文件的長度，將命令標志 +文件長度傳送給服務(wù)器， 無論客戶端還是服務(wù)器將所有接收到的標 志命令寫入一個初始文件中如 strfileneme=”C:\”， numbyte = numbyte + bytesTotal 39。所收到的字節(jié)總數(shù) f = FreeFile Open strfilename For Binary As f 39。strFileName 是文件名 lLenFile = LOF(f) ReDim bytData(1 To bytesTotal) Winsock1(ClientIndex).GetData bytData ‘接收數(shù)據(jù)，寫入文件 If lLenFile = 0 Then 39。lLenFile=0 Put f, 1, bytData Else Put f, lLenFile + 1, bytData End If Close f If strfilename = C:\ Then 39。表示所接收的不是文件數(shù)據(jù) , 是一些狀態(tài) 信息 Call FileDir ‘讀取命令標志，分析操作 End If 然后從該文件中讀取 信息加以判斷具體什么標志命令，并采取相應(yīng)的操作，當(dāng)接收到某一個標志命令如“ Fl_Len” +文件長度，表示對方即將回傳一個文件過來，標志后跟文件長度，此時分離文件長度后，修改 strfileneme 值為在服務(wù)器端保存的路徑，緊接著所接收的數(shù)據(jù)便是該文件的二進制數(shù)據(jù)，同時 numbyte為模塊級變量，用來累計所接收到的數(shù)據(jù)大小， 如果和已知的文件實際長度相差在 5 個字節(jié) 內(nèi)，可認為該文件已傳輸完畢，因為實際傳輸中會有丟包或其他各種現(xiàn)象，如實際 1000 個字節(jié)的數(shù)據(jù)傳輸?shù)椒?wù)器端可能是 1001 個字節(jié)也可能是999 個字節(jié)，當(dāng)然這塊的問題也是值得研究的一部分。這樣一來有效的實現(xiàn)了各種標志命令的傳送以及文件的傳輸。 第七章 網(wǎng)絡(luò)數(shù)據(jù)傳輸?shù)膽?yīng)用 網(wǎng)絡(luò)數(shù)據(jù)傳輸?shù)膽?yīng)用 本設(shè)計的應(yīng)用應(yīng)該說是比較廣泛的，比如學(xué)校多媒體教室可以使用，服務(wù)器端應(yīng)用于教室機，客戶端應(yīng)用于學(xué)生機；公司局域網(wǎng)內(nèi)部服務(wù)器端可作管理員或者領(lǐng)導(dǎo)使用，客戶端可作員工使用等等，當(dāng)然具體投入實際環(huán)境使用，部分功能肯定還 是需要改善的，畢竟每一個環(huán)境下需求肯定是不一樣的，但是無論怎么應(yīng)用，其主要的原理還是不變的！ 網(wǎng)絡(luò)數(shù)據(jù)傳輸與 RS232 串口通信結(jié)合應(yīng)用 基于網(wǎng)絡(luò)數(shù)據(jù)傳輸?shù)幕A(chǔ)上，能夠?qū)⑺龅脑O(shè)計成果應(yīng)用于實際當(dāng)中，這才是整個設(shè)計的意義所在。在此我選擇 RS232 串口通信與本次設(shè)計的成果相結(jié)合，應(yīng)用于對相關(guān)設(shè)備的狀態(tài)讀取或相關(guān)參數(shù)的監(jiān)控。而這樣的實際運用，在現(xiàn)實生活中特別是工業(yè)生產(chǎn)中應(yīng)用的非常廣泛，比如：廠房、車間中某些設(shè)備的參數(shù)狀態(tài)，通過一臺客戶端由串口進行數(shù)據(jù)交換，然后通過網(wǎng)絡(luò)將數(shù)據(jù)傳送到領(lǐng)導(dǎo)辦公室或工作人員 辦公室的服務(wù)器端，這樣就可以實現(xiàn)遠程對某個或某組設(shè)備的控制，我想這將是十分有意義的一個應(yīng)用。應(yīng)用模擬圖如 圖 71所示 。 圖 71 結(jié)合 RS232 串口的具體應(yīng)用 在客戶端設(shè)計了一個模擬設(shè)備狀態(tài)的模塊，如圖 72 所示 。 圖 72 設(shè)備狀態(tài)模擬 此處設(shè)計是將該功能集成在客戶端，按照正常設(shè)計應(yīng)當(dāng)獨立設(shè)計一個程序來模擬設(shè)備，然后由一條 RS232 串口線連接客戶端和設(shè)備，但此處重點似乎為了說明網(wǎng)絡(luò)數(shù)據(jù)傳輸?shù)膽?yīng)用，只要將 RS232 串口的 2 號引腳和 3號引腳連接，即可形成回路，這樣通過產(chǎn)生模擬 狀態(tài)數(shù)據(jù)，由輸出到緩沖區(qū)，再由客戶端通過串口讀取模擬狀態(tài)數(shù)據(jù)，傳輸?shù)椒?wù)器端，并對所接收的二進制狀態(tài)數(shù)據(jù)進行分析，得出當(dāng)前該設(shè)備的各項狀態(tài)指標。此設(shè)計中只設(shè)計了五種模擬狀態(tài)，以及兩種狀態(tài)指標（正常和非正常）。僅管整個設(shè)計過程比較簡單，但是卻存在著它的實際意義和價值。 第八章 設(shè)計心得及軟件不足 設(shè)計心得 整個設(shè)計到目前為止已基本完成，從選擇這個設(shè)計課題開始，對 winsock控件一無所知到現(xiàn)在能夠獨立完成本次設(shè)計，從中獲益非淺。在設(shè)計中碰到了很多所未預(yù)料的棘手的難題，通過圖書館查閱資料，上網(wǎng)搜索相 關(guān)知識以及通過VB 群里的朋友的幫助，逐個逐個的解決難題。同時，對自己程序設(shè)計的思維和問題解決能力也是一個很大的提高。 本課題設(shè)計了基于 VB的網(wǎng)絡(luò)數(shù)據(jù)傳輸?shù)?C/S模型以及控制端和受控端模型。其中在 C/S 模式中樹形目錄結(jié)構(gòu)的顯示、大型文件的傳輸、文件夾的傳輸、動態(tài)添加客戶端，是設(shè)計的重點和難點。每個模塊都通過了多次的實驗和測試。 通過此次的畢業(yè)設(shè)計 ,從另一個角度加深了自己的編程和軟件開發(fā)的能力。首先，對設(shè)計的需求和功能設(shè)計要有全局的了解和掌握。在初次拿到這個課題時對 winsock 控件作了一番了解，簡單實現(xiàn)了 字符的通信；在此基礎(chǔ)上設(shè)計本課題需要實現(xiàn)的功能模塊。在實際編程過程中，對于多個客戶端的斷開再連接實現(xiàn)操作一直是個難題，同時深層次的文件夾傳輸也困擾了許久。在 RS232 串口通信設(shè)計中，因為是第一次接觸串口方面的編程，對 MSComm 控件的運用也不是很清楚，通過查閱書籍和資料初步掌握其相關(guān)的屬性和方法，在實現(xiàn)串口通信過程中，動態(tài)讀取緩存區(qū)中信息是一個難點，會因為緩存區(qū)中信息清楚不及時而出現(xiàn)錯誤。以及屏幕抓取后的傳輸也是個考慮甚久的問題。 在本次設(shè)計中所遇到的一些難點，都是由自己尋求各種途徑和方案最終將其解決，在 編程和設(shè)計思路上有了新的提升 軟件不足 本軟件整體上已經(jīng)實現(xiàn)所要求的功能需求，當(dāng)然在某些方面仍然需要進一步完善，比如客戶端因不確定因素突然關(guān)閉或者網(wǎng)絡(luò)斷開，那么服務(wù)器端采取怎么的措施來應(yīng)對 ；文件傳輸過程中所顯示的進度條如何能夠精確的反應(yīng)當(dāng)前文件實際所傳輸?shù)臓顟B(tài)等等，由于時間的問題，這些不足之處都是 值得進一步研究的地方，在此后將逐步完善這些功能。 致 謝 論文的順利完成， 在這里首先要感謝我的導(dǎo)師 陳建軍老師 。 陳老師 平日里工作繁多，但在我做畢業(yè)設(shè)計的每個階段，從外出實習(xí)到查閱資料，設(shè)計草案的確定 和修改，中期檢查，后期詳細設(shè)計等整個過程中都給予了我悉心的指導(dǎo)。除了敬佩 陳 老師的專業(yè)水平外，他的治學(xué)嚴謹和科學(xué)研究的精神也是我永遠學(xué)習(xí)的榜樣，并將積極影響我今后的學(xué)習(xí)和工作。 在此，謹向?qū)煴硎境绺叩木匆夂椭孕牡母兄x！ 同時也要感謝朱智謀老師在課題選擇時給予我相關(guān)的解說，使我對該課題有了初步的了解。 然后還要感謝大學(xué)四年來所有的老師，為我們打下計算機專業(yè)知識的基礎(chǔ)；同時還要感謝所有的同學(xué)們，正是因為有了你們的支持和鼓勵。此次畢業(yè)設(shè)計才會順利完成。 感謝 VB交流群的朋友 ， 在功能模塊無法實現(xiàn)時 ， 能夠給我提供幫助 。 感謝本論文所引用的文獻的作者。 感謝一切幫助過我的人 最后感謝計算機系和我的母校 — 元培學(xué)院 大學(xué)四年來對我的大力栽培。 參 考 文 獻 [1] 范逸之，陳立元 .Visual Basic 與 RS232串行通信控制 [M].北京：清華大學(xué)出版社，～ 57 [2] 崔彥鋒，許小榮 .VB 網(wǎng)絡(luò)與遠程控制編程實例教程 [M].北京：北京希望電子出版社，～ 65 [3] 卞志強 .Visual Basic網(wǎng)絡(luò)程序設(shè)計 [M].北京：人民郵電出版社， ～ 93 [4] 肖斌，董 磊 .Visual Basic 6 網(wǎng)絡(luò)編程實例教程 [M]北京：北京希望電子出版社 , ～ 139 [5] Loren Basic控件設(shè)計與開發(fā) [M].浙江：浙江科學(xué)技術(shù)出版社， ～89 [6]魏江江 .Visual Basic API編程百例通 [M］ .北京：科學(xué)出版社， ～ 78 [7] 李江全，張麗 .Visual Basic串口通信與測控應(yīng)用技術(shù)實戰(zhàn)詳解 [M].北京：人民郵電出版社， ～ 38 [8]高春艷，劉彬彬 . Visual Basic空件大全 [M].北京：人民郵電出版社， ～ 31 [9]VB樂園 [EB/OL]. [10]編程中國 [EB/OL]. [11]DEVELOPER fusion[EB/OL]. 附 錄 設(shè)備 端 狀態(tài) 數(shù)據(jù)的產(chǎn)生： Private Sub Command1_Click() ‘發(fā)送狀態(tài)數(shù)據(jù) = Trim() ‘將設(shè)備狀態(tài)數(shù)據(jù)寫入緩存區(qū) = True End Sub Private Sub Command2_Click() ‘產(chǎn)生隨機的模擬狀態(tài)數(shù)據(jù) Dim rndnum As Integer, i As Integer = For i = 1 To 5 ‘產(chǎn)生 5 個 01 之間的隨機數(shù) rndnum = Int(Rnd * (2)) = amp。 amp。 Val(rndnum) Next i Call Display ‘用顏色顯示 5 個狀態(tài)數(shù)據(jù) = True End Sub Public Sub Display() ‘顯示 5 個狀態(tài)數(shù)據(jù) Dim statu As String Dim k As Integer k = 1 For i = 1 To Len(Trim()) statu = Mid(Trim(), i, 1) If statu Then k = k + 1 Select Case statu Case 0: Text1(k).BackColor = amp。H80FF80 Case 1: Text1(k).BackColor = amp。HFFamp。 End Select End If Next i End Sub 客戶端接收設(shè)備狀態(tài)數(shù)據(jù) : Private Sub Timer5_Timer() ‘定時器動態(tài)接收 If 0 Then 39。 = False MsmData = ‘從緩存區(qū)讀數(shù)據(jù) If = 7 Then ‘判斷與服務(wù)器端的連接狀態(tài) = False MsData amp。 MsmData ‘將所讀取的數(shù)據(jù)傳送給服務(wù)器 MsmData = Else = RePlye amp。 暫未與服務(wù)器建立連接，無法傳輸數(shù)據(jù)！ = True = False MsmData = End If End If End Sub