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

[Memex]

Hallo,

hat den keiner einie Idee zu dem Thema? Ich hab mir in der zwischenzeit mal den MemoryStream in eine Datei schreiben lassen.. dabei die Qualität aber normal.

Viele Grüße,
Marcus

[freeway]

Versuch es mal mit pixelformat, du initialisiert zwar bitmap aber du weisst kein Farbformat zu

Delphi-Quellcode:

procedure LoadformCache(var DestCanvas : TCanvas);
var bitmap : TBitmap;
    cr    : TRect;
begin
  try
    bitmap := TBitmap.Create;
    
--> bitmap.pixelformat := pf24bit;

    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;

[ehX]

Zitat:

Versuch es mal mit pixelformat, du initialisiert zwar bitmap aber du weisst kein Farbformat zu

Doch, macht er schon, das passiert ja in der Funktion "Bildformat()".


Wie sieht diese Routine eigentlich genau aus? Skalierst du dort das Bild irgendwie, so dass es dann gestreckt / gestaucht wird?
(Grösse des Cache-Bildes unterscheidet sich von sichtbarer Canvas-Grösse)
Das könnte den Qualitätsverlust erklären, weil ansonsten ein BitBlt normalerweise keinen Qualitätsverlust erzeugt...

[freeway]

@ehX eigentlich nicht, er übergibt lediglich ein trect (cr)

[jfheins]

Hat es einen bestimmten Grund, dass du den Umweg über den Memorystream gehst?
Du kannst den Cache ja genauso gut als Bitmap Array definieren.

Ansonsten wäre noch der Code von bildformat() interessant.