delphi实现批量缩略图生成工具开发代码

最新推荐文章于 2021-05-31 22:04:49 发布

原创最新推荐文章于 2021-05-31 22:04:49 发布 · 1.2k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#delphi #工具 #div #integer #string #测试

Delphi 专栏收录该内容

1 篇文章

订阅专栏

该博客介绍了一款图片缩略图生成工具，其主要功能包括生成指定图片缩略图、批量生成目录内图片缩略图，提供5种缩略图尺寸定义模式，目前仅支持.jpg格式。还给出了保存JPEG缩略图的核心代码，并提供了测试版下载链接。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

主要功能：

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;