+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم امثلة ومشاريع VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=188)
+--- الموضوع : [مشروع] شرح بالفيديو لطريقة البحث عن صورة من خلال صورة (/showthread.php?tid=30535)
شرح بالفيديو لطريقة البحث عن صورة من خلال صورة - ahmadpal - 27-07-19
بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاتة
اوجه بالتحية للاخ الكريم princelovelorn قمت باقتباس فكرته في البحث عن الصور وشرحها بالفيديو حتى تتضح الفكرة للجميع
رابط الموضوع الاصلي http://vb4arb.com/vb/showthread.php?tid=28650
فيديو لشرح مبدأ عمل الفكرة الخاصة بالبحث والسورس كود في المقال الاصلي وذلك لعدم تكرار رفع نفس المرفقات
RE: شرح بالفيديو لطريقة البحث عن صورة من خلال صورة - سعود - 27-07-19
بارك الله فيك وفي ما تقدم من معلومات لاخوانك .
بصراحة لاول مرة افهم هذه الطريقة (اقصد المقارنة بين صورتين)
وجهزت دالة بناءا على مافهمته من الشرح ووجدته يعمل فجزاك الله خير.
PHP كود :
Private Function ISsame(ByVal Image1 As String, ByVal Image2 As String) As Boolean
If IO.File.Exists(Image1) = False Or IO.File.Exists(Image2) = False Then MsgBox("لم يتم العثور على مسار كامل لصورة بالجهاز", MsgBoxStyle.Exclamation, "") : Exit Function
Dim b1() As Byte
Dim b2() As Byte
b1 = My.Computer.FileSystem.ReadAllBytes(Image1)
b2 = My.Computer.FileSystem.ReadAllBytes(Image2)
Dim Base1 As String = Convert.ToBase64String(b1)
Dim Base2 As String = Convert.ToBase64String(b2)
If Base1 = Base2 Then
Return True
Else
Return False
End If
End Function