Caracteres especiales

[Scotty_thedog]

Hola necesito imprimir caracteres especiales mediante una impresora de tickets
(ñ, º , ª , í , ... )

La forma en la que escribo es tratando la impresión como si fuese escribir en un fichero.

La impresora utilizada es una epson TM-U210.

¿Alguna sugerencia?

Gracias!!!!

[delphi.com.ar]

Seguramente la impresora utilizará un juego de caracteres OEM, por eso te recomiendo probar la funcion CharToOem para traducir tu texto ANSI.

Saludos!

[MAGRANA]

Gracias, he probado a usar la función y funciona corectamente.

Por si alguien lo necesita aqui teneis una funcion para facilitar las cosas:

function ANSI2ASCII(AText:string):string;
const MaxLength = 255;
var PText : PChar;
begin
PText:=StrAlloc(MaxLength);
StrPCopy(PText,AText);
{$IFDEF WIN32}
CharToOEM(PText,PText); {32Bit}
{$ELSE}
AnsiToOEM(PText,PText); {16Bit}
{$ENDIF}
Result:=StrPas(PText);
StrDispose(PText);
end;



.....
var campo:string;
....
campo:= ANSI2ASCII(campo);
writeln(F,campo);
....


Saludos!!!!