Gif aus Resoure-datei nutzen

[Katrin_K]

resourcedatei
100 RC_DATA "Bildname1.gif"
101 RC_DATA "Bildname2.gif"
102 RC_DATA "Bildname3.gif"
103 RC_DATA "Bildname4.gif"
104 RC_DATA "Bildname5.gif"
105 RC_DATA "Bildname6.gif"

compilieren hat mit brcc32.exe funktioniert.

Programmcode

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, GIFImage;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Image1: TImage;
    procedure Button1Click(Sender: TObject);
    procedure test;
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
{$R datei.RES}

procedure TForm1.test;
var
  Res  : TResourceStream;
  Bild : TGIFImage;
begin
  Res := TResourceStream.Create(Hinstance, '100', PChar('RC_DATA'));
  Bild := TGIFImage.Create;
  try
    Bild.LoadFromStream(res);
  finally
    Res.Free;
  end;

  Image1.Picture.Graphic := Bild;
  Bild.Free;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.test;
end;

end.

Wenn ich nun via Buttonklick zur laufzeit das gif laden will bekomme ich nur eine Fehlermeldung.