FiveTech Support Forums

Hola a todos. Es la primera vez que uso esta clase, el ejemplo funciona perfecto, pero el problema es que necesito enviar un comando a un dispositivo y se supoe que este me responde (de hecho lo hace, usando una aplicacion llamada Docklight_Scripting que es como un hiperterminal para TCP IP) pero a mi no me llega la respuesta, no se que hago mal, asi es como lo hago:

  oSocket := TSocket():New( 997, oApp )
  oSocket:Connect( "192.168.0.150", 997 )
  oSocket:SendData( "r" )     /// Hasta aca apaentemente funciona.
  Ret :=oSocket:GetData()   /// Creo que aca deberia tener la respuesta que nunca llega.

Si alguien me puede orientar, desde ya muchas gracas.

Jorge Jaurena

Jorge,

Revisa los ejemplos en FWH\samples sockserv.prg y sockcli.prg para que veas como se realiza la comunicación entre el cliente y el servidor.

Los datos llegan por eventos, y para que te lleguen debes hacer:

oSocket:bRead = { | oSocket | MsgInfo( oSocket:GetData() ) }