Convertir True Type Fonts en un BMP

[pmcastilla]

Hola Gente,
Esta es la primera vez que escribo :). Estoy necesitando convertir una Font del type True Type en una imagen BMP con Delphi 7.
Conocen de algun componente que me permita trabajar con el true type font? o alguna otra forma?
Muchas Gracias a Todos!:rolleyes:

[seoane]

Vamos por partes.

1. ¿Estamos hablando de hacerlo por medio de un código del delphi?
2. ¿Que características debe tener ese bmp? ¿Alto, Ancho, disposición de los caracteres, etc ...?
3. ¿Para que vas a usar el bmp resultante?

[pmcastilla]

Hola Seoane,
Si, la idea es hacerlo en codigo Delphi. El archivo BMP no importa el tamano ya que dependera del tamano de la Fuente. El contenido seria todos los caracteres ASCII.
El BMP resultante lo voy a reprocesar para convertir en columnas de 1 y 0 para otro programa.

[seoane]

Se me ocurre que puedes usar algo parecido a esto:

http://www.clubdelphi.com/foros/showpost.php?p=187914&postcount=1

[cHackAll]

Yo personalmente haría algo como ésto:

procedure TForm1.Button1Click(Sender: TObject);
var
Bitmap: TBitmap;
Index: Cardinal;
ASCII: array[0..255] of Byte;
begin
Index := High(ASCII);
repeat Dec(Index);
ASCII[Index] := Index + 1;
until Index = 0;
Bitmap := TBitmap.Create;
Bitmap.Height := 64;
Bitmap.Canvas.Font.Name := 'Comic Sans MS'; // es TrueType
Bitmap.Canvas.Font.Size := 24;
Bitmap.Width := Bitmap.Canvas.TextWidth(PChar(@ASCII)) + 16;
Bitmap.Canvas.TextOut(8, 8, PChar(@ASCII));
Bitmap.SaveToFile('c:\image.bmp');
Bitmap.Destroy;
end;

Sin embargo me suena algo raro escuchar TrueType + ASCII

[pmcastilla]

Muchas gracias Seoane y cHackAll por el tiempo y las ganas de ayudarme!!!!
La verdad que me sirvio un monton!!!
Saludos y exitos!