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

　　

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