> >DEFINE CLASS EMPS_Server_Class AS EMPS_Class > > ********************************************************** > PROCEDURE INIT * Should be DODEFAULT() > oSock.LocalHostName = m.HostName > oSock.LocalPort = m.Port > oSock.Listen() > * oSock.SendData("This is a test.") > > ENDPROC > >ENDDEFINE > > > >********************************************************** >DEFINE CLASS EMPS_Client_Class AS EMPS_Class > > ********************************************************** > PROCEDURE INIT * Should be DODEFAULT() > oSock.RemoteHostName = m.HostName > oSock.RemotePort = m.Port > oSock.Connect() > * oSock.SendData("This is a test.") > > ENDPROC > >ENDDEFINE >