مقارنه الصور

والله حرام ولا رد ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

لو كنت عايز تعمل مقارنة سريعة دون العثور على الأختلافات ورسمها في أداة بيكتشر بوكس بس تريد أظهار رسالة تقول لك أن الصور متشابهة أم لا فعليك بهذا الكود البسيط

أولا تقوم بأعلان متغيرين من نوع String

Dim FrstPic , ScndPic as String

هذين المتغيرين سيستقبلان محتوى الصورتين

بعد ذلك تفتح الصور Binary هكذا

Open "Picture1.jpg" For Binary as #1
FrstPic=Space(Lof(1))
Get #1, ,FrstPic
Close #1

و هكذا نكون قد وضعنا محتوى الصورة الأولى داخل المتغير FrstPic و نستعمل نفس الطريقة مع الصورة الثانية

Open "Picture2.jpg" For Binary as #1
ScndPic =Space(Lof(1))
Get #1, ,ScndPic
Close #1

اذا الآن لم يبقى لنا الا مقارنة المحتوى بكل بساطة عن طريق الكود التالي :

If FrstPic=ScndPic Then
MsgBox "Woww !!! Is That The Same Picture !!!"
Else
MsgBox "No, They Are Different :("
End If

هذا كل شئ و طبعا لو أردت أن تعرف الأختلاف و أن ترسم هذا الأختلاف مثلا في أداة بيكتشر بوكس هناك طرق أخرى :rolleyes:

يالله في رعاية الله