Einzelnen Beitrag anzeigen

Katrin_K

Registriert seit: 6. Sep 2006
14 Beiträge
 
Delphi 6 Personal
 
#3

Re: Gif aus Resoure-datei nutzen

  Alt 6. Sep 2006, 19:57
Danke für die Antwort.

Habe mir den Bericht durchgelesen und alles probiert, aber leider bekomme ich beim ausführen der ladenprocedure immer eine fehlermeldung. Resource Bildname1.gif wurde nicht gefunden.
Ist meine Resourcedatei vielleicht falsch aufgebaut???

Delphi-Quellcode:
{$R datei.res} 

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

  Image1.Picture.Graphic := Bild;
  Bild.Free;
end;
  Mit Zitat antworten Zitat