Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
OCR from VFP
Message
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:
01261415
Vues:
22
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
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform