如何用 GDI+ 高质量地缩放图片 - 回复 "程序牛" 的问题
如何用 GDI+ 高质量地缩放图片 - 回复 "程序牛" 的问题
涂孟超 发表于3年前
如何用 GDI+ 高质量地缩放图片 - 回复 "程序牛" 的问题
  • 发表于 3年前
  • 阅读 5
  • 收藏 0
  • 点赞 0
  • 评论 0

腾讯云 技术升级10大核心产品年终让利>>>   


问题来源: http://www.cnblogs.com/del/archive/2010/01/07/1641084.html#1742127

程序使用了 GDI+ 的新接口: http://www.cnblogs.com/del/archive/2009/12/11/1621790.html

uses GdiPlus;

procedure TForm1.Button1Click(Sender: TObject);
const
  Path1 = 'C:\Temp\Test.png';
  Path2 = 'C:\Temp\Test2.png';
var
  Img1,Img2: IGPImage;
  Graphics: IGPGraphics;
begin
  { 打开原图片 }
  Img1 := TGPImage.Create(Path1);

  { 建一个新图片, 假如是缩小一倍 }
  Img2 := TGPBitmap.Create(Img1.Width div 2, Img1.Height div 2, PixelFormat32bppARGB);

  { 获取新图片的绘图表面 }
  Graphics := TGPGraphics.Create(Img2);

  { 设置缩放质量为最高质量 }
  Graphics.InterpolationMode := InterpolationModeHighQualityBicubic;

  { 画过来 }
  Graphics.DrawImage(Img1, 0, 0, Img2.Width, Img2.Height, 0, 0, Img1.Width, Img1.Height, UnitPixel);

  { 保存 }
  Img2.Save(Path2, TGPImageFormat.Png);
end;

 
 
 
 
 

 

 

  
共有 人打赏支持
粉丝 13
博文 2004
码字总数 14107
×
涂孟超
如果觉得我的文章对您有用,请随意打赏。您的支持将鼓励我继续创作!
* 金额(元)
¥1 ¥5 ¥10 ¥20 其他金额
打赏人
留言
* 支付类型
微信扫码支付
打赏金额:
已支付成功
打赏金额: