Einzelnen Beitrag anzeigen

Benutzerbild von Tonic1024
Tonic1024

Registriert seit: 10. Sep 2003
Ort: Cuxhaven
559 Beiträge
 
RAD-Studio 2009 Ent
 
#1

TStreamAdapter Patch für ntdll AV (GDI+)

  Alt 28. Sep 2012, 15:39
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
Der frühe Vogel fängt den Wurm, richtig.
Aber wird nicht auch der frühe Wurm vom Vogel gefressen?
  Mit Zitat antworten Zitat