FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Caracteres especiales
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!!!! |
#2
|
||||
|
||||
Seguramente la impresora utilizará un juego de caracteres OEM, por eso te recomiendo probar la funcion CharToOem para traducir tu texto ANSI.
Saludos!
__________________
delphi.com.ar Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla. |
#3
|
|||
|
|||
Funciona !!
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!!!! |
|
|
|