Com Object Errors

[oleg 0]

Im trying out some Activex Zip objects and for most of them i have autoit crashing All operation is completed sucessfully by Object but when it finishes Autoit crashes ...Here is some code

$oMyError = ObjEvent("AutoIt.Error","MyErrFunc") ; Install a custom error handler

$objZip = ObjCreate("ChilkatZip2.ChilkatZip2")

$objZipEvent = ObjEvent($objZip,"Event")

if Isobj($objZip) Then

$objZip.UnlockComponent("AnythingWorksFor30DayTrial")

$objZip.OpenZip("c:\test.zip")

$objZip.Unzip("c:\")

Else

MsgBox(016,"Error","Unrar.Ocx Is Not Registered")

EndIf

Func Event()

ConsoleWrite($objZip.LastErrorText)

EndFunc

Func MyErrFunc()

$HexNumber=hex($oMyError.number,8)

Msgbox(0,"","We intercepted a COM Error !" & @CRLF & _

"Number is: " & $HexNumber & @CRLF & _

"Windescription is: " & $oMyError.windescription )

SetError(1) ; something to check for when this function returns

Endfunc

Autoit Crash oleaut32.dll lib.

Edited May 1, 2006 by oleg

[cdkid 1]

Well, I see one problem with your Event function... try actually reading the helpfile on ObjEvent.

[oleg 0]

Thanks Seems that i wasnt been handling events correctly I will try to figure it out

[oleg 0]

I modified the code but still its crashes .

Im able to have the interface return correctly but still

here is the code

$oMyError = ObjEvent("AutoIt.Error","MyErrFunc") ; Install a custom error handler

$objZip = ObjCreate("ChilkatZip2.ChilkatZip2")

$objZipEvent = ObjEvent($objZip,"Event_","_IChilkatZip2Events")

if Isobj($objZip) Then

;$objZip.EnableEvents = "true"

$objZip.UnlockComponent("AnythingWorksFor30DayTrial")

$objZip.OpenZip("c:\test.zip")

$objZip.Unzip("c:\")

Else

MsgBox(016,"Error","ChilkatZip Activex Is Not Registered")

EndIf

Func Event_UnzipPercentDone($val1,$val2)

ConsoleWrite($val1&@CRLF)

EndFunc

Func Event_UnzipBegin()

$objZip.NewZip

MsgBox(0,"","Finished")

EndFunc

Func MyErrFunc()

$HexNumber=hex($oMyError.number,8)

Msgbox(0,"","We intercepted a COM Error !" & @CRLF & _

"Number is: " & $HexNumber & @CRLF & _

"Windescription is: " & $oMyError.windescription )

SetError(1) ; something to check for when this function returns

Endfunc

What do you think ?