电子产品世界

事件，处理该事件时，运用程序应该用Accept方法接收连接。

∥当远程客户机(AT91RM9200)发出请求连接时发生

Private Sub Winsock

—

Server

— Connecti0nRequest( ByVal

requestID As Long)

If W insock

— Server．State > sckClosed Then W insock—

Server．Close保证Winsock控件不是处于Close状态

W insock— —

Server．Accept requestlD

∥服务器接收客户机(A'I-91 RM9200)的请求

End Sub

③ SendData方法。服务器给客户机发送控制命

令，如开始执行、停止、数据的转存等，实现对客户机的

远程控制。

本函数按TCP模式按二进制方式发送数据包给

客户机，函数成功返回true，出错返回false。

Public Function Send— Data—

To— kehu(Winsock—Server As

Winsock，Data—

Buff()As Byte)As Boolean

On Error GoTo Er

_

Part

Send— Data— To—

kehu ： False

If Connect Then ／／Connect是一个定义的全局变量，

保证在Winsock控件在连接状态

W insock— ． Server．Se ndData Data_ Buf

End If

Send— Data— To— kehu=True

关键词： 监控系统 技术 远程 数据采集 设计 高速 ARM