topic-23956

Posts: 282

Joined: Mon Oct 10, 2005 08:55 AM

Como controlo el socket
Posted: Wed Apr 25, 2012 11:40 AM

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

Code (fw): Select all Collapse

    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

José Vicente Beltrán

Posts: 282

Joined: Mon Oct 10, 2005 08:55 AM

Re: Como controlo el socket
Posted: Thu Apr 26, 2012 03:59 PM

¿A nadie le apetece hacer algún comentario?.

Los ejemplos que he encontrado en el foro o están incompletos o no los entiendo.
Se trata de conectar una balanza via TSocket y recibir la respuesta con el peso.

:roll: :roll: :roll: