الوظائف الرئيسية:
1 إنشاء صورة مصغرة للصورة المحددة
2 جيل كبير من جميع الصور المصغرة في دليل معين
3 يوفر 5 وضع تعريف حجم الصورة المصغرة
4 حاليا يدعم تنسيق .jpg فقط
نسخة تجريبية تنزيل: http://bjfile.focus.cn/file/15483/728_mjpg.rar
الكود الأساسي:
// حفظ الصورة المصغرة من JPEG
الإجراء Savepic (SourceFilename ، descfilename: string) ؛
كونست
maxwidth = 200 ؛
maxhigth = 200 ؛
var
JPG: tjpegimage ؛
BMP: tbitmap ؛
SourceJPG: tjpegimage ؛
العرض ، الطول ، tmpint: عدد صحيح ؛
يبدأ
يحاول
BMP: = tbitmap.create ؛
SourceJPG: = tjpegimage.create ؛
jpg: = tjpegimage.create ؛
// اقرأ الملف المصدر
SourceJPG.LoadFromFile (SourceFilename) ؛
// حساب نسبة التخفيض
إذا كان SourceJPG.WIDTH> = SourceJPG.HEIGH
tmpint: = جولة (SourceJPG.Width Div MaxWidth)
آخر
tmpint: = round (sourceJpg.height div maxhigth) ؛
العرض: = sourcejpg.width div tmpint ؛
الارتفاع: = sourceJpg.Height Div tmpint ؛
// يتقلص
BMP.WIDTH: = العرض ؛
BMP.HEIGHT: = الارتفاع ؛
bmp.pixelformat: = pf24bit ؛
BMP.Canvas.StretchDraw (Rect (0،0 ، العرض ، الارتفاع) ، SourceJPG) ؛
//يحفظ
jpg.assign (BMP) ؛
jpg.savetofile (descfilename) ؛
أخيراً
BMP.Free ؛
JPG.Free ؛
SourceJPG.Free ؛
نهاية؛
نهاية؛