Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
OCR from VFP
Message
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:
01262229
Views:
16
Hi Mike

Thanks! As always you are right on the money!
It works great - on XP
I does not work for me on my brand new Dell Precision M90 with Vista Ultimate and 4GB of memory!!

it creates the object alright but when assigning the image it give a ole error. It seems to think the tif file is corrupted
The same files work fine on the inspiron 1705 with XP -sp2

Any ideas?

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
Next
Reply
Map
View

Click here to load this message in the networking platform