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
In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Verificadores de Precios
-
Pedro Amaro
- Mensajes: 157
- Registrado: Jue May 18, 2006 5:10 pm
Verificadores de Precios
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
> 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