DELPHI 将TBitmap与TGPImage转换

uses GDIPOBJ, GDIPAPI;

procedure TForm1.FormPaint(Sender: TObject);
const
  ImgPath = 'c:\temp\test.bmp' ;
var
  img: TGPImage;
  bit: TBitmap;
  g: TGPGraphics;
begin
  bit := TBitmap.Create;
  bit.LoadFromFile(ImgPath); {因为 TBitmap 操作流特别方便, 这里就没有演示}

  img := TGPBitmap.Create(bit.Handle, bit.Palette);

  g := TGPGraphics.Create(Canvas.Handle);
  g.DrawImage(img, 0 , 0 );

  g.Free;
  bit.Free;
  img.Free;
end;