Xailer & OZ Software

Tengo que modificar el programa en Xailer que estamos utilizando para
conectar la base de datos en SQLServer con los verificadores de precios
que nosotros construimos (en FreeDos), para que ahora se comunique con
los verificadores de precios ScantechID SG-15.
Alguien se las ha visto con ellos, se que tengo que crear un servidor
TCP para que los verificadores se comuniquen con mi programa, pero voy
muy perdido, cualquier ayuda se agradecerí­a mucho.
Un saludo

Pedro,
> Alguien se las ha visto con ellos, se que tengo que crear un servidor TCP
> para que los verificadores se comuniquen con mi programa, pero voy muy
> perdido, cualquier ayuda se agradecerí­a mucho.
La documentación del aparato dice que cuando se instala ofrece sus
servicios como un servidor así­ que lo que necesitas es un cliente TCP para
comunicarte con él.
Si es como creo me imagino quizás puedas usar la clase TInternet para
enviarle órdenes.
Prueba un sencillo ejemplo:
#define SG_ESC "0x1B"
//Aqui debes poner la dirección IP
//en la que está escuchando el escaner
#define SG_IP "LaIPDelAparato"
METHOD Button1Click( oSender ) CLASS TForm1
LOCAL hCon
WITH OBJECT TInternet():Create()
IF :Open()
hCon := :OpenUrl( SG_IP )
IF !Empty( hCon )
MsgInfo( "Conectado!" )
:WriteFile( hCon, SG_ESC + "0x5E" ) //beep
:WriteFile( hCon, "Pedro" )
:CloseURL( hCon )
ENDIF
:Close()
ENDIF
ENDIF
RETURN Nil
Saludos,
José Lalí­n