Buenos días a todos; necesito que me hagais un gran favor, voy a adquirir 10 Fujitsu TP500, son PDA's industriales con impresora térmica incluida en LPT1, el tema es que he verificado con los ejemplos de la web de FWPPC que me funciona en el terminal, pero la impresión no la he podido verificar, y antes de adquirir tanto el FWPPC como los terminales quisiera probarlo. ¿ podría un alma caritativa hacerme un programa que imprima cualquier cosa (ej. "HELLO") en mi impresora ?, no sabeis cuanto lo agradecería.

PD: Es que los 10 Fujitsy son una pasta, y no quisiera que me despidiera n si no funciona.

Muchas gracias
Javi

¿En lpt1 o en com1?

o.t.: Me parece increible que si vas a comprar 10 pda no te dejen una en deposito para pruebas.

Tengo una para probar que es donde de visto que funcionan las pruebas que hay en la web, pero no tengo el FWPPC, que lo adquiriré cuando verifique que me funciona bien, y no puedo hacer la rutina para imprimir.

Va en LPT1

Javi

Hola:

Solo he cambiado el COM6 por LPT1 en un ejemplo que viene con fwppc.

¿Donde te envio el ejecutable?

include "FWCE.ch"

define GENERIC_READ 0x80000000

define GENERIC_WRITE 0x40000000

define OPEN_EXISTING 3

define FILE_ATTRIBUTE_NORMAL 0x00000080

function Main()

local oWnd
local hOut := CreateFile( "LPT1:",; // change the number as needed
GENERIC_WRITE, 0, 0, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL )
local hIn := CreateFile( "COM8:",; // change the number as needed
GENERIC_READ, 0, 0, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL )

DEFINE WINDOW oWnd TITLE "BlueTooth"

@ 2, 2 BUTTON "Send" ;
ACTION SendText( hOut, "Hello world!" ) SIZE 80, 20

ACTIVATE WINDOW oWnd

CloseHandle( hOut )
CloseHandle( hIn )

return nil

function SendText( hOut, cText )

local n

for n = 1 to Len( cText )
WriteByte( hOut, Asc( SubStr( cText, n, 1 ) ) )
next

return nil

Muchísimas gracias Jose, puedes enviarmelo a vrocio@vrocio.com.

FUNCIONA
Muchísimas gracias Jose, me has solucionado un gran problema.

Un saludo
Javi

Javi,

Bien!