Custom Query

Hallo,

while writing some AutoIt scripts to automate one of our ERP-Applications, which includes an OLE / COM Interface with late bindung, I get some exceptional errors.

For some methods of the COM-Objects, the following error was reported: COM-Object error 80020003, Member not Found.

The same methods or rather the whole COM Interface works fine when using it with other programming languages like VBA, VBScript, C# VC++ etc. in the same environment (OS etc.) and the same manner (syntax etc.).

Therefor the software vendor says that his application (written in Delphi) and its COM-Interface (Type: late bindung) is in proper style and it must be an problem with AutoIt.

Here is an example:

Local $oHWP
Local $wert
Local $i

$oHWP = ObjCreate ("HWP.Anwendung")

if ($oHWP.Angemeldet = 0) Then         ; check if logged in -> works
    $oHWP.Anmelden ("USER","PASSWORD") ; login with credentials ->
                                       ; cause COM-Error 80020003 - 
                                       ; Member not found
endif

$wert = $oHWP.Version                  ; get version number -> works

$wert = $oHWP.Table("ADR").Anzahl      ; number of contacts -> works

$oHWP.Table("ADR").ErsterSatz          ; go to first record ->
                                       ; cause COM-Error 80020003 -
                                       ; Member not found"

For $i = 1 to $wert
    ; do something with current record,
    $oHWP.Table("ADR").NaechsterSatz   ; go to next record -> works
Next

$oHWP = 0

Exit

It's very strange that the statement "$oHWP.Table("ADR").NaechsterSatz" works fine while the statement "$oHWP.Table("ADR").ErsterSatz" causes an error although both works fine while using them in many other programming languages. Also an simple call of the method "$oHWP.Anmelden ("...")" causes an error 80020003 while it doesn't in VBA etc.

Is there a bug in AutoIt?

P.S.:

• All error codes are determined by standard error handling of AutoIt ($oMyError = ObjEvent("AutoIt.Error","MyErrFunc") etc.), which was omit for the reason of clarity of code.
• Using of COM methods (syntax etc.) in the example above is in accordance of the programming guidelines of the software vendor

With best regards, Frank

Hi,

we have tried using AutoIT to automate our applications and we are successful in doing so.

Only obstacle, we are facing now, is with Stingray controls.

Can this be kept in radar under request.

If it can be done, AutoIT will be the first Open Source tool to support Stingray.

Not sure about this, (child of child of child ... headache?) but when using WinMove() on a child Gui-window while using the Default keyword the result is kinda unexpected. The argument here is that with the use of the Default keyword it is implied that no changes are made to that aspect of the element. With Child-windows this is unfornately not the case.

#AutoIt3Wrapper_au3check_parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6

#include <Debug.au3>
Enum $_logwin_ = 1, $_console_, $_msgbox_, $_file_
_DebugSetup(Default, False, $_console_, 'DebugOut.log')
;~ _DebugOut('msg')
;~ _DebugReportVar('msg', 'var/data')

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <StructureConstants.au3>
#include <StaticConstants.au3>

_Main()

Func _Main()
	Local $hGUI, $h_cGUI
	Local $res

	$hGUI = GUICreate("Main Gui", 200, 200, 10, 10, BitOR($WS_MINIMIZEBOX, $WS_CAPTION, $WS_POPUP, $WS_SYSMENU, $WS_SIZEBOX))
	GUISetBkColor(0x88AABB)
	$res = WinGetPos($hGUI) ;; returns absolute (destop relative) coordinates.
	_DebugReportVar('[1] WinGetPos($hGUI)', $res) ;### Debug DebugOut.

	$h_cGUI = GUICreate("Child GUI", 100, 100, 10, 10, $WS_CHILD, -1, $hGUI)
	GUISetBkColor(0X006400)
	$res = WinGetPos($h_cGUI) ;; returns absolute (destop relative) coordinates.
	_DebugReportVar('[1] WinGetPos($h_cGUI)', $res) ;### Debug DebugOut.

	GUISetState(@SW_SHOW, $h_cGUI)
	GUISwitch($hGUI)
	GUICtrlCreateLabel('', 10, 10, 100, 100, $SS_WHITEFRAME)
	GUISetState(@SW_SHOW, $hGUI)

	Sleep(1000 * 0.5)

	$res = WinMove($h_cGUI, '', Default, Default) ;; moves to relative position inside parrent GUI, using absolute child-window coordinates.
	_DebugReportVar('[2] WinMove()', $res) ;### Debug DebugOut.

	$res = WinGetPos($h_cGUI)
	_DebugReportVar('[3] WinGetPos()', $res) ;### Debug DebugOut.

	Do ;; gui wait.
	Until GUIGetMsg() = $GUI_EVENT_CLOSE ;; Or Not WinActive($hGUI)

EndFunc