delphi 将TBitmap与TGPImage转换

官方Delphi 学习QQ群： 682628230（三千人）

频道

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;

推荐分享

图文皆来源于网络，内容仅做公益性分享，版权归原作者所有，如有侵权请告知删除！

执行时间: 0.052227020263672 seconds