事件，處理該事件時，運用程序應該用Accept方法接收連接。

∥當遠程客戶機(AT91RM9200)發(fā)出請求連接時發(fā)生

Private Sub Winsock

—

Server

— Connecti0nRequest( ByVal

requestID As Long)

If W insock

— Server．State > sckClosed Then W insock—

Server．Close保證Winsock控件不是處于Close狀態(tài)

W insock— —

Server．Accept requestlD

∥服務器接收客戶機(A'I-91 RM9200)的請求

End Sub

③ SendData方法。服務器給客戶機發(fā)送控制命

令，如開始執(zhí)行、停止、數(shù)據(jù)的轉存等，實現(xiàn)對客戶機的

遠程控制。

本函數(shù)按TCP模式按二進制方式發(fā)送數(shù)據(jù)包給

客戶機，函數(shù)成功返回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控件在連接狀態(tài)

W insock— ． Server．Se ndData Data_ Buf

End If

Send— Data— To— kehu=True