>****************************** >* Winsock.DataArrival >****************************** >LPARAMETERS bytestotal >strData = SPACE(256) && Define string to pass to GetData > >This.Object.GetData(@strData) >lcData=TTOC(DATETIME())+[|]+ALLTRIM(strData)+[|] >thisform.ctList.additem(lcData) > >****************************** >* Winsock Connection Request >****************************** >LPARAMETERS requestid >#DEFINE sckClosed 0 >If This.Object.State <> sckClosed > This.Object.Close >ENDif >*!* Accept the request with the requestID >*!* parameter. >This.Object.Accept(requestID) >