هل تعرف كيفية استخدام ADODB.Stream لإنشاء رموز التحقق من الألوان؟ اليوم ، يوضح محرر قناة Foxin Technology طريقة التشغيل لك في مثال. آمل أن يكون ذلك مفيدًا لك من يتعلم هذه المعرفة.
نسخة الكود كما يلي:استجابة. buffer = صحيح
NumCode
وظيفة numcode ()
استجابة. expires = -1
Response.addheader "pragma" ، "عدم وجود آثار"
استجابة.
قاتمة Znum ، أنا ، ي
قاتمة ADOS ، ADOS1
توقيت عشوائي
توليد أرقام عشوائية من أربعة أرقام:
Znum = cint (8999*rnd+1000)
مرور إلى الجلسة
جلسة ("getCode") = Znum
هذا من أجل حلقة هو وضع أرقام عشوائية في صفيف مع Subcript 3 ، وهو مريح لتوفير تحول الصفيف اللاحق
Dim Zimg (3) ، nstr
NSTR = CSTR (Znum)
لأني = 0 إلى 3
zimg (i) = cint (mid (nstr ، i+1،1))
التالي
باهت نقاط البيع
حدد كائنين ثنائيين ADODB.Stream لتشغيل بيانات الصورة:
تعيين ADOS = server.createBject ("Adodb.stream")
Ados.Mode = 3
Ados.Type = 1
Ados.Open
تعيين ADOS1 = server.createBject ("Adodb.stream")
ADOS1.MODE = 3
ados1.type = 1
ADOS1.OPEN
"تحميل 0 ~ 9 البيانات الرقمية 10x100 ، بيانات صفيف GBR ، كل 320 بايت ، 10 أرقام 3200 بايت
'BGR نقطة واحدة ، 10 × 10 نقاط رقم واحد ، نقطة واحدة ثلاثة بايت (8 بت في ثنائي ، 00 ~ ff في سداسي عشري)
"صف مكون من 10 نقاط 30 بايت + نهاية خط السطر 00 00 2 بايت 32 بايت ، وبالتالي فإن صورة 10x100 مع عرض أصغر من طول كل رقم 10x10 هي 320 بايت
إذا كان الطول أكبر من العرض ، فلن يكون هناك علامة نهائية للخط 0000 ، مباشرة 300 بايت
هذه هي تفاصيل بيانات BMP 24bit
"أما بالنسبة للرأس ، فهو أيضًا بسيط للغاية ، بما في ذلك الطول والعرض ، وبدء تشغيل الصورة ، إلخ
ados.loadfromfile (server.mappath ("body.fix"))
ados1.write ados.read (1280)
'الأول في حلقة يستخرج أربعة أرقام المقابلة من الصفيف الرقمي 10x100 بترتيب الأرقام العشوائية التي تم إنشاؤها
لكن مجموعة الأرقام الرأسية
لأني = 0 إلى 3
ados.position = (9-Zimg (i))*320
ados1.position = i*320
ADOS1.Write ADOS.Read (320)
التالي
قم بمسح بيانات ADOS المستخدمة واتصل في ملف الرأس الذي يحل محل رأس الصورة الجديد 54 بايت
ados.loadfromfile (server.mappath ("head.fix"))
pos = lenb (ados.read ())
ados.position = pos 'حدد موضع نقاط البيع ، ويمكنك تعويض الموضع بمقدار 54 بايت لإضافة بيانات رسومية
الثاني للحلقة يؤدي تحويل المصفوفة للأرقام ، وتحويل الكتل الرأسية إلى كتل أفقية
تتمثل الطريقة في استخراج 4 مرات من 320 بايت والكتابة إلى كائن ADOS ، ثم استخراج بيانات الصورة التي يتم تعويضها من السطر الثاني.
30 بايت لأن عرض BMP أكبر من طويل بدون علامة نهاية الخط 00 00
لأني = 0 إلى 9 الخطوة 1
ل j = 0 إلى 3
ados1.position = i*32+j*320
ados.position = pos+30*j+i*120
ados.write ados1.read (30)
التالي
التالي
ados.position = 0
استجابة.
استجابة. contenttype = "Image/BMP"
استجابة.
ados.close: تعيين ados = لا شيء
ADOS1.Close: تعيين ADOS1 = لا شيء
وظيفة نهاية
المقالة أعلاه هي محرر قناة Error New Technology التي تم تجميعها بواسطة ADODB.Stream لإنشاء رموز التحقق من الألوان. أعتقد أن الجميع تعلموا طرق التشغيل هذه. ستستمر شبكة القناة التكنولوجية الجديدة في تنظيم الخبرة التقنية لك. أتمنى أن تستمر في الانتباه إلينا!