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;
 

相关阅读 >>

Delphi怎么实现一定范围内的随机数呢？

Delphi 精确打印image画布

Delphi 利用idhttp进行多线程下载

Delphi 替换指定字符串的函数

Delphi 获取windows系统网卡mac地址

incsecond：将一个tdatetime变量加减一定数量的秒数

Delphi有关asqlite控件支持中文路径的解决方案

Delphi2007-Delphi2010 程序不出现在任务栏的方法

Delphi winsoft comport for android usb

Delphi 正则表达式在每行开头插入行号

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » DELPHI 将TBitmap与TGPImage转换