Delphi implementa código de desarrollo de herramientas de generación de miniatura por lotes

Funciones principales:

1 Generar miniaturas para la imagen especificada

2 generación masiva de todas las miniaturas de imágenes en un determinado directorio

3 proporciona 5 modo de definición de tamaño de miniatura

4 Actualmente solo admite el formato .jpg

Descargar la versión beta: http://bjfile.focus.cn/file/15483/728_mjpg.rar

Código central:

// Guardar la miniatura de JPEG

Procedimiento SavePic (SourceFileName, DescFileName: String);

estúpido

Maxwidth = 200;

MaxHigth = 200;

varilla

JPG: TJPegimage;

BMP: TBITMAP;

SourceJpg: tjpegimage;

Ancho, altura, tmpint: entero;

Comenzar

intentar

bmp: = tbitmap.create;

SourceJpg: = tjpegimage.create;

Jpg: = tjpegimage.create;

// Lee el archivo fuente

SourceJpg.LoadFromFile (SourceFileName);

// Calcular la relación de reducción

Si SourceJpg.Width> = SourceJpg.Height entonces

TMPINT: = Round (SourceJpg.Width Div MaxWidth)

demás

tmpint: = redonde (fuentejpg.Height div maxhigth);

Ancho: = SourceJpg.Width div tmpint;

Altura: = SourceJpg.Height div tmpint;

//Encoger

bmp.width: = ancho;

bmp.Height: = altura;

bmp.pixeflaMat: = pf24bit;

bmp.canvas.stretchdraw (rect (0,0, ancho, altura), fuentejpg);

//ahorrar

JPG.Assign (BMP);

JPG.Savetofile (DescFileName);

Finalmente

BMP.Free;

JPG.Free;

FuenteJPG.Free;

fin;

fin;