主要功能:
  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;<...[ 查看全文 ]