منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[مشروع] طلب مساعدة في QR reader - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة السي شارب C#.NET (http://vb4arb.com/vb/forumdisplay.php?fid=175)
+--- قسم : قسم اسئلة C#.NET (http://vb4arb.com/vb/forumdisplay.php?fid=176)
+--- الموضوع : [مشروع] طلب مساعدة في QR reader (/showthread.php?tid=34158)

طلب مساعدة في QR reader - thabit - 04-04-20

السلام عليكم ورحمة الله وبركاته

الاخوة المبرمجين الاعزاء
وجدت مشروع في اي المواقع وهو توليد وقراءة ال QR reader
لكن المشكلة عند توليد باركود جديد لاي منتج او لاي اسم مكتوب باللغة العربية 
يتولد له باركود 
لكن عند القراءة لا تتم العملية بنجاح
بمعنى مشكلة في قراءة ال QR
اي انها لا تدعم اللغة العربية 
نرجو ممن لديه المعرفة معالجة المشروع 
ولكم جزيل الشكر وحفظكم الله وبارك بكم


RE: طلب مساعدة في QR reader - AhmedSuror - 04-04-20

تحية طيبة

تم تعديل المشروع كالتالى:

1- حذف مكتبة "BarcodeLib.BarcodeReader.dll".
2- حذف مكتبة "MessagingToolkit.QRCode.dll".

3- اضافة المكتبات التالية (غير مجانية):
- Neodynamic.SDK.Barcode.dll -- للـ Encoding.
- PQScan.BarcodeScanner.dll  -- للـ Decoding

4- باستخدام مكتبة الـ Encoding والتى تستخدم لتوليد رموز QR فتم تعديل الجزء الأول من البرنامج الخاص بالتوليد وحل مشكلة اللغة العربية عن طريق تحديد نوع الترميز UTF-8 للسماح بتولبيد رموز QR التى تدعم اللغة العربية كالتالى:

كود :
Try
           'The UTF-8 string to be encoded
           Dim Str As String = TextBox1.Text

           Using bc As New BarcodeProfessional()
               'QR Code settings
               bc.Symbology = Symbology.QRCode
               bc.QRCodeByteEncodingName = "utf-8"

               bc.Code = Str

               PictureBox1.Image = bc.Image

           End Using


           'OLD Original code: --------------------------------------------
           'PictureBox1.Image = QR_Generator.Encode(TextBox1.Text) '
           '---------------------------------------------------------------
       Catch ex As Exception
           MsgBox(ex.Message)
       End Try

5- باستخدام مكتبة الـ Decoding والتى تستخدم لقراءة رموز QR من صور او من الكاميرا كما هى بالبرنامج عن طريق استخدام الكود التالى لقراءة النصوص من رموز QR بدعم يونيكود:

كود :
Dim results() As BarcodeResult = BarCodeScanner.Scan(img)


           If results IsNot Nothing Then
               For Each result In results
                   ListBox1.Items.Add(result.Data)
               Next
           End If



المكتبتين تجريبيتين وغير مجانيتين .. قد توجد حلول مجانية ولكن لم يتسع الوقت للتجربة.

تم اعادة رفع المشروع بالتعديلات الجديدة

خالص التحيات

RE: طلب مساعدة في QR reader - thabit - 05-04-20

جزيت خيرا اخي احمد
وفقك الله وبارك فيك وجعلها في ميزان حياتك
الان تمت تجربة الكود والحمد لله شغال باستثناء بعض الامور البسيطة
سوف احاول معالجتها
اما بخصوص المكتبات التجريبية
سوف ابحث عنها في النت عسى ولعل ان اجدها كإصدار غير تجريبي
اكرر شكري وامتناني لك اخي ..

RE: طلب مساعدة في QR reader - AhmedSuror - 05-04-20

تحياتى اخى ثابت
اى استفسار لا تترد
المناقشة دائما ما تجلب النفع لكل الأطراف
دمت بود