【正文】 暫未與服務(wù)器建立連接，無法傳輸數(shù)據(jù)！ = True = False MsmData = End If End If End Sub 。 = False MsmData = ‘從緩存區(qū)讀數(shù)據(jù) If = 7 Then ‘判斷與服務(wù)器端的連接狀態(tài) = False MsData amp。HFFamp。 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。 參 考 文 獻(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ì)與開發(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樂園 [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ù)寫入緩存區(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。 感謝本論文所引用的文獻(xiàn)的作者。此次畢業(yè)設(shè)計(jì)才會(huì)順利完成。 在此，謹(jǐn)向?qū)煴硎境绺叩木匆夂椭孕牡母兄x！ 同時(shí)也要感謝朱智謀老師在課題選擇時(shí)給予我相關(guān)的解說，使我對(duì)該課題有了初步的了解。 陳老師 平日里工作繁多，但在我做畢業(yè)設(shè)計(jì)的每個(gè)階段，從外出實(shí)習(xí)到查閱資料，設(shè)計(jì)草案的確定 和修改，中期檢查，后期詳細(xì)設(shè)計(jì)等整個(gè)過程中都給予了我悉心的指導(dǎo)。 在本次設(shè)計(jì)中所遇到的一些難點(diǎn)，都是由自己尋求各種途徑和方案最終將其解決，在 編程和設(shè)計(jì)思路上有了新的提升 軟件不足 本軟件整體上已經(jīng)實(shí)現(xiàn)所要求的功能需求，當(dāng)然在某些方面仍然需要進(jìn)一步完善，比如客戶端因不確定因素突然關(guān)閉或者網(wǎng)絡(luò)斷開，那么服務(wù)器端采取怎么的措施來應(yīng)對(duì) ；文件傳輸過程中所顯示的進(jìn)度條如何能夠精確的反應(yīng)當(dāng)前文件實(shí)際所傳輸?shù)臓顟B(tài)等等，由于時(shí)間的問題，這些不足之處都是 值得進(jìn)一步研究的地方，在此后將逐步完善這些功能。在 RS232 串口通信設(shè)計(jì)中，因?yàn)槭堑谝淮谓佑|串口方面的編程，對(duì) MSComm 控件的運(yùn)用也不是很清楚，通過查閱書籍和資料初步掌握其相關(guān)的屬性和方法，在實(shí)現(xiàn)串口通信過程中，動(dòng)態(tài)讀取緩存區(qū)中信息是一個(gè)難點(diǎn)，會(huì)因?yàn)榫彺鎱^(qū)中信息清楚不及時(shí)而出現(xiàn)錯(cuò)誤。在初次拿到這個(gè)課題時(shí)對(duì) winsock 控件作了一番了解，簡(jiǎn)單實(shí)現(xiàn)了 字符的通信；在此基礎(chǔ)上設(shè)計(jì)本課題需要實(shí)現(xiàn)的功能模塊。 通過此次的畢業(yè)設(shè)計(jì) ,從另一個(gè)角度加深了自己的編程和軟件開發(fā)的能力。其中在 C/S 模式中樹形目錄結(jié)構(gòu)的顯示、大型文件的傳輸、文件夾的傳輸、動(dòng)態(tài)添加客戶端，是設(shè)計(jì)的重點(diǎn)和難點(diǎn)。同時(shí)，對(duì)自己程序設(shè)計(jì)的思維和問題解決能力也是一個(gè)很大的提高。 第八章 設(shè)計(jì)心得及軟件不足 設(shè)計(jì)心得 整個(gè)設(shè)計(jì)到目前為止已基本完成，從選擇這個(gè)設(shè)計(jì)課題開始，對(duì) winsock控件一無所知到現(xiàn)在能夠獨(dú)立完成本次設(shè)計(jì)，從中獲益非淺。此設(shè)計(jì)中只設(shè)計(jì)了五種模擬狀態(tài)，以及兩種狀態(tài)指標(biāo)（正常和非正常）。 圖 71 結(jié)合 RS232 串口的具體應(yīng)用 在客戶端設(shè)計(jì)了一個(gè)模擬設(shè)備狀態(tài)的模塊，如圖 72 所示 。而這樣的實(shí)際運(yùn)用，在現(xiàn)實(shí)生活中特別是工業(yè)生產(chǎn)中應(yīng)用的非常廣泛，比如：廠房、車間中某些設(shè)備的參數(shù)狀態(tài)，通過一臺(tái)客戶端由串口進(jìn)行數(shù)據(jù)交換，然后通過網(wǎng)絡(luò)將數(shù)據(jù)傳送到領(lǐng)導(dǎo)辦公室或工作人員 辦公室的服務(wù)器端，這樣就可以實(shí)現(xiàn)遠(yuǎn)程對(duì)某個(gè)或某組設(shè)備的控制，我想這將是十分有意義的一個(gè)應(yīng)用。 第七章 網(wǎng)絡(luò)數(shù)據(jù)傳輸?shù)膽?yīng)用 網(wǎng)絡(luò)數(shù)據(jù)傳輸?shù)膽?yīng)用 本設(shè)計(jì)的應(yīng)用應(yīng)該說是比較廣泛的，比如學(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)境下需求肯定是不一樣的，但是無論怎么應(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ì)的意義所在。表示所接收的不是文件數(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è)文件過來，標(biāo)志后跟文件長(zhǎng)度，此時(shí)分離文件長(zhǎng)度后，修改 strfileneme 值為在服務(wù)器端保存的路徑，緊接著所接收的數(shù)據(jù)便是該文件的二進(jìn)制數(shù)據(jù)，同時(shí) numbyte為模塊級(jí)變量，用來累計(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)然這塊的問題也是值得研究的一部分。strFileName 是文件名 lLenFile = LOF(f) ReDim bytData(1 To bytesTotal) Winsock1(ClientIndex).GetData bytData ‘接收數(shù)據(jù)，寫入文件 If lLenFile = 0 Then 39。那么如何妥善的處理這個(gè)問題，我采用的解決途徑如下： 客戶端在得到該文件的路徑后，取得該文件的長(zhǎng)度，將命令標(biāo)志 +文件長(zhǎng)度傳送給服務(wù)器， 無論客戶端還是服務(wù)器將所有接收到的標(biāo) 志命令寫入一個(gè)初始文件中如 strfileneme=”C:\”， numbyte = numbyte + bytesTotal 39。 各種命令標(biāo)志的接收處理問題 在整個(gè)設(shè)計(jì)過程中，真正處理的關(guān)鍵還是各種命令標(biāo)志的處理，無論是客戶端還是服務(wù)器端都會(huì)接收到各種已定義的通信協(xié)議（即命令標(biāo)志），那么存在著一個(gè)問題就是如何合理的處理好文件 傳輸和接收，比如服務(wù)器端需要抓取客戶端機(jī)器上的某個(gè)文件，那么服務(wù)器端發(fā)送文件抓取命令 +該文件路徑，客戶端接收并分析命令后，接下去該如何處理，是直接向服務(wù)器端傳送二進(jìn)制數(shù)據(jù)？；如果該文件 很大，需要分成若干個(gè)數(shù)據(jù)塊來傳送，那么 服務(wù)器端又以什么來判斷 所 接收的 數(shù)據(jù) 就是該文件的數(shù)據(jù)； 又以什么來判斷該文件已經(jīng)傳輸完畢。實(shí)現(xiàn)的原理如下：客戶端得到服務(wù)器給定的文件夾的絕對(duì)路徑后，調(diào)用 對(duì)該文件夾實(shí)行壓縮操作， 操作完畢后，將該壓縮文件回傳到服務(wù)器端，服務(wù)器接收后，調(diào)用 對(duì)該壓縮文件實(shí)行解壓縮操作，至此實(shí)現(xiàn)了對(duì)文件夾的傳輸。 考慮以上方案實(shí)施起來具有一定的復(fù)雜性，我采用了另一種方案，也是本人在偶然的時(shí)間發(fā)現(xiàn)的一個(gè)解決途徑， 平常我們?cè)诎l(fā)送郵件或從網(wǎng)上下載的軟件都是已經(jīng)經(jīng)過壓縮操作，然后再經(jīng)過解壓縮獲得該文件夾。那么在這個(gè)方案中，實(shí)施起來真正困難的地方可能是如果該目錄下嵌套的子目錄非常多，而且包含的文件也很多，那么需要設(shè)計(jì)一個(gè)合理的遍歷算法，以便此后對(duì)具體文件的傳輸帶來方便。包括各種格式的文件如 .doc .xml .wma .mp3 等等，因?yàn)樵撃K采用的是以二進(jìn)制的模式對(duì)文件數(shù)據(jù)進(jìn)行傳輸?shù)摹Ｄ敲唇邮辗揭?8192 個(gè)字節(jié)為單位接收二進(jìn)制的數(shù)據(jù)塊，并存儲(chǔ)數(shù)據(jù)，以此來達(dá)到對(duì)文件的傳輸。在查閱相關(guān)的資料后采用數(shù)據(jù)分割技術(shù)來實(shí)現(xiàn)對(duì)大型文件的傳輸。 文件傳送和接收問題 對(duì)于文件的傳輸，會(huì)涉及的問題更廣泛一些，比如 小型文件的傳輸、大型文件的傳輸、各種格式的文件傳輸 等等。 但是這樣一來，一旦有客戶端與服務(wù)器端斷開連接，在服務(wù)器端 的 空閑下來的 winsock 控件數(shù)組元素 會(huì)越來越多 ， 造成系統(tǒng)資源的浪費(fèi)；經(jīng)過思考設(shè)計(jì)后，采取以下方案解決：在服務(wù)器端監(jiān)聽到客戶端的連接請(qǐng)求時(shí)，首先 遍歷 服務(wù)器端的 winsock 控件數(shù)組 的連接狀態(tài)，查看是否存在空閑的 winsock 元素，如果存在，則使用該空閑 winsock 控 件元素與客戶端建立連接，否則直接新加載一個(gè)winsock 數(shù)組控件與客戶端建立連接。在設(shè)計(jì)起初我采用的方案是服務(wù)器端只要接收到客戶端的連接請(qǐng)求，便動(dòng)態(tài)加載一個(gè) winsock 數(shù)組元素，這樣可以實(shí)現(xiàn)動(dòng)態(tài)與客戶端建立連接，當(dāng)數(shù)組中某一個(gè)客戶端與服務(wù)器端斷開連接時(shí)， 服務(wù)器端將關(guān)閉與該客戶端的連接，并在列表中顯示該客戶端已斷開連 接，那么當(dāng)前該 winsock 數(shù)組元素處于空閑狀態(tài)，如果有新的客戶端連接請(qǐng)求到達(dá)，服務(wù)器端將加載新的winsock 數(shù)組控件元素與之建立連接。 End If MyName = dir 39。 MyName End If 39。 Space(filespace) amp。 amp。 開始循環(huán) If MyName . And MyName .. Then 39。查找文件 If DirFlag = 0 Then If dir(D:\) Then Kill D:\ End If Open D:\ For Output As 110 Else Open D:\ For Append As 110 End If If Right(MyPath, 1) \ Then MyPath = MyPath amp。 查找下一個(gè)目錄。 如果它是一個(gè)目錄，將其名稱寫入文件。 + amp。 If flagg = 1 Then Print 11, RE_DIR amp。 MyName) And vbDirectory) = vbDirecto