Handle COM error ?

[Bot]

local $oHTML = ObjCreate("HTMLFILE")
$oHTML.Open()
$oHTML.Write($sHTML)
return $oHTML.body.innerText

This COM will convert the $sHTML from HTML code to pure TXT. If the input is HTML then it will work, but if not then it will go wrong :

==> Variable must be of type "Object".: 
return $oHTML.body.innerText 
return $oHTML.body^ ERROR

So how can I determine whether the COM is error or not ?

[DaleHohm]

See ObjEvent

$oMyError = ObjEvent("AutoIt.Error","MyErrFunc")

Dale

[Bot]

$oHTML = ObjCreate("HTMLFILE")
$oMyError = ObjEvent("AutoIt.Error","MyErrFunc")

Func _Html2Text($sHTML)
    $oHTML.Open()
    $oHTML.Write($sHTML)
    return $oHTML.body.innerText
EndFunc

Func MyErrFunc()
  Msgbox(0,"AutoItCOM Test","We intercepted a COM Error !" & @CRLF & @CRLF & _
         "err.description is: " & @TAB & $oMyError.description  & @CRLF & _
         "err.windescription:" & @TAB & $oMyError.windescription & @CRLF & _
         "err.number is: " & @TAB & hex($oMyError.number,8)  & @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 _
    )
    Local $err = $oMyError.number
    If $err = 0 Then $err = -1
    SetError($err)
Endfunc

Msgbox (0,@error,"")
Msgbox (4096,_Html2Text("<a></a>"),"")

I tried this but the @error is always = 0 even when the error message box is appear or not. Can you fix this for me please ?

[DaleHohm]

You're trying to display the error before it happens... just change where you placed the MsgBox

$oHTML = ObjCreate("HTMLFILE")

$oMyError = ObjEvent("AutoIt.Error","MyErrFunc")

Msgbox (4096,_Html2Text("<a></a>"),"")

Msgbox (0,@error,"")

Dale

[Bot]

$oHTML = ObjCreate("HTMLFILE")
$oMyError = ObjEvent("AutoIt.Error","MyErrFunc")

Msgbox (0,@error,"")
Msgbox (4096,_Html2Text("<a></a>"),"")

Func _Html2Text($sHTML)
    $oHTML.Open()
    $oHTML.Write($sHTML)
    return $oHTML.body.innerText
EndFunc

Func MyErrFunc()
  Msgbox(0,"AutoItCOM Test","We intercepted a COM Error !" & @CRLF & @CRLF & _
         "err.description is: " & @TAB & $oMyError.description  & @CRLF & _
         "err.windescription:" & @TAB & $oMyError.windescription & @CRLF & _
         "err.number is: " & @TAB & hex($oMyError.number,8)  & @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 _
    )
    Local $err = $oMyError.number
    If $err = 0 Then $err = -1
    SetError($err)
Endfunc

I have changed to it but the @error is still = 0. Can you give me another chance please ?

[DaleHohm]

It wasn't for me... it was 169 (although you put @error in the title bar of the messagebox instead of in the display area, so perhaps that confused you?)

Dale

[Bot]

Func MyErrFunc()
  Msgbox(0,"AutoItCOM Test","We intercepted a COM Error !" & @CRLF & @CRLF & _
         "err.description is: " & @TAB & $oMyError.description  & @CRLF & _
         "err.windescription:" & @TAB & $oMyError.windescription & @CRLF & _
         "err.number is: " & @TAB & hex($oMyError.number,8)  & @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 _
    )
    Local $err = $oMyError.number
    If $err = 0 Then $err = -1
    SetError($err)
Endfunc

Msgbox (0,"",@error)

I think I must place the error message box after the function, then it will be 169 like you . Thank you very much for your help.