[AhmedSuror]

تحية طيبة

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

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

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

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

خالص التحيات