>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
>