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;

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;