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