unit Unit1;

interface

uses
    System.SysUtils, System.Classes, System.Win.ComObj,
    Vcl.Forms, Vcl.StdCtrls, Vcl.Controls, Vcl.ExtCtrls,
    Winapi.ActiveX, Winapi.ShLwApi,
    Unit2;

type
    TForm1 = class(TForm)
        Button1: TButton;
        procedure Button1Click(Sender: TObject);
    private
    public
    end;

var Form1: TForm1;

implementation

uses GDIPAPI;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
    Stream: IStream; Wrapper: IStreamWrapper;
    GPSI: GdiplusStartupInput; GPToken: Cardinal; GPPicture: GpImage; GPCanvas: GpGraphics;
begin
GPSI.GdiplusVersion:=1;
GPSI.DebugEventCallback:=Nil;
GPSI.SuppressBackgroundThread:=False;
GPSI.SuppressExternalCodecs:=False;
if (Ok<>GdiplusStartup(GPToken, @GPSI, Nil)) then raise Exception.Create('GdiplusStartup Failed');
OleCheck(SHCreateStreamOnFile('C:\<...>\<...>.jpg', STGM_READ, Stream));
Wrapper:=IStreamWrapper.Create(Stream);
if (Ok<>GdipLoadImageFromStream(Wrapper, GPPicture)) then raise Exception.Create('GdipLoadImageFromStream Failed');
if (Ok<>GdipCreateFromHWND(Handle, GPCanvas)) then raise Exception.Create('GdipCreateFromHWND Failed');
if (Ok<>GdipDrawImage(GPCanvas, GPPicture, 0, 0)) then raise Exception.Create('GdipDrawImage Failed');
GdipDisposeImage(GPPicture);
GdipDeleteGraphics(GPCanvas);
GdiplusShutdown(GPToken);
Wrapper:=nil;
Stream:=nil;
end;

end.

unit Unit2;

interface

uses Winapi.Windows, Winapi.ActiveX;

type
    IStreamWrapper = class(TInterfacedObject, IStream)
    private
        OrigStream: IStream;
    public
        constructor Create(Stream: IStream);
        destructor Destroy(); override;
        {$IFDEF FPC} // у Делфи и Лазаруса разное описание IStream
            function Stat(out statstg: TStatStg; grfStatFlag: Longint): HRESULT; stdcall;
            function Seek(dlibMove: LargeUInt; dwOrigin: Longint; out libNewPosition: LargeUInt): HRESULT; stdcall;
            function Read(pv: Pointer; cb: DWORD; pcbRead: PDWORD): HRESULT; stdcall;
            function Write(pv: Pointer; cb: DWORD; pcbWritten: PDWORD): HRESULT; stdcall;
            function SetSize(libNewSize: LargeUInt): HRESULT; stdcall;
            function CopyTo(stm: IStream; cb: LargeUInt; out cbRead: LargeUInt; out cbWritten: LargeUInt): HRESULT; stdcall;
            function Commit(grfCommitFlags: Longint): HRESULT; stdcall;
            function Revert(): HRESULT; stdcall;
            function LockRegion(libOffset: LargeUInt; cb: LargeUInt; dwLockType: Longint): HRESULT; stdcall;
            function UnlockRegion(libOffset: LargeUInt; cb: LargeUInt; dwLockType: Longint): HRESULT; stdcall;
            function Clone(out stm: IStream): HRESULT; stdcall;
        {$ELSE}
            function Stat(out statstg: TStatStg; grfStatFlag: Cardinal): HRESULT; stdcall;
            function Seek(dlibMove: Int64; dwOrigin: Cardinal; out libNewPosition: UInt64): HRESULT; stdcall;
            function Read(pv: Pointer; cb: Cardinal; pcbRead: PFixedUInt): HRESULT; stdcall;
            function Write(pv: Pointer; cb: Cardinal; pcbWritten: PFixedUInt): HRESULT; stdcall;
            function SetSize(libNewSize: UInt64): HRESULT; stdcall;
            function CopyTo(stm: IStream; cb: UInt64; out cbRead: UInt64; out cbWritten: UInt64): HRESULT; stdcall;
            function Commit(grfCommitFlags: Cardinal): HRESULT; stdcall;
            function Revert(): HRESULT; stdcall;
            function LockRegion(libOffset: UInt64; cb: UInt64; dwLockType: Cardinal): HRESULT; stdcall;
            function UnlockRegion(libOffset: UInt64; cb: UInt64; dwLockType: Cardinal): HRESULT; stdcall;
            function Clone(out stm: IStream): HRESULT; stdcall;
        {$ENDIF}
    end;

implementation

constructor IStreamWrapper.Create;
begin
OrigStream:=Stream;
end;

destructor IStreamWrapper.Destroy;
begin
OrigStream:=nil;
inherited;
end;

function IStreamWrapper.Stat;
begin
Result:=OrigStream.Stat(statstg, grfStatFlag);
end;

function IStreamWrapper.Seek;
begin
Result:=OrigStream.Seek(dlibMove, dwOrigin, libNewPosition);
end;

function IStreamWrapper.Read;
begin
Result:=OrigStream.Read(pv, cb, pcbRead);
end;

function IStreamWrapper.Write;
begin
Result:=STG_E_UNIMPLEMENTEDFUNCTION;
end;

function IStreamWrapper.SetSize;
begin
Result:=STG_E_UNIMPLEMENTEDFUNCTION;
end;

function IStreamWrapper.CopyTo;
begin
Result:=STG_E_UNIMPLEMENTEDFUNCTION;
end;

function IStreamWrapper.Commit;
begin
Result:=STG_E_UNIMPLEMENTEDFUNCTION;
end;

function IStreamWrapper.Revert;
begin
Result:=STG_E_UNIMPLEMENTEDFUNCTION;
end;

function IStreamWrapper.LockRegion;
begin
Result:=STG_E_UNIMPLEMENTEDFUNCTION;
end;

function IStreamWrapper.UnlockRegion;
begin
Result:=STG_E_UNIMPLEMENTEDFUNCTION;
end;

function IStreamWrapper.Clone;
begin
Result:=STG_E_UNIMPLEMENTEDFUNCTION;
end;

end.

[src delphi]if @InVar = nil then