Local miDoc,miLayout,lcStr >>lcStr='' >>CREATE CURSOR mondocument (mondococr 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 mondocument (mondococr) VALUES (strLayoutinfo) >>MODIFY MEMO mondocument.mondococr>