Ayuda con TSocket()

[Jorge Jaurena]

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

[Antonio Linares]

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() ) }