Как получить содержимое DrawGrid

[vcomp71]

В одной из автоматизируемых программ нужно получить содержимое элемента с графиками. При использовании AutoIt Windows info выяснил что класс объекта TDrawGrid. Сахранить, желательно в формат emf, на худой конец в bmp, но тогда как-то надо распознать текст там находящийся...
Если кто пытался уже выдергивать что-то из DrawGrid - подскажите путь дальнейших исканий.

 

[SECTOR]

Есть прога для распознания текста "ABBYY" но как сделать это с помощью AutoIt z не знаю!
Это наверно и не реально! :search: :sweating: ;)

 

[CreatoR]

Не знаю как на счёт ABBYY, но вот метод с использованием объекта «MODI.Document» (нужен office 2003)...

#include <Array.au3>
#include <ScreenCapture.au3>
;

Global Const $miLANG_CZECH = 5
Global Const $miLANG_DANISH = 6
Global Const $miLANG_DUTCH = 19
Global Const $miLANG_ENGLISH = 9
Global Const $miLANG_FINNISH = 11
Global Const $miLANG_FRENCH = 12
Global Const $miLANG_GERMAN = 7
Global Const $miLANG_GREEK = 8
Global Const $miLANG_HUNGARIAN = 14
Global Const $miLANG_ITALIAN = 16
Global Const $miLANG_JAPANESE = 17
Global Const $miLANG_KOREAN = 18
Global Const $miLANG_NORWEGIAN = 20
Global Const $miLANG_POLISH = 21
Global Const $miLANG_PORTUGUESE = 22
Global Const $miLANG_RUSSIAN = 25
Global Const $miLANG_SPANISH = 10
Global Const $miLANG_SWEDISH = 29
Global Const $miLANG_TURKISH = 31
Global Const $miLANG_CHINESE_SIMPLIFIED = 2052
Global Const $miLANG_CHINESE_TRADITIONAL = 1028

Global $oMyError = ObjEvent("AutoIt.Error","OCRErrFunc")

_ScreenCapture_Capture(@ScriptDir & "\OCR_Test_Img.jpg", 50, 60, 600, 600, False)

$aArray = _OCRGet(@ScriptDir & "\OCR_Test_Img.jpg", $miLANG_ENGLISH)

ConsoleWrite(@error)
_ArrayDisplay($aArray, "OCR Result")

For $i = 1 To UBound($aArray)-1
	ConsoleWrite($aArray[$i] & @CRLF)
Next

Func _OCRGet($sImageFile, $iLang=9)
	Local $aArray[1000], $oWord
	
	Local $oMODI_Doc = ObjCreate("MODI.Document")
	If Not IsObj($oMODI_Doc) Then Return SetError(1)
	
	$oMODI_Doc.Create($sImageFile)
	If @error Then Return SetError(2)
	
	$oMODI_Doc.Ocr($iLang, True, False)
	If @error Then Return SetError(3)
	
	For $oWord In $oMODI_Doc.Images(0).Layout.Words
		$aArray[0] += 1
		$aArray[$aArray[0]] = $oWord.Text
	Next
	
	ReDim $aArray[$aArray[0]+1]
	Return $aArray
EndFunc

;------------------------------ This is a COM Error handler -----------------------------
Func OCRErrFunc()
	Local $HexNumber = Hex($oMyError.Number, 8)
	
	Msgbox(0,"COM Error Test", "We intercepted a COM Error !" & @CRLF & @CRLF & _
		"err.description is: "    & @TAB & $oMyError.Description & @CRLF & _
		"err.windescription:"     & @TAB & $oMyError.WindDescription & @CRLF & _
		"err.number is: "         & @TAB & $HexNumber & @CRLF & _
		"err.lastdllerror is: "   & @TAB & $oMyError.LastDllRrror & @CRLF & _
		"err.scriptline is: "     & @TAB & $oMyError.ScriptLine & @CRLF & _
		"err.source is: "         & @TAB & $oMyError.Source & @CRLF & _
		"err.helpfile is: "       & @TAB & $oMyError.HelpFile & @CRLF & _
		"err.helpcontext is: "    & @TAB & $oMyError.HelpContext)
	
	SetError(1)  ; to check for after this function returns
Endfunc

 

[vcomp71]

А что приведенный фрагмент делает?

 

[kaster]

А что приведенный фрагмент делает?

Распознает текст в картинке, надо пологать

 

[vcomp71]

Просто у меня постоянно какие-то ошибки пишет, которые внизу скрипта перечислены, видимо, что-то не установлено... Ладно, надо разбираться..

 

[kaster]

Просто у меня постоянно какие-то ошибки пишет, которые внизу скрипта перечислены, видимо, что-то не установлено

Office 2003?

 

[vcomp71]

Просто у меня постоянно какие-то ошибки пишет, которые внизу скрипта перечислены, видимо, что-то не установлено

Office 2003?

И 2007 и 2003... Что-то там не так стоит, пока забросил... Времени нет...
Я так понял, эти функции картинку в растровом виде вытаскивают, а вот мне бы в векторном emf...