تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
السلام عليكم اخواني حبيت اضيف لكم موضوع جديد وهو تحويل النصوص الموجوده بالصور الى نص
#1
السلام عليكم اخواني حبيت اضيف لكم موضوع جديد وهو تحويل النصوص الموجوده بالصور الى نص وتوصلت الى الكود و الاداة عن طريق فديو بس ماظبط معي ..... ارفقت لكم المشروع الحين بس لما ينفذ بعلق فياريت واحد من الاعضاء يساعدنا لي كي نكمل الموضوع  وهذا رابط الفديو والكود والمشروع

https://www.youtube.com/watch?v=Kjdu8SjEtG0

Code:
Imports Emgu.CV
Imports Emgu.Util
Imports Emgu.CV.OCR
Imports Emgu.CV.Structure

Public Class Form1

Dim OCRz As Tesseract = New Tesseract("tessdata", "eng", Tesseract.OcrEngineMode.OEM_TESSERACT_ON­LY)
Dim pic As Bitmap = New Bitmap(270, 100)
Dim gfx As Graphics = Graphics.FromImage(pic)

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

'If Windows XP
gfx.CopyFromScreen(New Point(Me.Location.X + PictureBox1.Location.X + 4, Me.Location.Y + PictureBox1.Location.Y + 30), New Point(0, 0), pic.Size)
PictureBox1.Image = pic

'If Windows 7
'gfx.CopyFromScreen(MousePositi­on, New Point(0, 0), pic.Size)

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

OCRz.Recognize(New Image(Of Bgr, Byte)(pic))
RichTextBox1.Text = OCRz.GetText

End Sub
End Class


فقط نبحث عن الاداه ..... يرجى مشاهدة الفديو على اليوتيوب لكي تكتكمل الفكرة وشكراااا....

وهذا رابط الاداة
http://www.dlldown.co/E/2013/0508/Emgu_U...R93nvnF_1S


الملفات المرفقة صورة/صور
   

.rar   VB.rar (الحجم : 2.4 م ب / التحميلات : 39)
الرد }}}}
تم الشكر بواسطة:
#2
للاسف شاهد اكثر من موضوع بخصوص هذه الاداء ولا اعلم ما سبب عدم العمل فيها

المشكلة في ملفات dll والله اعلم
لحمد لله رب العالمين على كل شي
الرد }}}}
تم الشكر بواسطة:
#3


بالتوفيق


الملفات المرفقة
.zip   fixed.zip (الحجم : 2.83 م ب / التحميلات : 65)
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 رَبِّ اغْفِرْ لِي وَلِوَالِدَيَّ
Heart
الرد }}}}
تم الشكر بواسطة: adminbb , khodor1985
#4
مشكور يا ابو عمر وحسن على المرور ..ابو عمر الملف الي انت حملته موجودة عليه نفس الاخطاء وظهرت مع بعد التنفيذ


الملفات المرفقة صورة/صور
   
الرد }}}}
تم الشكر بواسطة:
#5
العفو
لا يوجد خطأ الخطأ في مكان الاستخدام
الاداة لا تقرأ الخط الابيض مع الظل وحتى نوع الخط
ليش ما جربت على ملف ثاني PDF مثلا

ساعدتك في التعديل على المف اللي انت وضعته كمرفق وطلبت المساعدة فيه.
وكان اجتهاد والخطأ في الاجتهاد وارد إلا هنا
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 رَبِّ اغْفِرْ لِي وَلِوَالِدَيَّ
Heart
الرد }}}}
تم الشكر بواسطة:
#6
لا الله حتى نفس شرحك ما نفذ معي مادريت المشكلة من ايش على العموم الله يعطيك العافية انا كنت حابب من الاخوه بالمنتدى تساعدنا بالشرح من خلال رابط اليويتيوب هذا ومع الكود هذا لانو الكود مرة صغير وشراح اكثر من رائع والاداه تعمل حتى على ال desktop ياريت من اخواني تراجع الفديو التالي و الكود التالي : ويعطيكم الف عافية و شكر .


https://www.youtube.com/watch?v=Kjdu8SjEtG0

Code:
Imports Emgu.CV
Imports Emgu.Util
Imports Emgu.CV.OCR
Imports Emgu.CV.Structure

Public Class Form1

Dim OCRz As Tesseract = New Tesseract("tessdata", "eng", Tesseract.OcrEngineMode.OEM_TESSERACT_ON­LY)
Dim pic As Bitmap = New Bitmap(270, 100)
Dim gfx As Graphics = Graphics.FromImage(pic)

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

'If Windows XP
gfx.CopyFromScreen(New Point(Me.Location.X + PictureBox1.Location.X + 4, Me.Location.Y + PictureBox1.Location.Y + 30), New Point(0, 0), pic.Size)
PictureBox1.Image = pic

'If Windows 7
'gfx.CopyFromScreen(MousePositi­on, New Point(0, 0), pic.Size)

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

OCRz.Recognize(New Image(Of Bgr, Byte)(pic))
RichTextBox1.Text = OCRz.GetText

End Sub
End Class
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Video [VB.NET] كيف يمكنني عند حدث اضافة تاب جديد نسخ جميع ما فى التاب بالاوامر elhon.tec 1 60 09-12-16, 03:36 AM
آخر رد: elhon.tec
Star [VB.NET] السلام عليكم اخوتي ف المنتدى احتاج الي مساعدة انا اصمم منظومة لشؤون العاملين بعد اض fatma anari 2 106 04-12-16, 11:04 AM
آخر رد: أبوبكر سويدان
  ماهو كود انقاص كميه المباعه من الكميه الموجوده معتز الجازوي 1 59 22-11-16, 09:16 PM
آخر رد: السرور
  اضافة الاصناف جديد بشرط %Eman% 5 238 09-11-16, 01:39 PM
آخر رد: walkady
Star [VB.NET] واجهتني مشاكل فى التنزيل من اليوتيوب حبيت اعملها بطريقة تانية لكنها لم تنجح بشكل كامل elhon.tec 0 45 07-11-16, 01:41 AM
آخر رد: elhon.tec
  كيف يمكن الذهاب لصف جديد فى الداتا جريد فيو walkady 0 69 06-11-16, 11:31 PM
آخر رد: walkady
  ممكن مساعدة اخواني في Inherits ابراهيم كركوكي 2 74 03-11-16, 09:19 PM
آخر رد: ابراهيم كركوكي
  اسف تم عمل 2 موضوع بالخطاء ارجو اذالة هذه الموضوع Mohamed20 0 59 02-11-16, 11:47 PM
آخر رد: Mohamed20
  كيف اضيف هذا الكود في module nabil.1710 6 133 01-11-16, 03:23 PM
آخر رد: silverlight
  [VB.NET] تحويل التاريخ لسلسلة نصية tifagreet 1 93 01-11-16, 01:28 PM
آخر رد: ممدوح

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


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