Page 1 of 1

Imprimir en BlueTooth mas rapido

Posted: Sat Nov 21, 2009 10:09 pm
by smorandin
Haciendo pruebas con los ejemplos que aqui encontre, logre hacer imprimir una serie de impresoras bluetooth, pero siempre tenia problemas como por ejemplo la velocidad, de repente "cortaba" la impresion, no imprimia, etc...

Bueno, cambiando la conexion del puerto anterior logre que mejorara un mundo:
hCom := CreateFile( ALLTRIM(cCOMPORT)+":", GENERIC_WRITE, 0, 0, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL )

por esta forma:
hCom := CreateFile( ALLTRIM(cCOMPORT)+":", nor( GENERIC_WRITE, GENERIC_READ ), 0, 0, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL )

y el envio a la impresora la cambie por esto:
.
.
.
cText := memoread( cFile )
nLineas := mlcount( cText )

for lnPos := 1 to nLineas
cLinea := strtran( strtran( memoline( cText, ,lnPos ), chr(10), '' ), chr(13), '')
fwrite( hCom, rtrim(cLinea) + chr(13)+chr(10))
endfor
CloseHandle( hCom )

Recuerden que en los ejemplos se escribia byte a byte, y bueno, a mi me funciono de maravillas, pruebenlo a ver...

Re: Imprimir en BlueTooth mas rapido

Posted: Tue Nov 24, 2009 12:21 pm
by Antonio Linares
Sandro,

Muchas gracias por compartir esas mejoras con todos! :-)