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