Gif Bild aus Stream laden

[marabu]

So müsste es gehen - mit der unit GIFImage:

Delphi-Quellcode:

{$R gif.res}

uses
  GifImage;
 
procedure Test;
const
  GifResName = 'marabu';
var
  gif: TGifImage;
  h: THandle;
begin
  gif := TGifImage.Create;
  image := TImage.Create;
  h := GetModuleHandle(PChar(ParamStr(0)));
  gif.LoadFromResourceName(h, GifResName);
  image.Picture.Bitmap.Assign(gif.bitmap);
  gif.Free;
end;

Grüße vom marabu