Schnellere Alternative zu Drawtext

[Namenloser]

Hallo,
ich hoffe das ist die richtige Sparte.

Ich will sehr viel Text als Grafik ausgeben, denn ich programmiere gerade meinen uralten Bild-Nach-Ascii-Converter neu^^. dabei will ich den benutzer die Möglichkeit geben, die Ausgabe wiederum als Grafik speichern zu können. Das Problem ist, das Drawtext dafür offensichtlich viel zu langsam ist. :wall:

Das komische ist, dass der Text in einem Memo sehr viel schneller - nämlich sofort - ausgegeben wird. Hat jemand eine Idee, wie ich das ganze schneller ausgeben könnte? Habe ich vielleicht irgendwelche Performance-bremsenden Parameter drin?

Delphi-Quellcode:

procedure TGraphicToText.ToGraphic(const dst: TGraphic);
var
  tmp: TBitmap;
  myrect: TRect;
begin
  tmp := tBitmap.Create;
  try
    tmp.Canvas.Font.Name := 'Courier New';
    tmp.Canvas.font.Size := 6;
    myrect.top := rect(0,0,0,0);
    // Text-Dimensionen ermitteln, wenn ich die Onlinehilfe richtig verstanden habe
    DrawText(tmp.Canvas.Handle,pansichar(fresult),length(fresult),myrect,
      DT_NOPREFIX or DT_CALCRECT or DT_NOCLIP);
    // Bitmapgröße einstellen
    tmp.Width := myrect.Right-myrect.Left;
    tmp.height := myrect.bottom-myrect.top;
    // text zeichnen
    DrawText(tmp.Canvas.Handle,pansichar(fresult),length(fresult),myrect,
      DT_NOPREFIX or DT_NOCLIP);
    // Ergebnis übernehmen
    dst.assign(tmp);
  finally
    tmp.free;
  end;
end;

In fresult steht der Text.

[Luckie]

Zitat:

Zitat von NamenLozer

Delphi-Quellcode:

    myrect.top := 0; // Komischerweise steht da nicht 0 drin oO

Warum sollte da auch null drin stehen? Das ist eine nicht initialisierte lokale Variable.

[Namenloser]

Zitat:

Zitat von Luckie

Zitat:

Zitat von NamenLozer

Delphi-Quellcode:

    myrect.top := 0; // Komischerweise steht da nicht 0 drin oO

Warum sollte da auch null drin stehen? Das ist eine nicht initialisierte lokale Variable.

Ich bin irgendwie davon ausgegangen, dass das beim ersten DrawText auch gesetzt wird, näher betrachtet ist das allerdings in der tat schwachsinn. Ich änder das gleich mal.

[Namenloser]

Busch :/

[Luckie]

Was ist dst? Ich gehe mal davon aus, dass diese Zeile:

Delphi-Quellcode:

dst.assign(tmp);

so lange braucht. Mach am Anfang und am Ende der Prozdur mal ein ShowMessage und kommentier besagte Zeile mal aus.

[Namenloser]

Zitat:

Zitat von Luckie

Was ist dst? Ich gehe mal davon aus, dass diese Zeile:

Delphi-Quellcode:

dst.assign(tmp);

so lange braucht. Mach am Anfang und am Ende der Prozdur mal ein ShowMessage und kommentier besagte Zeile mal aus.

Nee, scheint nicht der langsame Teil zu sein. Die ganze Aktion ist jetzt erheblich schneller geworden, indem ich HandleType und PixelFormat von tmp manuell gesetzt habe. :gruebel: Gut, einen Geschwindigkeitspreis gewinnt das jetzt immer noch nicht, aber es ist bei meinem Test-Bild (640x480) in schätzungsweise einer, vielleicht auch einer halben Sekunde fertig, das reicht für meine Zwecke erstmal aus.


Trotzdem Danke! :spin2:

[xaromz]

Hallo,

in Deinem Quelltext verwendest Du DrawText zu Ermitteln der TextGröße. Dafür gibt es GetTextExtentPoint32 bzw. TCanvas.TextExtent. Die sind sicher schneller.

Gruß
xaromz