Hallo,
ich möchte Bilder via
TResourceStream laden, doch leider bekomme ich immer die
Fehlermeldung
Zitat:
Resource xxx nicht gefunden
.
Delphi-Quellcode:
...
{$R resources.res}
...
const
IDB_0E00A = 100;
// PNG-Resource
...
procedure TForm1.LoadPNG(ID : Integer);
var
ResStream : TResourceStream;
Png : TPngImage;
begin
try
try
ResStream := TResourceStream.CreateFromID(0, ID, RT_RCDATA);
Png := TPngImage.Create;
try
Png.LoadFromStream(ResStream);
Image1.Picture.Graphic := Png;
finally
Png.Free;
end;
except
on E :
Exception do
ShowMessage(E.
Message);
end;
finally
if Assigned(ResStream)
then
ResStream.Free; [COLOR="Lime"]<- Warum führt ein Free zu einem Fehler !!!?[/COLOR]
end;
end;
...
LoadPNG(IDB_0E00A);
...
Die resources.res wird via
brcc32 -32 resources.rc erzeugt und sind auch in der
Anwendung vorhanden.
Die Suche in der
DP hat mich bisher nicht weiter geführt, daher:
Hat jemand einen Tipp/Hinweis?
Danke