233 replies to this topic

[rani]

Can you get it to work in VBScript?

I know JavaScript,
I'll try it with JavaScript ?

[jethrow]

Do you have an API reference for the Com Object?

the value ID is a return value from the method getID

Do you mean it's a ByRef param?

I got ID=""

Are you sure it's blank, or is it just not a visible string? What are the results of:

MsgBox, % IsObject(ID) ", " !!ID

[rani]

the value ID is a return value from the method getID

Do you mean it's a ByRef param?

yes I mean byRef ID (is a string)
getting ID value after execute the method

is there special syntax (getting value) in AHK_L ?

[jethrow]

There is ComObjValue(), but you only answered 1 of my questions.

[rani]

[quote name="jethrow"]Do you have an API reference for the Com Object?

do you mean I follow the API reference ?

I actually run VB project code (the old VB6 not VB.net)
and on each function or method I try to run it with AHK_L

there are no too many functions/ methods

[rani]

There is ComObjValue(), but you only answered 1 of my questions.

VB method:
oTX.getID ID
to get ID (string)

so what is the syntax to get ID(string) value by AHK_L with comObjValue ?
(didnt't find any example for that)

[jethrow]

Are you sure it's blank, or is it just not a visible string? What are the results of:

MsgBox, % IsObject(ID) ", " !!ID

If it's not blank, what is the value of the variable? (use ListVars)

[rani]

Are you sure it's blank, or is it just not a visible string? What are the results of:

MsgBox, % IsObject(ID) ", " !!ID

If it's not blank, what is the value of the variable? (use ListVars)

from listvars I get
hModule[8 of 63]: 17170432
ID[0 of 0]:

and in msgBox I get null (or ="")

[jethrow]

and in msgBox I get null (or ="")

Then it's quite apparent you aren't listening :?

Anyways, if I'm going to help anymore, I'll need a link to the documentation for this Com Object (API Reference), and a working VBScript or JScript example. Good luck.

[rani]

and in msgBox I get null (or ="")

Then it's quite apparent you aren't listening :?

I followed your instructions with :
MsgBox, % IsObject(ID) ", " !!ID
and with listvars

and I said that from msgBox got empty values on the alert box.
but now I'll try with JScript,

anyway,
thanks for help

[rani]

AHK_L COM argument return value

checking JSscript and VBscript on com automation return value
caused error (type mismatch)
seems VB script can return only variant type values
(and not let say BSTR)

JScript , cannot return values byref (maybe with object arguments)
so it's not straight forward, and I didn't succeed to implement on COM argument.

AHK_L
it seems the AHK_L has some bug or different syntax, how get return value from COM argument (byref)
methods of COM with arguments are passing correctly, but not returned values

any help or advice will be appreciated.

[rani]

for this Com Object (API Reference), and a working VBScript or JScript example. Good luck.

VB6 dll (dll+class)

I build dll width 2 arguments

public sub subTest(x as string, byRef yRetrun as string)

yReturn ="returnValue"

end sub

public function funcTest(x as string) as string

funcTest ="returnValue"

end function

with comObjCreate the instance is OK (IsObject=1)
the value of funcTest in AHK_L receive a correct value means

oReturn : ComObjCreate("dllx.Return")
funTest := oReturn.funTest("X")
received ok the value "returnValue"

but with the sub the return value byRef, don't work !:
txtValue := ""
oReturn.subTest("X",txtValue)
the txtValue equal to ""

means:
the AHK_L comObject cannot get return value's byRef from sub's (methods)
or there is special syntax for that ?

I think lexikos should give some remark on that, either

"how to get return value's from sub or method"

Jethrow,
from this thread , when I follow your answers it looks your most professional,
just if you can give another answer on this issue.

I gave all the info you need.

[dumpster.monkey]

Not sure if this is the right place to ask, but:

If I use this method to show swf using the new gui, add, activex:

#SingleInstance force 

w = 530
h = 336

Gui, 1: +LastFound -Caption +AlwaysOnTop -SysMenu 
Gui, 1: Show, w%w% h%h% Center, Flash 
Gui, 1: Margin, 0 ,0
Gui, 1: Add, ActiveX, w%w% h%h% vpwb, D27CDB6E-AE6D-11cf-96B8-444553540000
getSwfFromDisk = %A_ScriptDir%/HyperFPLaunch/hiScores_0.swf
pwb.Navigate("file:///" . getSwfFromDisk)
Return 

GuiClose: 
  Esc::
  Gui, 1:Destroy 
  ExitApp 
Return

Is there a way to set parameters - eg using com.ahk I would use:

COM_Invoke(psf, "Scale=", "exactfit")
COM_Invoke(psf, "bgcolor=", "#261800")

or do I need to wrap it in html and use

Gui Add, ActiveX, w%w% h%h% vpwb, Shell.Explorer

[nimda]

COM_Invoke(psf, "Scale=", "exactfit")

psf.Scale := "exactfit"