Minimalistische GIF-Komponente?

[Dani]

Guten Abend,

Ich bin auf der Suche nach einer Komponente, die nichts weiter können soll als ein GIF-Bild (einen der Frames) möglichst ressourcenschonend auf ein TBitmap auszugeben. Da es sich um sehr große Bilder handelt, darf ich keinen Speicher verschwenden *g*

TjvGifImage und TGifImage benutzen interne Bitmaps zur Darstellung der Grafik, reicht es dann, wenn ich TargetBMP den Handle des internen Bitmaps zuweise und anschließend die GIF-Graphik freigebe? Wird dadurch nicht der Handle ungültig?

Hier mal der Code, den ich zum laden verwende (kann man da noch was verbessern? :gruebel:)

Delphi-Quellcode:

procedure TForm1.LoadResourceGraphic(ResName: String;
  SrcFormat: TPictureFormat; TargetBMP: TBitmap);
var RS: TResourceStream;
    SrcGraphic: TGraphic;
begin
 SrcGraphic := nil;
 RS := TResourceStream.Create(HINSTANCE, ResName, 'FORGEPIC');
 try
  case SrcFormat of
   TBMP: TargetBMP.LoadFromStream(RS);
   TGIF: begin
          SrcGraphic := TJvGifImage.Create;
         end;

   TJPG: begin
          SrcGraphic := TJPEGImage.Create;
         end;
  end;

  If Assigned(SrcGraphic) then
   try
    SrcGraphic.LoadFromStream(RS);
    TargetBMP.Width := SrcGraphic.Width;
    TargetBMP.Height := SrcGraphic.Height;
    TargetBMP.Canvas.Draw(0, 0, SrcGraphic);
   finally
    SrcGraphic.Free;
   end;
 finally
  RS.Free;
 end;
end;

Tausend Dank schonmal fürs lesen!

Gruß,
Dani

[DennisHB]

Code:

SrcGraphic.LoadFromStream(RS);
TargetBMP.Width := SrcGraphic.Width;
TargetBMP.Height := SrcGraphic.Height;
TargetBMP.Canvas.Draw(0, 0, SrcGraphic);

kann man glaub ich durch

Code:

TargetBMP.Assign(SrcGraphic);

ersetzen...

[Dani]

Da ist zwar weniger Schreibarbeit, macht das Programm aber weder schneller noch braucht es weniger Speicher...

135 MB Speicherverbrauch, um ein 8.3 MB großes Bild (16 Farben Bitmap -> 200kb großes GIF ) zu drucken finde ich nicht gerade akzeptabel. :(