Funções principais:
1 Gere miniaturas para a imagem especificada
2 geração em massa de todas as miniaturas de imagem em um determinado diretório
3 fornece 5 modo de definição de tamanho de miniatura
4 atualmente suporta apenas formato .jpg
Versão beta Download: http://bjfile.focus.cn/file/15483/728_mjpg.rar
Código central:
// Salve a miniatura do JPEG
Procedimento Savepic (SourceFilename, descascilename: string);
const
Maxwidth = 200;
Maxhigth = 200;
var
JPG: TJPEGIMAGE;
BMP: TBBITMAP;
Fontejpg: tjpegImage;
Largura, altura, tmpint: inteiro;
Começar
tentar
BMP: = tbitmap.create;
Fontejpg: = tjpegimage.create;
Jpg: = tjpegimage.create;
// Leia o arquivo de origem
Sourcejpg.loadfromfile (sourcefilename);
// Calcule a taxa de redução
se fontejpg.width> = fontejpg.Height então
tmpint: = redond (fontejpg.width div maxwidth)
outro
tmpint: = redond (fontejpg.Height div maxhigth);
Largura: = fontejpg.width div tmpint;
Altura: = fontejpg.Height div tmpint;
//Encolher
bmp.width: = width;
bmp.Height: = altura;
bmp.pixelformat: = pf24bit;
bmp.canvas.stretchDraw (ret (0,0, largura, altura), fontejpg);
//salvar
jpg.assign (BMP);
jpg.savetofile (descfilename);
Finalmente
bmp.free;
jpg.free;
Fontejpg.free;
fim;
fim;