Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
OCR from VFP
Message
From
17/10/2007 08:16:13
 
 
To
17/10/2007 07:39:20
General information
Forum:
Visual FoxPro
Category:
COM/DCOM and OLE Automation
Title:
Environment versions
Visual FoxPro:
VFP 9 SP1
Miscellaneous
Thread ID:
01261241
Message ID:
01261445
Views:
15
Hi, I'm running MS Office 2007 but the CREATEOBJECT() line says object not found. Must I install it from CD perhaps?

>You need at least Microsoft Office 2003. Document imaging had no available object model prior to that.
>
>>Peter, pmfji, but where do you get the MS Document Imaging controls? i.e.'MODI.Document'
>>
>>
>>>THANKS ALOT!!
>>>
>>>Peter
>>>>Here is an example using Microsoft Document Imaging
>>>>
>>>>
Local miDoc,miLayout,lcStr
>>>>lcStr=''
>>>>CREATE CURSOR mydocument (mydococr m)
>>>>miDoc = Createobject('MODI.Document')
>>>>miDoc.Create( "C:\untitled.tif")
>>>>miDoc.Images(0).OCR
>>>>miLayout = miDoc.Images(0).Layout
>>>>strLayoutInfo ="Language: " + Transform(miLayout.Language )+Chr(13)+Chr(10)
>>>>strLayoutInfo=strLayoutInfo+"Number of characters: " + Transform(miLayout.NumChars)+Chr(13)+Chr(10)
>>>>strLayoutInfo=strLayoutInfo+"Number of fonts: "+ Transform(miLayout.NumFonts )+Chr(13)+Chr(10)
>>>>strLayoutInfo=strLayoutInfo+"Number of words: " + Transform(miLayout.NumWords)+Chr(13)+Chr(10)+Chr(13)+Chr(10)
>>>>strLayoutinfo = strLayoutinfo+miLayout.text
>>>>INSERT INTO mydocument (mydococr) VALUES (strLayoutinfo)
>>>>MODIFY MEMO mydocument.mydococr
>>>>
>>>>
>>>>
>>>>
>>>>>VFP SP2
>>>>>
>>>>>
>>>>>I need to ocr EXISTING .TIF FILES.
>>>>>Has anyone done this? Is there some free stuff which can be called from VFP?
>>>>>
>>>>>Peter
In the End, we will remember not the words of our enemies, but the silence of our friends - Martin Luther King, Jr.
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform