تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مشكلة في توليد arabic qr code
#1
عمل برنامج لتويد qr code barcode     ولكن المشكلة انه لايدعم اللغة العربية 
مرفق البرنامج
برجاء المساعدة


الملفات المرفقة
.rar   qr code.rar (الحجم : 1.01 م ب / التحميلات : 182)
الرد
تم الشكر بواسطة: ابو ليلى , zinom , zinom
#2
السلام عليكم


لدعم الأحرف العربية مع المكتبة MessagingToolkit.QRCode يجب استخدام الترميز System.Text.Encoding.UTF8

لتحويل النص إلى تشفير QR يكون الكود كالتالي
كود :
Dim code As String = Me.TextBox1.Text
Dim enc As New QRCodeEncoder()
enc.QRCodeVersion = 0
Me.PictureBox1.Image = enc.Encode(code, System.Text.Encoding.UTF8)

ولتحويل ملف صورة QR إلى نص يكون الكود كالتالي
كود :
Dim dec As New QRCodeDecoder()
Dim img As QRCodeImage = New QRCodeBitmapImage(Image.FromFile("img.png"))
Dim code As String = dec.decode(img, System.Text.Encoding.UTF8)
Me.TextBox1.Text = code

تم إضافة المكتبة في المرفقات لمن يحتاجها


الملفات المرفقة
.rar   MessagingToolkit.QRCode.rar (الحجم : 845.51 ك ب / التحميلات : 227)
الرد
#3
جزاكم الله كل خير تم التجربة ويعمل بشكل جيدا
تسلم ايديك

السلام عليكم
يوجد مشكبة اخري
لا يفبل اكبر من 61 حرف عربى
اية الحل
شكرا
الرد
تم الشكر بواسطة:
#4
تم حل المشكلة والحمد لله
لازم نغير
QRCodeVersion=0
ويشتغل مع اي عدد من الحروف
الرد
تم الشكر بواسطة:
#5
السلام عليكم

جزاكم الله خير أخي الكريم على المتابعة والتوضيح والإفادة

تم إضافة ما تفضلتم به من المعلومة في كود مشاركتي السابقة لتعم الفائدة لمن يقوم بالنسخ ولم يقرأ كامل الموضوع.
الرد
تم الشكر بواسطة:
#6
السلام عليكم
موضوع رائع جدا ولكن هل من طريقة لتوليد الكود في تقارير RDLC مباشرة
وشكرا
الرد
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم