COM Error Handling broke on Autoit v3.3.14.2

[Nomad_RJ]

Dear colleagues,

I´ve been using the COM extensions for a while in AutoIt v3.3.8.1 with success. My ErrFunc is exactly as the example in this page: https://www.autoitscript.com/autoit3/docs/intro/ComRef.htm , except that my script write the output to a log file instead of showing an error window.

I have compiled the exact same code with the two AutoIt versions to test. On v3.3.8.1 I have the following error output from ErrFunc in a particular situation: 
[COMerror;00000002;Not an Object type]

Compiling with v3.3.14.2 and running the same particular situation stated above, I have a crash with the message "The requested action with this object has failed".

I haven´t found any script breaking change related to this problem on the help file for the newest versions since 3.3.8. Anyone have any clue about this problem?

Thanks in advance!
Nomad_RJ

 

 

[mLipok]

Welcome to the forum.
Beetwen 3.3.8.1 and 3.3.14.2 in AutoIt internaly there was many changes in COM Objects behavior/handling.

Which kind of object you are using ?
Which UDF you are using ?
Can you show a script line which invokes this error ?

[Nomad_RJ]

Thanks mLipok!

Sure I can share a piece of the code with you. I´m using the Lotus Notes (8.5) COM to handle notes databases (NSF files), mainly mail databases, but Lotus Notes have many different types of databases, like names.nsf (personal address book), log files, applications, and much more, each one with a different structure. Thats why the COM error catching is so important to me: althought I´m working on email databases, I expect, from time to time, a different database being provided, even if I can´t process it, I just log the error and keep working.

Here is a sample of my code:

expandcollapse popup

Global $iEventError = 0 ; To be checked to know if COM error occurs. Must be reset after handling.
Global $oMyError = ObjEvent("AutoIt.Error", "ErrFunc") ; Install a custom error handler

$inifile = GUICtrlRead($clientpath)&"notes.ini"
IniWrite($inifile,"NOTES","KeyFilename",$userid)
$Session = ObjCreate("Lotus.NotesSession")      ;Starts a Notes Session in background
$pwd = FileReadLine($userpw, 1)
$Session.Initialize($pwd)
If $iEventError Then
    _SaveLog($LogFile, "Erro ao inicializar a sessão com o Lotus Notes ($Session.Initialize). Possível erro de senha do ID. " & @CRLF)
    $iEventError = 0 ; Reset after displaying a COM Error occurred
    Return 69
EndIf
$Maildb = $Session.GETDATABASE("", $file)
If $iEventError Then
    _SaveLog($LogFile, "Erro ao abrir o arquivo NSF ($Session.GETDATABASE). Arquivo corrompido ou com problemas na estrutura. "& @CRLF)
    $iEventError = 0 ; Reset after displaying a COM Error occurred
    Return 69
EndIf
$UserName = $Session.UserName   
$folder = $Maildb.GetView('$All')
If $iEventError Then
    _SaveLog($LogFile, "Erro ao abrir o arquivo NSF ($Session.GETVIEW). Arquivo corrompido ou com problemas na estrutura. "& @CRLF)
    $iEventError = 0 ; Reset after displaying a COM Error occurred
    Return 69
EndIf
$doc = $folder.GetFirstDocument()   ;==== HERE IS WHERE v3.3.8.1 CATCHES THE ERROR, BUT v3.3.14.2 CRASHES ====
If $iEventError Then
    _SaveLog($LogFile, "Erro ao abrir o arquivo NSF ($Session.GetFirstDoc). Arquivo corrompido ou com problemas na estrutura. "& @CRLF)
    $iEventError = 0 ; Reset after displaying a COM Error occurred
    Return 69
EndIf


Func ErrFunc() ;COM Error intercepted
   $sHexNumber = Hex($oMyError.number, 8)
   _SaveLog($LogFile, "[COMerror;" & $sHexNumber &";"& $oMyError.windescription &"]"&@CRLF)
   $iEventError = 1 ; Use to check when a COM Error occurs
EndFunc   ;==>ErrFunc

 

I know that "$doc = $folder.GetFirstDocument()" will not work on all structures, but I don´t want the script to crash when that happens.

Thanks for your help!

 

[mLipok]

What you get from: 

$oMyError.windescription
; and 
$oMyError.description

??

[Nomad_RJ]

When the script is compiled with v3.3.8.1: $oMyError.windescription = "Not an Object type"

When the script is compiled with v3.3.14.2: AutoIt closes with a message window "The requested action with this object has failed" (the ErrFunc don´t even is called)

[mLipok]

$folder = $Maildb.GetView('$All')
; change this following line
; If $iEventError Then

; to this:
If $iEventError or (NOT IsObj($folder)) Then

 

[mLipok]

10 minutes ago, Nomad_RJ said:

(the ErrFunc don´t even is called)

This is know bug in Au3.3.14.x (already reported to the TrackTicket).
EDIT: You can make a workaround (I show you in previous post how to do it), back to Au3.3.12.x or wait for new release or beta .

Edited April 14, 2016 by mLipok

[Nomad_RJ]

Good to know the bug is being tracked.

Nice strategy with IsObj()! That worked for me. Thanks for your time and attention!