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