إضافة وظيفة العلامة المائية إلى الصور وإنشاء صور مصغرة للصور 1. إضافة وظيفة العلامة المائية إلى الصور
خافت الحياة السياسية في فرنسا
Set Jpeg = Server.CreateObject(Persits.Jpeg) 'إنشاء كائن
Jpeg.Open BlogPath & /upload/ & FileName ' موقع الصورة
Jpeg.Canvas.Font.Color = &H000000 ' اللون، هنا تم ضبطه على: أسود
Jpeg.Canvas.Font.Family = أصبح خط المؤسس مبسطًا
Jpeg.Canvas.Font.Bold = False 'ما إذا كان سيتم تعيينه على الخط الغامق
Jpeg.Canvas.Font.Size = 26 'حجم الخط
Jpeg.Canvas.Font.Quality = 4 ' وضوح النص
Jpeg.Canvas.Print Jpeg.OriginalWidth/2-170,Jpeg.OriginalHeight-30, WWW.WILLIAMLONG.INFO 'نص العلامة المائية
Jpeg.Save BlogPath & /upload/ & FileName 'حفظ الملف
تعيين Jpeg = لا شيء
2. إنشاء صور مصغرة للصور
خافت الحياة السياسية في فرنسا
Set Jpeg = Server.CreateObject(Persits.Jpeg) 'إنشاء كائن
Jpeg.Open BlogPath & /upload/ & FileName ' موقع الصورة
Jpeg.Width = Jpeg.OriginalWidth / 2
Jpeg.Height = Jpeg.OriginalHeight / 2
'اضبط حجم الصورة المصغرة (هنا يتم ضبط النسبة على 50%)، ويمكنك أيضًا إعطائها قيمة دقيقة، مثل Jpeg.Width=120
Jpeg.Save BlogPath & /upload/ & FileName 'حفظ الملف
تعيين Jpeg = لا شيء