Jpeg als TGPBitmap aus Resource laden

[Sir Rufo]

Zitat von Neutral General:

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)

Kleine Änderung, da man nicht weiß ob bei der übergebenen IStream -Referenz der Referenzzähler erhöht wird (ohne die Klasse TGPBitmap zu untersuchen)

Delphi-Quellcode:

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