Jpeg als TGPBitmap aus Resource laden

[Neutral General]

Hallo,

Probiers mal so:

Delphi-Quellcode:

procedure TMain.LoadFromResource(const S:String; var Bmp:TGPBitmap);
var Stream:TResourceStream; 
    adapter: TStreamAdapter;
begin
   Stream:=TResourceStream.Create(HInstance,S, RT_RCDATA);
   adapter := TStreamAdapter.Create(Stream);
   Bmp:=TGPBitmap.Create(adapter, False);
   adapter.Free;
   Stream.Free;
end;

(PS: Ein try-finally ist beim Erzeugen/Zerstören von Objekten sehr sinnvoll)