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 代替pos的函数

Delphi xe 无法编译apk提示sdk路径问题时？sdk路径配置方法

检测是否按下键盘或鼠标，如果超过5分钟没有操作则认为用户已经离开

Delphi打印各类文档

Delphi研究之驱动开发篇（一）--实现原理

Delphi中httpencode使用注意事项

Delphi 切换开关 toggleswitch1

Delphi fmx 获取系统版本 android ios通用

Delphi combobox1dropdown 生成动态下拉列表

Delphi 生成二维码图形

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

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