Como controlo el socket
Posted: Wed Apr 25, 2012 11:40 amHola a todos,
Necesito enviar una orden a una balanza y obtener la respuesta adecuada, pero no se como controlar los errores de conexión si se producen, el codigo es el siguiente:
Si alguien tiene un ejemplo y quiere compartirlo estaré muy agradecido.
Saludos al foro
Necesito enviar una orden a una balanza y obtener la respuesta adecuada, pero no se como controlar los errores de conexión si se producen, el codigo es el siguiente:
- Code: Select all Expand view
oSocket:= TSocket():New( 1000 ) // creo la conexión
msgRun( "Esperando respuesta del peso...",, {|| syswait( 6 ) } ) // espero un tiempo prudencial
*******************************************************
// supongo que aquí debería controlar si la conexión se realizó o no
// pero no se como hacerlo
******************************************************
oSocket:Connect( '127.0.0.1' ) // Esta es la ip donde esta el servidor.
oSocket:SendData( 'ABC' ) // envio la cadena al servidor.
oSocket:GetData() // recibo la respuesta
oSocket:Close() // cierro la conexión
Si alguien tiene un ejemplo y quiere compartirlo estaré muy agradecido.
Saludos al foro
