السلام عليكم ورحمة الله وبركاته
سنتعرف اليوم على أداة تستخرج الكتابة من الصورة و هذه الأداة تسمى بـ Microsoft Office Document Imaging أو اختصاراً MODI وتأتي هذه الأداة على شكل ملف dll اسمه MDIVWCTL.DLL وهذا الملف يأتي حصرياً مع Office 2003 ولايوجد حتى في Office XP
فلنفرض أننا نريد استخراج النص الموجود في الصورة C:\picture.bmp
ملاحظة: أعتقد أن هذه الأداة لا تعمل إلا على الصور ذات اللاحقة bmp
أولاً : نضيف مرجع من قائمة Project اختر Add Reference ثم نضيف الأداة
ثانياً : ألصق الشيفرة التالية في زر مثلاً :
Dim miDoc As MODI.Document
Dim miLayout As MODI.Layout
Dim strLayoutInfo As String
' Load an existing TIFF file.
miDoc = New MODI.Document()
miDoc.Create("C:\picture.bmp")
' Perform OCR.
miDoc.Images(0).OCR(9)
' Retrieve and summarize the OCR results.
miLayout = miDoc.Images(0).Layout
strLayoutInfo = _
"Language: " & miLayout.Language & vbCrLf & _
"Number of characters: " & miLayout.NumChars & vbCrLf & _
"Number of fonts: " & miLayout.NumFonts & vbCrLf & _
"Number of words: " & miLayout.NumWords & vbCrLf & _
"First word of text: " & miLayout.Words(0).Text
MsgBox(strLayoutInfo, vbInformation + vbOKOnly, _
"Layout Information")
miLayout = Nothing
miDoc = Nothing
والمرفق هو ملف الـ dll السابق ذكره من أجل الأخوة الذين لا يملكون Office 2003
بقي علي أن أقول كلمة لمن أراد الأستزادة عن هذه الأداة أنه في موقع http://www.codeproject.com
يوجد مقالات عن هذه الأداة ابحث مستخدماً الأسم MODI أو اسم الأداة وستجد إن شاء الله .
هدية العدد :
كيف ترسل SMS
http://www.emant.com/681002.page
كيف تميز الصوت وتعطي أوامر صوتية لجهازك
http://www.emant.com/676008.page
بالإضافة إلى أشياء جميلة في الموقع
والسلام عليكم ورحمة الله وبركاته