COM method problem

[khaynes]

Hello,

I have a Visual Basic 6.0 program that can automate a FILMeasure.FMRemoteControl.

I am trying to translate it into AutoIt.

I get an error when I run my AutoIt program:

"Error: The requested action with this object has failed"

on this line:

Local $response = $oFilmetrics.Execute("GetSerialNumber", $errorCode) ; Fails

I can tell the the FILMeasure object has been created because it puts up a Window when it runs.

Is there a problem handling the second argument ? It is a pass by reference.

Looking at the AutoIt Feature Requests, I found Com ByRef Feature Request .

Does that mean that I can't do this? If I can't call the Execute function from AutoIt, is there any way to work around it?

Thanks,

Keith

Visual Basic Code:

CODE

Dim mobjFILMeasureRemotecontrol As FILMeasure.FMRemoteControl

Private Sub cmdExecute_Click()

Dim intErrCode As Integer

Dim strErrString As String

lblResponse.Caption = mobjFILMeasureRemotecontrol.Execute(cboCommand, intErrCode)

If intErrCode Then

Select Case intErrCode

Case -1

strErrString = "Syntax Error"

Case -2

strErrString = "System Busy"

Case Else

strErrString = "Unknown Error"

End Select

lblResponse.Caption = strErrString

MsgBox "Error. Error code=" & intErrCode & ", error Type=" & strErrString

End If

End Sub

AutoIt code:

CODE

; Attempt to open connection to Filmetrics

$oFilmetrics = ObjCreate("FILMeasure.FMRemoteControl")

If @error Then

MsgBox(0, "Process Error", "Error Getting an active FILMeasure object. Error code: " & hex(@error,8))

Exit

EndIf

MsgBox(0, "Debug", "FILMeasure Name = " & ObjName($oFilmetrics)) ; This works (name is _FMRemoteControl)

Local $errorCode

Local $response = $oFilmetrics.Execute("GetSerialNumber", $errorCode) ; Fails

[DaleHohm]

Don't see where you are trying to use byRef anywhere.

When you say it "fails" - how does it fail? what are the error messages?

Dale

[PsaltyDS]

Looking at the AutoIt Feature Requests, I found Com ByRef Feature Request.

Did you, now? The title of that topic is "NO TAXATION WITHOUT REPRESENTATION, Talk politics and crap" from 2004.

Does that mean that I can't do this?

You mean talk politics, or talk crap? (But of course, that's redundant.)

Sorry, couldn't resist...

[khaynes]

Don't see where you are trying to use byRef anywhere.

When you say it "fails" - how does it fail? what are the error messages?

Dale

The second parameter of the Execute method is passed by reference.

I can tell because the visual basic code checks its value after the call.

The error message is:

"Error: The requested action with this object has failed"

and the script stops running.

Keith

[khaynes]

Did you, now? The title of that topic is "NO TAXATION WITHOUT REPRESENTATION, Talk politics and crap" from 2004.

You mean talk politics, or talk crap? (But of course, that's redundant.)

Sorry, couldn't resist...

Guess the Insert Special Item didn't work the way I thought it would. Second try.

COM argument ByRef

[DaleHohm]

The second parameter of the Execute method is passed by reference.

I can tell because the visual basic code checks its value after the call.

The error message is:

"Error: The requested action with this object has failed"

and the script stops running.

Keith

Are you able to perform any other methods or access any properties of this object, or is the trouble isolated to the Execute method? Also, plase post the full output from the SciTe console.

Dale

[khaynes]

Are you able to perform any other methods or access any properties of this object, or is the trouble isolated to the Execute method? Also, plase post the full output from the SciTe console.

Dale

Hello,

The object only supports two things, the Response property and the Execute method.

The Response property appears to work. Here are a short program and its outputs.

Program:

AutoItSetOption("MustDeclareVars", 1) 
Local $oFilmetrics = ObjCreate("FILMeasure.FMRemoteControl")
Local $logFile = FileOpen("logfile.txt", 2)
FileWriteLine($logfile, "FILMeasure Name = " & ObjName($oFilmetrics))
Local $response1 = $oFilmetrics.Response()
FileWriteLine($logFile, "response1 = " & $response1)
While( $response1 == "Busy" )
    $response1 = $oFilmetrics.Response()
    FileWriteLine($logFile, "response1 = " & $response1)
    Sleep(200)
WEnd
FileWriteLine($logFile, "not busy response1 = " & $response1)
Sleep(2000)
Local $errorCode
Local $response2 = $oFilmetrics.Execute("GetSerialNumber", $errorCode)
FileWriteLine($logFile, "response2 = " & $response2)
FileClose($logFile)

SciTe console: (I think this is what you wanted to see)

>"C:\Program Files\AutoIt3\SciTE\..\autoit3.exe" /ErrorStdOut "O:\Emitter data\VisualBasicFilmetrics\FilmTest.au3"

O:\Emitter data\VisualBasicFilmetrics\FilmTest.au3 (15) : ==> The requested action with this object has failed.:

Local $response2 = $oFilmetrics.Execute("GetSerialNumber", $errorCode)

Local $response2 = $oFilmetrics.Execute("GetSerialNumber", $errorCode)^ ERROR

>Exit code: 1 Time: 5.208

logFile as written by the above program:

FILMeasure Name = _FMRemoteControl

response1 = Busy

response1 = Busy

response1 = DDELink Active

not busy response1 = DDELink Active

Thank you for taking the time to look at this problem.

Keith

[DaleHohm]

I'm not sure what to suggest. Can you craft a small working example in VBScript that could be used as a model for conversion?

Dale