Cache für Canvas

[Memex]

Hallo,

ich möchte einen Cache für ein Canvas Programmieren (Delphi7).. ich hab auch schon im Forum umgeschaut aber für meinen Anwendungsfall noch nichts passendes gefunden, hoffe ihr könnt mir da weiterhelfen.

Um das Problem zu beschreiben muss ich etwas weiter ausholen. Ich Entwickle an Software zur Auswertung von Messergebnissen, dabei kommen teilweise bis zu 300-400 mb Daten zusammen. Diese müssen berechnet (x,y,z Koordinanten als Ascii, berechnen und interpolieren..) und auf ein Canvas gezeichnet werden. Sicher könnt ihr euch wie ihr euch vorstellen, dass das recht lange dauern kann. Die Berechnung muss zum glück nicht jedesmal durchgeführt werden, es würde mir reicht alte Biler erneut zu laden, wo ich auch schon beim Cache bin.

Meine Idee ist folgende: Ich Zeiche die Daten auf das Canvas, anschließend ruf ich die Methode auf um das Canvas in einen MemoryStream zu speichern:

Code:

procedure SavetoCache(const DestCanvas : TCanvas);
var bitmap : TBitmap;
    cr     : TRect;
begin
  try
    SetLength(ga_Cache,Length(ga_Cache)+1);
    ga_Cache[high(ga_Cache)] := TMemoryStream.Create;
    bitmap := TBitmap.Create;
    cr := Bildformat(DestCanvas,bitmap);
    bitmap.Canvas.CopyRect(cr,DestCanvas,cR);
    bitmap.SaveToStream(ga_Cache[high(ga_Cache)]);
  finally
    FreeAndNil(bitmap);
  end;
end;

In der Methode

Code:

Bildformat(DestCanvas,bitmap)

setze ich die groeße und das Pixelformat (

Code:

bitmap.PixelFormat := pf32bit;

)von bmp.

Wenn das Bild wieder benötigt wird lade ich auf dem Cache dieser Methode:

Code:

procedure LoadformCache(var DestCanvas : TCanvas);
var bitmap : TBitmap;
    cr     : TRect;
begin
  try
    bitmap := TBitmap.Create;
    cR := Bildformat(DestCanvas,bitmap);
    ga_Cache[high(ga_Cache)].Position := 0;
    bitmap.LoadFromStream(ga_Cache[high(ga_Cache)]);
    BitBlt(DestCanvas.Handle,0,0,bitmap.Width,bitmap.Height,
           bitmap.Canvas.Handle,0,0,SRCCOPY);
  finally
    FreeAndNil(bitmap);
  end;
end;

Das ganze Funktioniert auch, nur leider hab ich beim Laden es Bildes (ca. 23mb) sehr starke Qualitätsverluste. Hab ich evtl. irgendetwas vergessen oder bin ich total auf dem Holzweg und es gibt ein viel viel bessere Lösung! Aber bitte ohne tausende Zeilen Code umschrieben zu müssen die über Jahrzehnte von meinem Vorgänger geschreiben wurden..

Viele Grüße,
Memex