ASPJPEG هو برنامج تجريبي تم إنتاجه بواسطة Persits، وتبلغ الفترة التجريبية 30 يومًا. يمكنك تنزيله من هنا: http://www.persits.com/aspjpeg.exe. رقم الإصدار الأخير هو 1.3
يعد ASPJPEG مكونًا قويًا جدًا لمعالجة الصور، ويمكنك استخدامه لإنشاء صور مصغرة للصور وإضافة علامات مائية إليها بسهولة. وفيما يلي مقدمة موجزة عن كيفية استخدامه:
تحتاج أولاً إلى تنفيذ ملف exe الذي تم تنزيله لتثبيت المكون
1. إنشاء صور مصغرة للصور
<% ///' إنشاء مثيل
خافت الحياة السياسية في فرنسا، المسار
تعيين Jpeg = Server.CreateObject(Persits.Jpeg)
///' موقع الصورة
المسار = Server.MapPath(الصور) & ////clock.jpg
///' يفتح
Jpeg.فتح المسار
///' اضبط حجم الصورة المصغرة (يتم ضبط النسبة على 50% هنا)
Jpeg.Width = Jpeg.OriginalWidth / 2
Jpeg.Height = Jpeg.OriginalHeight / 2
///' احفظ الصورة المصغرة في المجلد المحدد
Jpeg.Save Server.MapPath(images) & ////clock_small.jpg
///' مثيل تسجيل الخروج
تعيين Jpeg = لا شيء
%>
<IMG SRC=images/clock.jpg><P>
<IMG SRC=images/clock_small.jpg>
2. إضافة وظيفة العلامة المائية إلى الصور
<%
DimJpeg
///' إنشاء مثيل
تعيين Jpeg = Server.CreateObject(Persits.Jpeg)
///' افتح الصورة المستهدفة
Jpeg.Open Server.MapPath(images/dodge_viper.jpg)
///' إضافة علامة مائية نصية
Jpeg.Canvas.Font.Color = &HFF0000///' أحمر
Jpeg.Canvas.Font.Family = أسرة سونغ
Jpeg.Canvas.Font.Bold = صحيح
Jpeg.Canvas.Print 10، 10، حقوق النشر (c) Cnmaya.org
///' حفظ الملف
Jpeg.Save Server.MapPath(images/dodge_viper_framed.jpg)
///' إلغاء تسجيل الكائن
تعيين Jpeg = لا شيء
%>
لقد قمت بإنشاء علامة مائية للصورة في المرة الأخيرة، لكن التأثير كان سيئًا للغاية ولم أتمكن من جعل الصورة ذات خلفية شفافة. إذا استخدمت صورة GIF بخلفية شفافة، فسيتم ملؤها تلقائيًا باللون الأبيض. عند استخدام الوظيفة لإزالة لون معين، يكون لون الصورة دائمًا غير نقي ويكون التأثير الناتج متقطعًا. خطرت لي فكرة اليوم وقمت بدمج هذين الأمرين، باستخدام صورة GIF بخلفية شفافة واستخراج لون خلفية العلامة المائية، وقد نجحت!
ogvbox.Canvas.Pen.Color = &H000000 ///'// لون الحدود
ogvbox.Canvas.Pen.Width = 1 ///'// سمك الحد
ogvbox.Canvas.Brush.Solid = خطأ ///'// ما إذا كان سيتم ملء حدود الصورة بالألوان
ogvbox.DrawImage ogvbox.Width-210, ogvbox.Height-74, Logobox ,0.3,&HFFFFFF ///'// أضف إحداثيات موضع الصورة (أضف صورة علامة مائية)، أطرح حجم العلامة المائية من حجم الصورة، وأضف العلامة المائية إلى الزاوية اليمنى السفلى. ترتيب المعلمات هو: الإحداثيات الأفقية، الإحداثيات الرأسية، عنوان صورة العلامة المائية، الشفافية الزئبقية، لون الاستخراج (&H يعني سداسي عشري)
ogvbox.Canvas.Bar 0, 0, ogvbox.Width, ogvbox.Height ///'// إحداثيات الموضع وحجم خط حدود الصورة
ogvbox.Save Server.MapPath(imagename) ///'// إنشاء ملف
/'//------معاينة وإنشاء علامة مائية لمكون Pollener.comAspJpeg------البدء------
/'إنشاء صورة معاينة: استدعاء CreateView (المسار إلى الملف الأصلي، واسم ملف المعاينة والمسار)
عرض إنشاء فرعي (اسم الصورة، اسم الملف المؤقت)
/'تعريف المتغيرات.
خافت PreviewImageFolderName
خافت ogvbox،objFont
صندوق الشعارات الخافت، مسار الشعار
LogoPath = Server.MapPath(images) & //shuiyin.gif /'// أضف المسار واسم ملف الصورة (موقعي هو المنتدى //images//shuiyin.gif).
حدد تحميل الحالة_نوع العرض
الحالة 0
/'---------------------إنشاء صورة معاينة--------------
تعيين ogvbox = Server.CreateObject(CreatePreviewImage.cGvbox)
ogvbox.SetSavePreviewImagePath=Server.MapPath(tempFilename) /'معاينة مسار تخزين الصور.
ogvbox.SetPreviewImageSize =SetPreviewImageSize /'عرض المعاينة.
ogvbox.SetImageFile = Trim(Server.MapPath(imagename)) /'المسار الفعلي للملف الأصلي لاسم الصورة.
/'إنشاء ملف صورة المعاينة.
إذا كان ogvbox.DoImageProcess=false إذن
يُنشئ Response.write خطأ في صورة المعاينة:&ogvbox.GetErrString
نهاية إذا
الحالة 1
/'---------------------AspJpegV1.2---------------
تعيين Logobox = Server.CreateObject(Persits.Jpeg)
//'// يوصى بعدم استخدام العلامات المائية المصورة والنصية في نفس الوقت.
Logobox.Open LogoPath /'//اقرأ الصورة المضافة.
//'// إعادة ضبط حجم الصورة.
Logobox.Width = 186 ///قيمة العرض (بالبكسل) للصورة المستخدمة كعلامة مائية.
Logobox.Height = 52 ///قيمة الارتفاع (بالبكسل) للصورة المستخدمة كعلامة مائية.
//'// أضف علامة مائية.
تعيين ogvbox = Server.CreateObject(Persits.Jpeg)
//// اقرأ الملف الأصلي المراد معالجته.
ogvbox.Open Trim(Server.MapPath(imagename))
إذا كان ogvbox.OriginalWidth<Cint(ImageWidth) أو ogvbox.Originalheight<Cint(ImageHeight) ثم
F_اسم العرض=
تعيين ogvbox = لا شيء
الخروج من الباطن
آخر
IF ImageMode<> وFileExt<>gif ثم /'// إذا قمت بتغيير هذا السطر إلى IF ImageMode<>، فيمكنك أيضًا إضافة علامات مائية إلى صور GIF التي تم تحميلها، ولكن لن تظل صور GIF المتحركة هذه إلا بعد إضافة العلامة المائية هو الإطار الأول، يرجى التعامل معه وفقًا لاحتياجاتك.
////حول تغيير الخط ولون النص.
/'//ogvbox.Canvas.Font.Color = &H0000FF /'// لون نص العلامة المائية، أدخل قيمة اللون بعد &H.
/'//ogvbox.Canvas.Font.Size = 18 ///حجم نص العلامة المائية.
/'//ogvbox.Canvas.Font.Family = Arial /'//اسم خط نص العلامة المائية.
/'//ogvbox.Canvas.Font.ShadowColor = &H000000 ///لون ظل نص العلامة المائية.
/'//ogvbox.Canvas.Font.ShadowXoffset = 1 /'// قيمة البكسل لإزاحة ظل نص العلامة المائية إلى اليمين. إذا قمت بإدخال قيمة سالبة، فسيتم إزاحتها إلى اليسار.
/'//ogvbox.Canvas.Font.ShadowYoffset = 1 /'// قيمة البكسل التي يتم من خلالها إزاحة ظل نص العلامة المائية إلى الأسفل إذا قمت بإدخال قيمة سالبة، فسيتم إزاحتها إلى اليمين.
/'//ogvbox.Canvas.Font.Quality = 3 ////يتراوح وضوح نص العلامة المائية من 0 إلى 4. التغيير ليس كبيرًا جدًا، يوصى باستخدام 2 أو 3.
/'//ogvbox.Canvas.Font.Bold = True /'// سواء كان نص العلامة المائية غامقًا، True=bold False=normal.
/'ogvbox.Canvas.Print 10, 10, ImageMode /'//إحداثيات البداية (البكسل) لنص العلامة المائية.
ogvbox.Canvas.Pen.Color = &H000000 ///أضف علامة مائية إلى لون حدود الصورة.
ogvbox.Canvas.Pen.Width = 1 ///زيادة عرض حدود الصورة بعد وضع العلامة المائية.
ogvbox.Canvas.Brush.Solid = False /'// سواء كانت الحدود مملوءة بالألوان، يمكنك تجربتها لمعرفة التأثير عندما تكون القيمة True^o^
ogvbox.DrawImage ogvbox.width-186, ogvbox.height-52, Logobox, 0.5 //// إحداثيات البداية لصورة العلامة المائية هنا، ogvbox.width-186، ogvbox.height-52 تعني أن الصورة موجودة في. الزاوية اليمنى السفلية، لأن عرض صورتي هو 186 وارتفاعها 52، لذلك إذا كتبتها بهذه الطريقة، يمكنك تعديلها وفقًا لصورتك الخاصة. 0.5 يعني الشفافية، هنا أعني الشفافية، 1 يعني العتامة، يمكنك أيضًا تجربة 0.7 أو 0.8 لرؤية التأثير.
ogvbox.Canvas.Bar 0, 0, ogvbox.Width, ogvbox.Height /'//النطاق المتاح للعلامة المائية. ما أعنيه هنا هو أنه يمكن إضافة العلامة المائية في أي مكان من الزاوية اليسرى العليا إلى الزاوية اليمنى السفلية للصورة بأكملها.
ogvbox.Save Server.MapPath(imagename) /'// أنشئ ملف الصورة مع إضافة علامة مائية بناءً على المعلمات المذكورة أعلاه.
نهاية إذا
ogvbox.Width = ImageWidth
ogvbox.height = ImageHeight
/'ogvbox.height = ogvbox.Originalheight*ImageWidth//ogvbox.OriginalWidth
ogvbox.شحذ 1، 120
ogvbox.Save Server.MapPath(tempFilename) /'// قم بإنشاء صورة معاينة للصورة بعد إضافة العلامة المائية.
نهاية إذا
تعيين Logobox = لا شيء
/'//------معاينة وإنشاء علامة مائية لمكون Pollener.comAspJpeg------النهاية------