Exit Function

Err_ Pa~：

Send— Data— To— kehu = False

MsgBox“發送數據出錯!錯誤代碼=”+CStr(Er)+

“ ：”+Error，vbExclamation，“錯誤提示”

Exit Function

End Function

4．2 Winsoek控件事件

Winsock控件事件分為以下2種。

① DataArrival事件：該事件是通信的核心部分。當給客戶端發送完命令后，接收客戶端返回的命令執行情況，實現對客戶機運行狀態的監察。如果是數據轉存命令時，還要完成接收客戶機上傳的采集數據和對數據的服務器存儲，進一步提高系統的可靠性，其流程如圖3所示。接收到FTP頭數據包后， P傳輸數據的格式定義如圖4所示。

② Error事件：只要后臺處理中出現錯誤(例如連接失敗、收發數據失敗)事件都會出現，方便我們對程序的監控和調試。

在后臺處理中出現錯誤時發生：

Private Sub W insock— Server_

Eror(ByVal Number As Inte．

ger，Description As String，ByVal Se ode As Long，ByValSource As String，ByVal HelpFile As String，ByVal Help—Context As Long，CancelDisplay As Boolean

MsgBox“網絡運行出錯!代碼=”+CStr(Err)+“：”

+Error，vbCritical，“錯誤信息”

Exit Sub

End Sub

5 結束語

基于ARM的高速數據采集裝置的遠程監控的設計，從硬件和軟件兩方面看是可行的，實際制板調試結果很好地完成了遠程通信任務。對工業現場的遠程監控提供了新的解決方案。隨著以太網的日益普及，該方案有著很強的實踐意義。