Delphi mengimplementasikan kode pengembangan alat pembuatan thumbnail batch

Fungsi utama:

1 menghasilkan thumbnail untuk gambar yang ditentukan

2 Generasi Massal dari Semua Thumbnail Gambar di Direktori Tertentu

3 menyediakan 5 mode definisi ukuran thumbnail

4 saat ini hanya mendukung format .jpg

Unduh Versi Beta: http://bjfile.focus.cn/file/15483/728_mjpg.rar

Kode inti:

// simpan thumbnail jpeg

Prosedur SavePIC (SourceFileName, DescFileName: String);

const

MaxWidth = 200;

MaxHigth = 200;

var

jpg: tjpegimage;

BMP: tbitmap;

SourceJPG: tjpegimage;

Lebar, Tinggi, Tmpint: Integer;

Mulai

mencoba

BMP: = tbitmap.create;

SourceJPG: = tjpegimage.create;

Jpg: = tjpegimage.create;

// Baca file sumbernya

SourceJPG.LoadFromFile (SourceFileName);

// Hitung rasio reduksi

Jika SourceJPG.Width> = SourceJpg.height

tmpint: = bundar (sourceJpg.width div maxwidth)

kalau tidak

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

Lebar: = SourceJpg.Width Div Tmpint;

Tinggi: = SourceJpg.Height Div Tmpint;

//Menyusut

bmp.width: = lebar;

bmp.height: = tinggi;

bmp.pixelformat: = pf24bit;

bmp.canvas.stretchdraw (rect (0,0, lebar, tinggi), sumberjpg);

//menyimpan

jpg.assign (BMP);

jpg.savetofile (descfilename);

Akhirnya

BMP.Free;

jpg.free;

SourceJPG.Free;

akhir;

akhir;