com Component fail to create object

[subtlelonging]

I'm sure I've been registered com Component

Local $oMyError = ObjEvent("AutoIt.Error", "ErrFunc")

Local $obj = ObjCreate("lw.lwsoft3")

If Not IsObj($obj) Then
    ConsoleWrite('fail!' & @CRLF)       
EndIf

Func ErrFunc()
    $sHexNumber = Hex($oMyError.number, 8)
    MsgBox(0, "", "We intercepted a COM Error !" & @CRLF & _
            "Number is: " & $sHexNumber & @CRLF & _
            "WinDescription is: " & $oMyError.windescription)
    $iEventError = 1 ; Use to check when a COM Error occurs
EndFunc   ;==>ErrFunc

There is no problem in testing in VBS

set lw = createobject("lw.lwsoft3")
ver = lw.Ver()
If len(ver) = 0 Then
    MessageBox "fail!"
    EndScript
else
    MsgBox ver
end If

Testing in other languages can also be done

why autoitx fail to create object

lw.dll

[mLipok]

you are using 

Func ErrFunc()
    ......
EndFunc

in a wrong way.
This should look like:
 

Func ErrFunc(ByRef $oError)
    $sHexNumber = Hex($oError.number, 8)
    MsgBox(0, "", "We intercepted a COM Error !" & @CRLF & _
            "Number is: " & $sHexNumber & @CRLF & _
            "WinDescription is: " & $$oError.windescription)
    $iEventError = 1 ; Use to check when a COM Error occurs
EndFunc   ;==>ErrFunc

You should focus on how $oError is passed to and you should use this passed variable instead global variable created by ObjEvent

Here is example how to use this:

Global $oMyError = ObjEvent("AutoIt.Error", "ErrFunc")

_Example()
Func _Example()

    Local $obj = ObjCreate("lw.lwsoft3")
    If @error Then
        ConsoleWrite('fail!' & @CRLF)
    EndIf

EndFunc   ;==>_Example

Func ErrFunc($oError)
    ConsoleWrite(@ScriptName & " (" & $oError.scriptline & ") : ==> COM Error intercepted !" & @CRLF & _
            @TAB & "err.number is: " & @TAB & @TAB & "0x" & Hex($oError.number) & @CRLF & _
            @TAB & "err.windescription:" & @TAB & $oError.windescription & @CRLF & _
            @TAB & "err.description is: " & @TAB & $oError.description & @CRLF & _
            @TAB & "err.source is: " & @TAB & @TAB & $oError.source & @CRLF & _
            @TAB & "err.helpfile is: " & @TAB & $oError.helpfile & @CRLF & _
            @TAB & "err.helpcontext is: " & @TAB & $oError.helpcontext & @CRLF & _
            @TAB & "err.lastdllerror is: " & @TAB & $oError.lastdllerror & @CRLF & _
            @TAB & "err.scriptline is: " & @TAB & $oError.scriptline & @CRLF & _
            @TAB & "err.retcode is: " & @TAB & "0x" & Hex($oError.retcode) & @CRLF & @CRLF)
EndFunc   ;==>ErrFunc

btw.
Back to us with console output.

Edited June 15, 2018 by mLipok

[subtlelonging]

Thank you for your answer
err.windescription:No registration class

[subtlelonging]

18 minutes ago, mLipok said:

you are using 

Func ErrFunc()
    ......
EndFunc

in a wrong way.
This should look like:
 

Func ErrFunc(ByRef $oError)
    $sHexNumber = Hex($oError.number, 8)
    MsgBox(0, "", "We intercepted a COM Error !" & @CRLF & _
            "Number is: " & $sHexNumber & @CRLF & _
            "WinDescription is: " & $$oError.windescription)
    $iEventError = 1 ; Use to check when a COM Error occurs
EndFunc   ;==>ErrFunc

You should focus on how $oError is passed to and you should use this passed variable instead global variable created by ObjEvent

Here is example how to use this:

Global $oMyError = ObjEvent("AutoIt.Error", "ErrFunc")

_Example()
Func _Example()

    Local $obj = ObjCreate("lw.lwsoft3")
    If @error Then
        ConsoleWrite('fail!' & @CRLF)
    EndIf

EndFunc   ;==>_Example

Func ErrFunc($oError)
    ConsoleWrite(@ScriptName & " (" & $oError.scriptline & ") : ==> COM Error intercepted !" & @CRLF & _
            @TAB & "err.number is: " & @TAB & @TAB & "0x" & Hex($oError.number) & @CRLF & _
            @TAB & "err.windescription:" & @TAB & $oError.windescription & @CRLF & _
            @TAB & "err.description is: " & @TAB & $oError.description & @CRLF & _
            @TAB & "err.source is: " & @TAB & @TAB & $oError.source & @CRLF & _
            @TAB & "err.helpfile is: " & @TAB & $oError.helpfile & @CRLF & _
            @TAB & "err.helpcontext is: " & @TAB & $oError.helpcontext & @CRLF & _
            @TAB & "err.lastdllerror is: " & @TAB & $oError.lastdllerror & @CRLF & _
            @TAB & "err.scriptline is: " & @TAB & $oError.scriptline & @CRLF & _
            @TAB & "err.retcode is: " & @TAB & "0x" & Hex($oError.retcode) & @CRLF & @CRLF)
EndFunc   ;==>ErrFunc

btw.
Back to us with console output.

Thank you for your answer
err.windescription:No registration class

[mLipok]

Are you sure you are runing this AU3 and VBSCRIPT on the same PC , and with the same level of user permissions ?

 

btw.
please provide entire COM Error Handler Log not only one line.

 

Edited June 15, 2018 by mLipok

[subtlelonging]

33 minutes ago, mLipok said:

Are you sure you are runing this AU3 and VBSCRIPT on the same PC , and with the same level of user permissions ?

 

btw.
please provide entire COM Error Handler Log not only one line.

 

demo.au3 (6) : ==> COM Error intercepted !
    err.number is:      0x80040154
    err.windescription: Class not registered

    err.description is:     
    err.source is:      
    err.helpfile is:    
    err.helpcontext is:     
    err.lastdllerror is:    0
    err.scriptline is:  6
    err.retcode is:     0x00000000

I'm sure that Au3 and VBScript are running on the same PC.

Os:win7 X32 administrator account

The attachment provides the COM component. Can you test it if it is convenient? Thank you

[water]

You could try to use the CLSID instead of the CLASS.

[mLipok]

1 hour ago, water said:

You could try to use the CLSID instead of the CLASS.

@subtlelonging just try:

Local $obj = ObjCreate("lwcom")

?

[subtlelonging]

On 2018/6/15 at 7:28 PM, mLipok said:

@subtlelonging  只是试试：

本地  $ obj  =  ObjCreate（“lwcom” ）

？

I found the AutoItobject UDF, and I'm trying to use it in the hope of success.

 

[JLogan3o13]

@subtlelonging when responding, please just hit reply rather than quoting everything everyone says: it pads the thread needlessly. We know what we typed; we were there when we typed it.

[subtlelonging]

@JLogan3o13 OK, thank you for reminding

[mLipok]

@subtlelonging what you get in COM Error Handler when you use:

Local $obj = ObjCreate("lwcom")

?

btw.
AutoItObject UDF has nothing to do with your problem.

 

[Danyfirex]

Hello. Do this:

Local $oMyError = ObjEvent("AutoIt.Error", "_ErrFunc")


Local $oObject = ObjCreateInterface("{F6C2EA3D-2A5A-4B63-AFDB-5E24BD1D39A0}", "{59AA95D1-09D6-4891-89D0-9567D6A63196}")
If IsObj($oObject) Then
    ConsoleWrite($oObject.Ver & @CRLF)
EndIf

; User's COM error function. Will be called if COM error occurs
Func _ErrFunc($oError)
    ; Do anything here.
    ConsoleWrite(@ScriptName & " (" & $oError.scriptline & ") : ==> COM Error intercepted !" & @CRLF & _
            @TAB & "err.number is: " & @TAB & @TAB & "0x" & Hex($oError.number) & @CRLF & _
            @TAB & "err.windescription:" & @TAB & $oError.windescription & @CRLF & _
            @TAB & "err.description is: " & @TAB & $oError.description & @CRLF & _
            @TAB & "err.source is: " & @TAB & @TAB & $oError.source & @CRLF & _
            @TAB & "err.helpfile is: " & @TAB & $oError.helpfile & @CRLF & _
            @TAB & "err.helpcontext is: " & @TAB & $oError.helpcontext & @CRLF & _
            @TAB & "err.lastdllerror is: " & @TAB & $oError.lastdllerror & @CRLF & _
            @TAB & "err.scriptline is: " & @TAB & $oError.scriptline & @CRLF & _
            @TAB & "err.retcode is: " & @TAB & "0x" & Hex($oError.retcode) & @CRLF & @CRLF)
EndFunc   ;==>_ErrFunc

Saludos

 

[subtlelonging]

@Danyfirex It's a success. Thank you very much.

[mLipok]

@subtlelonging try also this:

Local $obj = ObjCreate("{F6C2EA3D-2A5A-4B63-AFDB-5E24BD1D39A0}")

It will be interesting if this will do the trick, as the HelpFile says:

classname

The class of the object in the following format: "appname.objectype" It can also be a string representation of the CLSID.

 

And I'm wondering if this won't be successfull , why ObjCreateInterface do the trick ?
What here was wrong ? I mean why this works in VBS but not in AutoIt ?

 

btw.
You still not answer what you get in COM Error Handler when you use:

Local $obj = ObjCreate("lwcom")

 

[Danyfirex]

I'm think the issue is that the internal call to CoCreateInstance  of objCreate pass an identifier to IDispatch interface. So CoCreateInstance inside ObjCreateInterface pass the  identifier to IUnknown interface.

 

Saludos