Alternativa a TEXTOUT que soporte Unicode

[[ArdiIIa]]

Empezado por MDSato

Buenos días,
y por lo visto esta opción no soporta UNICODE, con lo cual se pierden los caracteres especiales.

Yo no eso muy seguro de que eso sea así.
Pregunto: ¿No será que el tipo de Font que le asignas al Canvas no soporta los caracteres especiales que intentas meter?

Podrías hacer pruebas asignando distintos tipos de fonts y comprobar los resultados.
Saludos

[MDSato]

Muchas gracias por tu apreciación, ArdiIIa.
La fuente que estaba utilizando era la Times New Roman. De todas formas, he probado con la Tahoma (que es la que por defecto utilizan los componentes TNT) y da el mismo resultado.
En todos los cambios de rutinas que he realizado me he dado cuenta que si en la función, el parámetro lo recibe una variable string en lugar de widestring, se pierden esos caracteres especiales. Y en el caso del TextOut la llamada sólo permite enviar string. De ahí que achacara ese comportamiento a eso... A que aunque yo le envío el widestring, TextOut lo toma como un string...

procedure TextOut(X: Integer; Y: Integer; const Text: string);

¿Se os ocurre alguna otra posibilidad?
Gracias de nuevo.

[[ArdiIIa]]

Entonces la forma de operar tal vez tenga que ser diferente....
En vez de trabajando directamente con el Canvas del Bitmap seguramente obtengas otros resultados trabajando con otra llamada del gdi32...

Código Delphi [-]
TextOutW((DC, 0, 0, PWideChar(Texto), Length(Texto));

[MDSato]

Perdona por mi absoluta ignoracia en el tema ArdiIIa, pero, ¿de qué forma podría "enlazar" ese DC con un bitmap?
Es la primera vez que veo eso del Device Context... :S

Muchas gracias.

[[ArdiIIa]]

El DC (device context) se obtiene mediante la función GetDC y sirve para obtener el handle del objeto sobre el que queremos operar.
En tu caso ya lo tienes.... y no es necesario hacer nada mas..

Código Delphi [-]
TextOutW(AuxBitmap.Canvas.Handle, 0, 0, PWideChar(Texto), Length(Texto));

Perdona que anteriormente no te lo pusiera mas claro...

[MDSato]

Me respondo a mí mismo... He utilizado tu llamada y en lugar del DC he puesto el Handle del canvas del bitmap de esta forma:

TextOutW(AuxBitmap.Canvas.Handle, 0, 0, PWideChar(Texto), Length(Texto));

Por lo visto en pantalla el resultado parece correcto
Muchísimas gracias.

[MDSato]

MUCHISIMAS GRACIAS!!!!
TODO PERFECTO ENTONCES...

Mil gracias por tu respuesta... Veía el asunto muy negro (o en chino, para seguir con la temática unicode)...

[[seoane]]

Pues vaya, mientras estaba creando un ejemplo me pisaron la respuestaa

Código Delphi [-]
var
  Bitmap: TBitmap;
  Size: TSize;
  Texto: WideString;
begin
  Texto:= #$06E9 + #$06E9; // Caracteres arabes
  Bitmap:= TBitmap.Create;
  try
    Bitmap.Canvas.Font.Name:= 'Arial';
    Bitmap.Canvas.Font.Size:= 16;
    Bitmap.Canvas.Font.Style := [];
    // Version Unicode de GetTextExtentPoint32
    GetTextExtentPoint32W(Bitmap.Canvas.Handle,PWideChar(Texto),
      Length(Texto),Size);
    Bitmap.Width:= Size.cx;
    Bitmap.Height:= Size.cy;
    // Version Unicode de TextExtent
    ExtTextOutW(Bitmap.Canvas.Handle, 0, 0, 0, nil, PWideChar(Texto),
      Length(Texto), nil);
    // Aqui yo lo dibujo para ver el resultado
    Canvas.Draw(0,0,Bitmap);
  finally
    Bitmap.Free;
  end;
end;

Hasta tenia preparada una explicación:

La mayoria de la funciones de la API que tienen que tratar con texto tienen dos versiones la ANSI y la Unicode. El metodo TextOut del Canvas utiliza la funcion ExtTextOut en su version ANSI (ExtTextOutA), si necesitas trabajar con Unicode tendras que usar la otra version (ExtTextOutW).

Tengo que ser mas rápido