Object Event

[oleg]

Hi im trying to create an error handling for unrar ocx object for some reason i always fail

There is two events RarFileChange and Progression for some reason i cant get them trigger a function and get operation progress or file processed

Here is description of ocx control

Subs : - Lister(Fichier as String) : Lists all the files in the archive.

- Decompress(Fichier As String, Rep As String, Optional Password As String) : Extracts all the files of the archive !

Events :- RarFileChange(FichierEnCours as RarFile) : Pops up each time another file is processed in the archive.

- Progression(pourcent as integer) : Pops up each time the operation's progression changes.

Parameters : - Fichier : File to process with complete path and extension !

- Rep : Folder to decompress the archive in. (Created if necessary)

- Password : need explanations ?

- FichierEnCours : File being processed within the archive.

- pourcent : Percentage of the operation's completion.

RarFile properties : - NomArchive : Name of the archive (file name with complete path)

- NomFichier : File being processed with complete path

- Flags : File flags

- TailleCompressee : File size compressed

- TailleDecompressee : File size uncompressed

- CRCFichier : File's CRC

[cdkid]

Well, I don't know if this will help you a whole lot, but try something like this

$objErr = ObjEvent("AutoIt.Error","MyErrFunc")
Func MyErrFunc()

$hexnum=hex($objErr.number,8)

Msgbox(0,"","We intercepted a COM Error!!"      & @CRLF                & @CRLF & _
             "err.description is: " & $objErr.description   & @CRLF & _
             "err.windescription is: " & $objErr.windescription & @CRLF & _
             "err.lastdllerror is: "   & $objErr.lastdllerror   & @CRLF & _
             "err.scriptline is: "   & $objErr.scriptline    & @CRLF & _
             "err.number is: "       & $hexnum               & @CRLF & _
             "err.source is: "       & $objErr.source        & @CRLF & _
             "err.helpfile is: "       & $objErr.helpfile      & @CRLF & _
             "err.helpcontext is: " & $objErr.helpcontext _
            )
exit
EndFunc

~cdkid

[oleg]

Well this handles com errors but i need to handle this specific ocx Events ( Progression,RarFileChange) i need to catch them so i can update progress or see what file is being processed My head is going to blow

[oleg]

Anyone ?

[cdkid]

This may or may not work (I'm not a COM wizard)

$events = ObjEvent($YourComObjectVariable,"MyErrFunc_")
Func MyErrFunc_RarFileChange($var)

MsgBox(0,'','The RAR File changed to ' & $var)
EndFunc

~cdkid