Error logging

[Jewtus]

I have two event handlers

$oMyError = ObjEvent("AutoIt.Error","MyErrFunc")
$oLogError = ObjEvent("AutoIt.Error","MyLogFunc")
$logFile = @ScriptDir & "\Log.txt"


Func MyLogFunc()
  $HexNumber=hex($oLogError.number,8)
  FileWrite($logFile,"_______------- Error @"& @MON & "/" & @MDAY & "/" & @YEAR & @TAB & @HOUR & ":" & @MIN & ":" & @SEC &"-------_______"       & @CRLF & _
             "err.description is: "    & @TAB & $oMyError.description    & @CRLF & _
             "err.windescription:"     & @TAB & $oMyError.windescription & @CRLF & _
             "err.number is: "         & @TAB & $HexNumber              & @CRLF & _
             "err.lastdllerror is: "   & @TAB & $oMyError.lastdllerror   & @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(0)  ; to check for after this function returns
Endfunc


Func MyErrFunc()
  $HexNumber=hex($oMyError.number,8)
  MsgBox(0,"","_______------- Error -------_______"       & @CRLF & _
             "err.description is: "    & @TAB & $oMyError.description    & @CRLF & _
             "err.windescription:"     & @TAB & $oMyError.windescription & @CRLF & _
             "err.number is: "         & @TAB & $HexNumber              & @CRLF & _
             "err.lastdllerror is: "   & @TAB & $oMyError.lastdllerror   & @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(0)  ; to check for after this function returns
Endfunc

and the thing that I cannot figure out is why I get no pop up message boxes, but I get the following over and over again in my log file:

 

_______------- Error @09/30/2014 08:21:41-------_______

err.description is:

err.windescription:

err.number is: 80020009

err.lastdllerror is:

err.scriptline is:

err.source is:

err.helpfile is: 

 

When I look it up, I find that that specific error is caused by an ODBC connection that I have.

Why would I not get a msg box but it does write to the file?

Edited September 30, 2014 by Jewtus

[Bert]

you code does not show you creating a message box.

[MikahS]

I'm sorry if my understanding is off, but there are no MsgBox's in your script and you are only writing to a file..

[Jos]

You are defining 2 ObjEvent() definitions for the same object which I guess isn't possible and only the last is performed.

I'm sorry if my understanding is off, but there are no MsgBox's in your script and you are only writing to a file..

Scroll down in the codebox.

Jos

[MikahS]

You are defining 2 ObjEvent() definitions for the same object which I guess isn't possible and only the last is performed.

Scroll down in the codebox.

Jos

Got it

One was a MsgBox the other was just a FileWrite, which is why he was only getting FileWrites because it was only getting in an error in MyLogFunc().

Edited September 30, 2014 by MikahS

[water]

Taken from this page in the help file:

"A note for UDF writers

You can have as many COM Error Event Handlers. The last registered and alive object is the one that gets called."

[Jewtus]

Taken from this page in the help file:

"A note for UDF writers

You can have as many COM Error Event Handlers. The last registered and alive object is the one that gets called."

That explains it! Thanks.