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

in RC:
------

markieren

Code:

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

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

markieren

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:

markieren

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

Moin,

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

markieren

Code:

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

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

zusammenfalten · markieren

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;

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.

@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

markieren

Code:

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

werden auch Animationen unterstützt.

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

Danke an alle !

Gruß,
Karsten

markieren

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;

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