Delphi implementiert Batch Thumbnail Generation Tool Development Code

Hauptfunktionen:

1 Generieren Sie Miniaturansichten für das angegebene Bild

2 Massenerzeugung aller Bildminiantien in einem bestimmten Verzeichnis

3 Bietet 5 Miniaturgrößen -Definitionsmodus

4 unterstützt derzeit nur das .JPG -Format

Beta -Version herunterladen: http://bjfile.focus.cn/file/15483/728_mjpg.rar

Kerncode:

// Speichern Sie die Miniaturansicht von JPEG

Prozedur Savepic (SourceFileName, DescFileName: String);

Const

Maxwidth = 200;

MaxHigth = 200;

var

JPG: Tjpegimage;

BMP: tbitmap;

SourceJPG: tjpegimage;

Breite, Höhe, Tmpint: Ganzzahl;

Beginnen

versuchen

BMP: = tbitmap.create;

SourceJPG: = tjpegimage.create;

JPG: = tjpegimage.create;

// Lesen Sie die Quelldatei

SourceJPG.loadFromFile (SourceFileName);

// Berechnen Sie das Reduktionsverhältnis

Wenn SourceJPG.Width> = sourceJpg.Height dann

tmpint: = rund (SourceJpg.Width Div MaxWidth)

anders

tmpint: = rund (SourceJPG.Height div maxHigth);

Breite: = SourceJpg.Width Div tmpint;

Höhe: = SourceJPG.Height Div tmpint;

//Schrumpfen

BMP.WIDTH: = Breite;

Bmp.Height: = Höhe;

bmp.pixelformat: = pF24bit;

Bmp.Canvas.Trietchdraw (rect (0,0, Breite, Höhe), SourceJPG);

//speichern

JPG.SIGN (BMP);

JPG.Savetofile (DescFileName);

Endlich

bmp.free;

jpg.free;

SourceJPG.Free;

Ende;

Ende;