Delphi GDI+基本用法总结


本文整理自网络,侵删。

 
GDI+以前只是听说过,还没怎么用过,这段时间用了用,觉得挺好用的.在这里总结一下.留个备忘. 
GDI+(Graphics Device Interface plus)是Windows XP中的一个子系统,它主要负责在显示屏幕和打印设备输出有关信息,它是一组通过C++类实现的应用程序编程接口。由于它是图形绘制相关的接口,那先了解一下常用的几种图片格式.

常见的图片格式

常见的图片格式有JPEG, BMP, PNG. 
- JPEG:它用有损压缩方式去除冗余的图像或彩色数据, 获取得极高的压缩率的同时展现了十分丰富生动的图像.应用最为广泛.引用JPEG单元, 通TJPEGimage类进行读取. 
- BMP:它是bitmap(位图)的简称, 它是window操作系统中标准图像文件格式,能够被多种window应用程序支持,特点在于包含的图像信息丰富,几乎不进行压缩, 但是因为这个,它占用的空间比较大.Delphi里TImage里需要的格式就是BMP.引用Graphics单元, 通过TBitmap进行读取. 
- PNG: 它是新兴的网络图像格式, 是目前最不失真的格式, 相对于除BMP格式外.需要提到的它支持透明图像的制作.这样就可以实现在图像上加水印的功能.引用pngImage单元, 通过TPNGImage类可以加载PNG图像.

不同图片格式的转换

PNG转换成Bitmap

var
  oBitMap: TBitMap;
  oPNG: TPNGImage;
begin
  strFileName := '1.png';
  oBitMap := TBitMap.Create;
  oPNG := TPNGImage.Create;
  try
    oPng.LoadFromFile(strFileName);
    oBitMap.Width := 100;
    oBitMap.Height := 200;
    oBitMap.Canvas.Draw(0, 0, oPng);
  finally
    oBitMap.Free;
    oPng.Free;
  end;

BMP转换成IStream

  oBitMap := TBitMap.Create;
  try
    oBitmap.loadFromFile('1.bmp');
    oStream := TMemoryStream.Create;
    try
      oBitmap.SaveToStream(oStream);
      oStream.Position := 0;
      oStreamAdapter := TStreamAdapter.Create(oStream);
      // do something
    finally
      oStream.free;
      oStreamAdapter := nil; //需要注意,不能直接Free, 是接口,带有引用计数
    end;
  finally
    oBitmap.free;
  end;

GDI+的基本用法

引用GDIPOBJ, GDIPAPI这两个单元, 需要在开始之前需要调用调用初始化方法, 主要是加载dll及初始化相关的方法. 
基本用法如下:

  oImage1 := TGPImage.Create('Photo_1.jpg');
  oImage2 := TGPImage.Create('Photo_2.jpg');
  oImage3 := TGPImage.Create('Photo_3.jpg');
  oImage4 := TGPImage.Create('Photo_4.jpg');
  g1 := TGPGraphics.Create(image1.Canvas.Handle);
  g1.DrawImage(oImage1, 0, 0, oImage1.GetWidth, oImage1.GetHeight);
  g1.DrawImage(oImage2, oImage1.GetWidth, 0, oImage2.GetWidth, oImage2.GetHeight);
  g1.DrawImage(oImage3, 0, oImage1.GetHeight, oImage3.GetWidth, oImage3.GetHeight);
  g1.DrawImage(oImage4, oImage1.GetWidth, oImage1.GetHeight, oImage4.GetWidth, oImage4.GetHeight);

上面的代码相当于是把四幅图画在一幅图上.其它的一些用法参考TGPGraphics相关接口.

相关阅读 >>

手动创建和部署一个classes.dex 查看更多关于 classes.dex 的文章 文件

Delphi savelog 方便的记录日志

Delphi getprocessidentity 获取当前登录状态的管理员

Delphi 显示选择文件夹对话框 (有新建按钮)

Delphi 本地数据库备份与还原(Delphi)

Delphi 6句代码实现Delphi动态调用api函数

Delphi入门语法

Delphi richedit1 设置字体

Delphi使用ixmlhttprequest 简单获取网页源代码

Delphi 替换其他程序里面的函数为自己的函数

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...