修改图片尺寸的DELPHI源代码

作者 admin

2013年4月20日 1 分钟阅读

继续整理以前用过的一些源代码，这个功能函数可以按指定的长和宽来放大或缩小原图片。但大家在使用过程中要注意长宽比例。

function ChangeJpegSize(inFileName, outFileName: string; W, H: Integer): Boolean;
var
  jpg: TJPEGImage;
  bmp: TBitmap;
begin
  Result := False;
  jpg := TJPEGImage.Create;
  try
    jpg.LoadFromFile(inFileName);
    bmp := TBitmap.Create;
    bmp.Width := W;
    bmp.Height := H;
    bmp.Canvas.StretchDraw(Rect(0, 0, bmp.Width, bmp.Height), jpg);
    jpg.Assign(bmp);
    try
      jpg.SaveToFile(outFileName);
      Result := True;
    finally
      bmp.Free;
    end;
  finally
    jpg.Free;
  end;
end;

function ChangeJpegSize(inFileName, outFileName: string; W, H: Integer): Boolean;

var

jpg: TJPEGImage;

bmp: TBitmap;

begin

Result := False;

jpg := TJPEGImage.Create;

try

jpg.LoadFromFile(inFileName);

bmp := TBitmap.Create;

bmp.Width := W;

bmp.Height := H;

bmp.Canvas.StretchDraw(Rect(0, 0, bmp.Width, bmp.Height), jpg);

jpg.Assign(bmp);

try

jpg.SaveToFile(outFileName);

Result := True;

finally

bmp.Free;

end;

finally

jpg.Free;

end;

admin

关注我

其他文章

上一个

戴旭确认：美国有组织借刀杀人猎杀中国鹰派

下一个

开始老去的70后

暂无评论！成为第一个。

发表回复取消回复

这个站点使用 Akismet 来减少垃圾评论。了解你的评论数据如何被处理。