Database Search

TechHome

• Textract Activex Sample

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

Textract Active X Sample

;Setup the Active X control first
;To install TxtrCtl, using regsvr32, use the following command line: regsvr32 TxtrOCX.DLL.
;To uninstall TxtrCtl, using regsvr32, use the following command line: regsvr32 /u TxtrOCX.DLL

;Change to your textract directory
DirChange("d:\test")
;Look for the default Textract INI file
If !FileExist("Textract.INI ") Then
   Message("Please ReInstall","Textract.INI Not Found - Exiting")
   Exit
End If

;Find the window of the program you are looking for
If WinExist("~Program Dictionary") == @TRUE Then
  winid1 = WinIdGet("~Program Dictionary")
Else
  Message("","Can't Find the Proper Screen")
  Exit
End If

;Open the object Text
Txtr = ObjectCreate("TxtrCtl.TxtrCtl")
rc = Txtr.Init
;look and see if the pattern file has been made
If !FileExist("Textract.PAT") Then  ;Pattern File
   rc = Txtr.Build(0)   ;builds the database without prompt
   ;rc = Txtr.Build(1)   ;prompts to build the database
End If

;send some keys to the application to get to a particular screen
;SendKeysTo(winid1,"^AF")  ;

;Activate your window
WinActivate (winid1)
pos = WinPlaceGet(@NORMAL,winid1)
;get the coordinates of your window
ax = ItemExtract(1,pos," ")
ay = ItemExtract(2,pos," ")
cx = ItemExtract(3,pos," ")
cy = ItemExtract(4,pos," ")

;Read your screen
rc = Txtr.ReadScreen(ax,ay,cx,cy)
;Get the text
Output = Txtr.Text

Txtr = 0

;Display your results
Message("ok",Output)
Exit

Article ID:   W16075

File Created: 2009:06:25:09:41:58

Last Updated: 2009:06:25:09:41:58