السلام عليكم ورحمة الله وبركاته
الاخوة المبرمجين الاعزاء
وجدت مشروع في اي المواقع وهو توليد وقراءة ال QR reader
لكن المشكلة عند توليد باركود جديد لاي منتج او لاي اسم مكتوب باللغة العربية
يتولد له باركود
لكن عند القراءة لا تتم العملية بنجاح
بمعنى مشكلة في قراءة ال QR
اي انها لا تدعم اللغة العربية
نرجو ممن لديه المعرفة معالجة المشروع
ولكم جزيل الشكر وحفظكم الله وبارك بكم
تحية طيبة
تم تعديل المشروع كالتالى:
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
المكتبتين تجريبيتين وغير مجانيتين .. قد توجد حلول مجانية ولكن لم يتسع الوقت للتجربة.
تم اعادة رفع المشروع بالتعديلات الجديدة
خالص التحيات
جزيت خيرا اخي احمد
وفقك الله وبارك فيك وجعلها في ميزان حياتك
الان تمت تجربة الكود والحمد لله شغال باستثناء بعض الامور البسيطة
سوف احاول معالجتها
اما بخصوص المكتبات التجريبية
سوف ابحث عنها في النت عسى ولعل ان اجدها كإصدار غير تجريبي
اكرر شكري وامتناني لك اخي ..
تحياتى اخى ثابت
اى استفسار لا تترد
المناقشة دائما ما تجلب النفع لكل الأطراف
دمت بود