>>oWinSock = CREATEOBJECT([MSWinsock.Winsock.1]) >>oEventHandler = CREATEOBJECT([EMPS_Class]) >>EVENTHANDLER(oWinSock, oEventHandler) >> >> >> >> >> >> >>DEFINE CLASS EMPS_Class AS Session &&OLEPUBLIC >> >> * Using the MSWinsck control for basic port communications >> IMPLEMENTS DMSWinsockControlEvents IN "MSWinsock.Winsock" >> >> PROCEDURE DMSWinsockControlEvents_Error(Number AS INTEGER, Description AS STRING, Scode AS Number, Source AS STRING, HelpFile AS STRING, HelpContext AS Number, CancelDisplay AS LOGICAL) AS VOID; >> HELPSTRING "Error occurred" >> * add user code here >> ENDPROC >> >> PROCEDURE DMSWinsockControlEvents_DataArrival(bytesTotal AS Number) AS VOID; >> HELPSTRING "Occurs when data has been received from the remote computer" >> * add user code here >> ENDPROC >> >> PROCEDURE DMSWinsockControlEvents_Connect() AS VOID; >> HELPSTRING "Occurs connect operation is completed" >> * add user code here >> ENDPROC >> >> PROCEDURE DMSWinsockControlEvents_ConnectionRequest(requestID AS Number) AS VOID; >> HELPSTRING "Occurs when a remote client is attempting to connect" >> * add user code here >> ENDPROC >> >> PROCEDURE DMSWinsockControlEvents_Close() AS VOID; >> HELPSTRING "Occurs when the connection has been closed" >> * add user code here >> ENDPROC >> >> PROCEDURE DMSWinsockControlEvents_SendProgress(bytesSent AS Number, bytesRemaining AS Number) AS VOID; >> HELPSTRING "Occurs during process of sending data" >> * add user code here >> ENDPROC >> >> PROCEDURE DMSWinsockControlEvents_SendComplete() AS VOID; >> HELPSTRING "Occurs after a send operation has completed" >> * add user code here >> ENDPROC >> >> >>ENDDEFINE >>>>(not tested)