gif (animated) aus Resource-Dateie in TImage laden

[Karsten]

Das Arbeiten mit Jpegs und Resource-Dateien ist ja recht einfach...

in RC:
------

Code:

Picture   JPEG   "..\Bilder\Picture.jpg"

zum Auslesen:
-------------

Code:

var
  TempJpeg: TJpegImage;
  ResStream: TResourceStream;

begin
  ResStream := TResourceStream.Create(HInstance, 'Picture', 'JPEG');
  TempJpeg  := TJpegImage.Create;

  try
    TempJpeg.LoadFromStream(ResStream);
    Image.Picture.Bitmap.Assign(TempJpeg);

  finally
    FreeAndNil(ResStream);
    FreeAndNil(TempJpeg);

  end;
end;

nur wie funktioniert das bei gif-Dateien (animated) ? So ganz nebenbei, die unit GIFImage ist vorhanden, womit gif-Dateien in TImage unterstützt werden.

Ein laden der gif-Datei mit:

Code:

Image.Picture.LoadFromFile(PChar(ExtractFilePath(ParamStr(0))) + 'GIFPicture.gif');

ist problemlos möglich, nur ich hätte es dann doch lieber über die Resource-Datei.

Danke und Gruß,

Karsten

[Dani]

Moin,

Ersetze 'JPEG' durch 'GIFIMG' und es sollte gehen.
in RC:
------

Code:

Picture   GIFIMG   "..\Bilder\Picture.gif"

zum Auslesen:
-------------

Delphi-Quellcode:

 
var 
  TempGif: TGifImage; 
  ResStream: TResourceStream; 

begin 
  ResStream := TResourceStream.Create(HInstance, 'Picture', 'GIFIMG');
  TempGif  := TGifImage.Create; 

  try 
    TempGif.LoadFromStream(ResStream); 
    Image.Picture.Bitmap.Assign(TempGif); 

  finally 
    FreeAndNil(ResStream); 
    FreeAndNil(TempGif); 

  end; 
end;

[himitsu]

Ich kann mich ja täuchen, aber mir ist so, als wenn TImage keine "animierten" GIF's kann, auch nicht mit Hilfe von der GIFImage-Unit.

Aber du kannst es ja mal mit einer anderen Komponente machen - Torry hat da wohl was passendes, was animierte GIF's anzeigen kann.


Und wenn du dann mal eine Komponente hast, die animierte GIF's anzeigt, dann kannst du ja mal Dani's Vorschlag darauf anwenden.

[Karsten]

@Dani,

danke erst einmal für Deine Antwort, jetzt lässt sich die gif-Datei aus der Res-Datei laden. Nur es bewegt sich nichts.

@himitsu

mit

Code:

Image.Picture.LoadFromFile(PChar(ExtractFilePath(ParamStr(0))) + 'GIFPicture.gif');

werden auch Animationen unterstützt.

[Karsten]

es geht doch..., das '.Bitmap' war zuviel.

Danke an alle !

Gruß,
Karsten

Code:

var 
  TempGif: TGifImage; 
  ResStream: TResourceStream; 

begin 
  ResStream := TResourceStream.Create(HInstance, 'Picture', 'GIFIMG'); 
  TempGif  := TGifImage.Create; 

  try 
    TempGif.LoadFromStream(ResStream);
->  Image.Picture.Assign(TempGif);
  finally 
    FreeAndNil(ResStream); 
    FreeAndNil(TempGif); 

  end; 
end;

[himitsu]

Na dann ist's ja gut - mir war halt nur so, als wenn TImage nur EINE Bildebene verwalten kann :roteyes: