Ich habs
Hier die Lösung:
Delphi-Quellcode:
procedure LoadImage(Bild: String; Ziel: TImage);
var
b: TJPEGImage;
s: TResourceStream;
r: Cardinal;
begin
r := FindResource(HInstance, PChar(Bild), 'JPG');
if r <> 0 then
begin
s := TResourceStream.Create(HInstance, Bild, 'JPG');
b := TJPEGImage.Create;
b.LoadFromStream(s);
Ziel.Picture.Bitmap.Assign(b);
b.Free;
s.Free;
end
else
begin
s := TResourceStream.Create(HInstance, 'Fehlerbild', 'JPG');
b := TJPEGImage.Create;
b.LoadFromStream(s);
Ziel.Picture.Bitmap.Assign(b);
b.Free;
s.Free;
end;
end;
Und aufrufen wie gehabt so:
LoadImage('bild1', Image1);
Vielleicht mach ich mal noch ein schönes Beispiel das man dann vielleicht in die Code-Library setzen kann. So mit allem drum und drann wie ich das Resource-File mache usw.
Gruß Arma.
