delphi JPG/JPEG 图片缩放函数

本文整理自网络，侵删。

 
function ChangeJpegSize(FileName,FileName2: string; W, H: Integer): Boolean;
var
jpg: TJPEGImage;
bmp: TBitmap;
begin
Result := False;
jpg := TJPEGImage.Create;
try
    jpg.LoadFromFile(FileName);
    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(FileName2);
      Result := True;
    finally
      bmp.Free;
    end;
finally
    jpg.Free;
end;
end;
 

相关阅读 >>

Delphi webbrowser获取页面全部链接

Delphi trimright 删除字符串右边的空格

Delphi让文本框接受文件拖放

Delphi webbrowser的关于流载入流保存和流生成

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

Delphi 语言字符集

Delphi 给gmail发送邮件

Delphi指针的定义和取值

Delphi webbrowser设置自己定义user-agent

devexpress vcl 动态调用皮肤

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

转载请注明出处：木庄网络博客 » delphi JPG/JPEG 图片缩放函数