Imprimir en BlueTooth mas rapido

Imprimir en BlueTooth mas rapido

Postby smorandin » Sat Nov 21, 2009 10:09 pm

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...
smorandin
 
Posts: 5
Joined: Mon Jul 23, 2007 10:53 pm

Re: Imprimir en BlueTooth mas rapido

Postby Antonio Linares » Tue Nov 24, 2009 12:21 pm

Sandro,

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

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 41205
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain


Return to FiveWin para Pocket PC

Who is online

Users browsing this forum: No registered users and 5 guests