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 中使用dialog api

Delphi从内存流中判断图片格式

Delphi查找同一内网所有主机

Delphi通过窗口标题结束指定进程函数

Delphi比较两个位图是否相同

Delphi tokyo 版本 twebbrowser 的一个问题（bug？）

Delphi 使用twebbrowser组件保存网页为html和mht文件

Delphi之木马生成原理（资源文件，和文件流的应用）

Delphi 获得父目录�c指定级父目录

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

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