OCR

[Gintaras]

Code:

Copy      Help

str img="$desktop$\clipboard.tif" ;;this is an image containing text

typelib MODI {A5EDEDF4-2BBC-45F3-822B-E60C278A1A79} 11.0
MODI.Document doc._create

doc.Create(img.expandpath)
doc.OCR(MODI.miLANG_ENGLISH -1 0)

MODI.Image im=doc.Images.Item(0)
str s=im.Layout.Text

out s ;;and this is the text


MS Office must be installed. Don't know what is the minimal version. I have Office 2003.