首页 相关文章 delphi实现批量缩略图生成工具开发代码

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

  主要功能:

  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;<...[ 查看全文 ]

2016-02-19 标签:

delphi实现批量缩略图生成工具开发代码的相关文章

手机页面
收藏网站 回到头部