Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
OCR from VFP
Message
From
17/10/2007 08:20:02
 
 
To
17/10/2007 05:11:30
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:
01261446
Views:
18
I got mine from MSDN
I think it's on the Office disk of the office SDK, can't remember

Peter


>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
Peter Cortiel
Previous
Reply
Map
View

Click here to load this message in the networking platform