Ver Mensaje Individual
  #1  
Antiguo 14-04-2018
Avatar de newtron
[newtron] newtron is offline
Membrillo Premium
 
Registrado: abr 2007
Ubicación: Motril, Granada
Posts: 3.457
Reputación: 20
newtron Va camino a la fama
Problema con CharToOem

Hola a tod@s.

Estoy intentando migrar de Delphi 2007 a Berlin un código hecho por otros y me encuentro un problema en una parte que se dedica a la impresión en modo texto.

El código original, que funciona correctamente en Delphi 2007 y que no entiendo muy bien, es el siguiente (extracto):

Código Delphi [-]
var
    Linea:       String;
    LineaLeida:  Array [0..1024] of Char;
    LineaOEM:    Array [0..1024] of Char;
begin
    ...
    StrPCopy(Addr(LineaLeida), Linea);
    CharToOEM(LineaLeida, LineaOEM);
    Linea := StrPas(LineaOEM);

esto creo que lo que hace es preparar la cadena de caracteres de la variable "linea" para imprimirla de forma correcta en una impresora matricial. Cuando hablo "de forma correcta" me refiero a los acentos y caracteres especiales.

El tema es que cuando compilo esto en Berlin me da error en el "CharToOem" que dice:

E2010 Incompatible types: 'PAnsiChar' and 'array[0..1024] of Char'

¿Alguna idea?

Gracias y un saludo
__________________
Be water my friend.
Responder Con Cita