Delphi implémente le code de développement des outils de génération de miniatures par lots

Fonctions principales:

1 générer des miniatures pour l'image spécifiée

2 Génération en vrac de toutes les miniatures d'image dans un certain répertoire

3 Fournit le mode de définition de la taille de la fourchette

4 ne prend actuellement en charge que le format .jpg

Téléchargement de la version bêta: http://bjfile.focus.cn/file/15483/728_mjpg.rar

Code de base:

// Enregistrez la vignette de JPEG

Procédure SavePic (sourceFileName, descFileName: String);

const

MaxWidth = 200;

Maxhigth = 200;

var

JPG: TJPEGIMAGE;

BMP: tbitmap;

SourceJPG: TJPEGIMAGE;

Largeur, hauteur, tmpint: entier;

Commencer

essayer

bmp: = tbitmap.create;

Sourcejpg: = tjpegimage.create;

Jpg: = tjpegimage.create;

// Lire le fichier source

Sourcejpg.loadFromFile (sourceFileName);

// Calculez le rapport de réduction

Si sourcejpg.width> = sourcejpg.height alors

tmpint: = Round (sourcejpg.width div maxwidth)

autre

tmpint: = round (sourcejpg.height div maxhigth);

Largeur: = sourcejpg.width div tmpint;

Hauteur: = sourcejpg.height div tmpint;

//Rétrécir

bmp.width: = largeur;

bmp.height: = hauteur;

bmp.pixelformat: = pf24bit;

BMP.Canvas.StRetchDraw (RECT (0,0, largeur, hauteur), sourcejpg);

//sauvegarder

jpg.assign (bmp);

JPG.SAVETOFILE (DescFilename);

Enfin

bmp.free;

jpg.free;

Sourcejpg.free;

fin;

fin;