TStreamAdapter Patch für ntdll AV (GDI+)

[Tonic1024]

Dieser Tip aus der CodeLib hat mir leider nicht geholfen beim laden von PNGs aus Ressourcen mit GDI+.

Mit etwas google und viel Phantasie hab ich ne Lösung gefunden.

Delphi-Quellcode:

uses 
  ActiveX

type
  TPatchedStreamAdapter = class(TStreamAdapter)
  public
    function Stat(out statstg: ActiveX.TStatStg; grfStatFlag: Longint): HResult; override; stdcall;
  end;

implementation

function TPatchedStreamAdapter.Stat(out statstg: ActiveX.TStatStg; grfStatFlag: Longint): HResult;
begin
  Result := inherited Stat(statstg, grfStatFlag);
  statstg.pwcsName := nil;
end;

Delphi-Quellcode:

  Stream:=TResourceStream.Create(hInstance, 'Image', RT_RCDATA);
  Image:=TGPBitmap.Create((TPatchedStreamAdapter.Create(Stream) as IStream));
  Stream.Free;

Gruß,

Toni