Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
OCR from VFP
Message
De
17/10/2007 08:20:02
 
 
À
17/10/2007 05:11:30
Information générale
Forum:
Visual FoxPro
Catégorie:
COM/DCOM et OLE Automation
Titre:
Versions des environnements
Visual FoxPro:
VFP 9 SP1
Divers
Thread ID:
01261241
Message ID:
01261446
Vues:
20
I got mine from MSDN
I think it's on the Office disk of the office SDK, can't remember

Peter


>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
Peter Cortiel
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform