下面，图老师小编带您去了解一下delphi实现批量缩略图生成工具开发代码，生活就是不断的发现新事物，get新技能~
【 tulaoshi.com - 编程语言 】
主要功能：
（本文来源于图老师网站，更多请访问https://www.tulaoshi.com/bianchengyuyan/） 1 生成指定图片的缩略图
2 批量生成某一目录内所有图片缩略图
3 提供5中缩略图尺寸定义模式
4 目前只支持.jpg格式
测试版下载：http://bjfile.focus.cn/file/15483/728_MJpg.rar
核心代码：
//保存JPEG的缩略图
procedure SavePic(SourceFileName,DescFileName: String);
const
MaxWidth = 200 ;
MaxHigth = 200 ;
var
jpg: TJPEGImage;
bmp: TBitmap;
SourceJpg: TJPEGImage;
Width, Height,tmpInt: Integer;
begin
try
bmp := TBitmap.Create;
SourceJpg := TJPEGImage.Create;
Jpg:= TJPEGImage.Create;
//读取源文件
SourceJpg.LoadFromFile(SourceFileName);
//计算缩小比例
if SourceJpg.Width = SourceJpg.Height then
tmpInt := Round(SourceJpg.Width div MaxWidth)
else
tmpInt := Round(SourceJpg.Height div MaxHigth) ;
Width := SourceJpg.Width div tmpInt ;
Height := SourceJpg.Height div tmpInt ;
//缩小
bmp.Width := Width;
bmp.Height := Height;
bmp.PixelFormat := pf24bit;
bmp.Canvas.StretchDraw(Rect(0,0,Width,Height), SourceJpg);
//保存
jpg.Assign(bmp);
jpg.SaveToFile(DescFileName);
finally
bmp.Free;
jpg.Free;
SourceJpg.Free;
end;
end;
来源:https://www.tulaoshi.com/n/20160219/1611919.html
看过《delphi实现批量缩略图生成工具开发代码》的人还看了以下文章 更多>>
