No funciana mandar fichero txt a impresora con XE2

[hgiacobone]

Actualizo la data.
Modifique la instruccion original:

Código Delphi [-]
WritePrinter(PrinterHandle, PChar(comando), Length( PChar(comando) ), N);

...por esta nueva instruccion sugerida por otro amigo:

Código Delphi [-]
WritePrinter(PrinterHandle, PChar( RawByteString(comando) ), Length( PChar( RawByteString(comando)) ), N);

...pero tampoco funciona. No sale nada por la impresora y en cambio con Delphi7 si lo hace.

¿Alguna idea o sugerencia?

[[ElKurgan]]

A lo mejor el problema está en el soporte para caracteres Unicode de las últimas versiones de Delphi.

Desde la versión 2009 de Delphi se incluye soporte a caracteres Unicode por defecto, por lo que la clase String equivale a la antigua WideString. Lo mismo pasa con los tipos Char.

Si quieres que las cosas funcionen como estaban en versione anteriores de Delphi tienes que sustituir los String por AnsiStirng, y los Char por AnsiChar

A lo mejor tienes que cambiar todas las transformaciones tipo PChar(...) a PAnsiChar(...)

Espero que te sirva

Un saludo

[hgiacobone]

Bueno amigos, luego de mucho andar, he aqui la solución.
La instruccion original, debe modificarse de esta forma:

Código Delphi [-]
WritePrinter(PrinterHandle , PAnsiChar( RawByteString(comando) ) , Length(comando) , N);

Con esto, sencillamente, funciona.