Основные функции:
1 Создайте миниатюры для указанного изображения
2 массовые генерации всех миниатюр изображения в определенном каталоге
3 обеспечивает 5 режим определения размера миниатюры
4 в настоящее время поддерживает только формат .jpg
Бета -версия скачать: http://bjfile.focus.cn/file/15483/728_mjpg.rar
Основной код:
// Сохранить миниатюр JPEG
Процедура SavePic (SourceFilename, DescfilEname: String);
констант
Maxwidth = 200;
Maxhighth = 200;
вар
JPG: Tjpegimage;
BMP: TBITMAP;
SourceJpg: tjpegimage;
Ширина, высота, tmpint: целое число;
Начинать
пытаться
bmp: = tbitmap.create;
Sourcejpg: = tjpegimage.create;
Jpg: = tjpegimage.create;
// Читать исходный файл
SourceJpg.LoadFromFile (SourceFilename);
// Рассчитайте коэффициент снижения
Если Sourcejpg.width> = SourceJpg.height тогда
tmpint: = Round (SourceJpg.width Div Maxwidth)
еще
tmpint: = Round (SourceJpg.Height Div Maxhighth);
Ширина: = SourceJpg.width Div tmpint;
Высота: = SourceJpg.Height div tmpint;
//Сокращать
BMP.width: = ширина;
BMP.Height: = высота;
bmp.pixelformat: = pf24bit;
bmp.canvas.strechdraw (rect (0,0, ширина, высота), Sourcejpg);
//сохранять
JPG.Assign (BMP);
jpg.savetofile (descfilename);
Окончательно
bmp.free;
jpg.free;
SourceJpg.free;
конец;
конец;