AutoItObject UDF

trancexx · October 21, 2011

I've been looking at this now, seeing what all I can use it for, and so far I like it. I do have one question.

Is it possible to define a default method for an object? As in, the Scripting.Dictionary can access items using either the .Item() method, or just by calling the object directly:

Of course. Add method "__default__". Something like:

AddMethod("__default__", "_YourMethod")

SkinnyWhiteGuy · October 21, 2011

Awesome, that works well.

Except inside another autoitobject. I tried setting one object as a property in another object, then calling the propery using just the (), and I get "The requested action with this object has failed."

Adding an error handler, I get "Invalid number of parameters." I may be doing something else wrong though...

Edit: Ok, here's a small reproducer that doesn't error out, but doesn't work as I thought it should.

#include "AutoitObject.au3"
_AutoItObject_StartUp()
Func _Class1()
Local $obj = _AutoItObject_Class()
$obj.AddMethod("__default__", "Hello")
Return $obj.Object
EndFunc
Func _Class2()
Local $obj = _AutoItObject_Class()
$obj.AddProperty("test", $ELSCOPE_PUBLIC, _Class1())
Return $obj.Object
EndFunc
Func Hello($self)
ConsoleWrite("Hello" & @CRLF)
EndFunc
ConsoleWrite("Test Class 1" & @CRLF)
$temp = _Class1()
$temp()
$temp = 0
ConsoleWrite("Test Class 2" & @CRLF)
$temp = _Class2()
$temp.test()
ConsoleWrite("Test Class 2b" & @CRLF)
$temp2 = $temp.test
$temp2()
$temp = 0

It should print Hello all 3 times, but it misses Test 2, without an error. I'll have to figure out my Params error later, if I find an answer to this.

Edited October 21, 2011 by SkinnyWhiteGuy

trancexx · October 21, 2011

Add destructors and you will see what the problem with your code is.

(Make destructors print something when executed so that you know when they are called)

SkinnyWhiteGuy · October 21, 2011

Well, I tried that, and added an option parameter to the default function, and still have errors.

Here is the latest code I have:

#include "AutoitObject.au3"
 
; Error monitoring
Global $oError = ObjEvent("AutoIt.Error", "_ErrFunc")
 
Func _ErrFunc()
    ConsoleWrite("! COM Error !  Number: 0x" & Hex($oError.number, 8) & "   ScriptLine: " & $oError.scriptline & " - " & $oError.windescription & @CRLF)
    Return
EndFunc   ;==>_ErrFunc
 
_AutoItObject_StartUp()
 
Func _Class1()
Local $obj = _AutoItObject_Class()
 
$obj.AddMethod("__default__", "Hello")
$obj.AddDestructor("Goodbye")
 
Return $obj.Object
EndFunc
 
Func _Class2()
Local $obj = _AutoItObject_Class()
 
$obj.AddProperty("test", $ELSCOPE_PUBLIC, _Class1())
$obj.AddDestructor("Goodbye")
 
Return $obj.Object
EndFunc
 
Func Hello($self, $msg = "")
ConsoleWrite("Hello " & $msg & @CRLF)
EndFunc
 
Func Goodbye($self)
ConsoleWrite('Goodbye' & @CRLF)
EndFunc
 
ConsoleWrite("Test Class 1" & @CRLF)
$temp1 = _Class1()
$temp1("Test")
 
ConsoleWrite("Test Class 2" & @CRLF)
$temp2 = _Class2()
$temp2.test("Error")
 
ConsoleWrite("Test Class 2b" & @CRLF)
$temp3 = $temp2.test
$temp3("ReTest")

If I'm looking at it right, this may not be possible. $temp2.test could be a Method of _Class2 as well as the default Method for the test object held in the Property of _Class2. I'm not sure if that might be the issue at hand or not, though...

Edited October 21, 2011 by SkinnyWhiteGuy

trancexx · October 21, 2011

If I'm looking at it right, this may not be possible. $temp2.test could be a Method of _Class2 as well as the default Method for the test object held in the Property of _Class2. I'm not sure if that might be the issue at hand or not, though...

There you go.

Save the object first and then call its default method.

SkinnyWhiteGuy · October 21, 2011

Thanks for this, here's what I made with it. It is based heavily on the LinkedList example, but it has all the functionality of the Scripting.Dictionary COM object.

oDictionary.au3

Edited October 21, 2011 by SkinnyWhiteGuy

ProgAndy · October 21, 2011

Edit: Looks good :graduated: Still, why don't you implement a real hashtable just like scripting.dicionary? That would be faster.

Edited October 21, 2011 by ProgAndy

SkinnyWhiteGuy · October 21, 2011

I was bored at work today, and the Linked List implementation seemed more straight forward at the time. I was thinking about taking Nutster's old UDF here on the forums, and putting it into Object form, and compare the two. We'll see how bored I am on Monday.

eimhym · May 31, 2012

Need help inherit AutoItObject from JScriptObject () or is it possible to inherit any COM object other than AutoItObject created COM object?

I have been playing with Kip's modified sample (), works with crafted object but seems failed to locate correct vtable (DllStructGetData($hHeader, 1) < 0 in ___AddMembersToLookupTable function) for other COM object (e.g. Scripting.Dictionary)

Thanks

Kip · June 2, 2012

Please stop playing with my ancient modified version.

ProgAndy · June 2, 2012

Need help inherit AutoItObject from JScriptObject () or is it possible to inherit any COM object other than AutoItObject created COM object?

Modifying the JScript-Object does not save any overhead. A method call still has to go from an object to a DLLCallback and finally the requested AutoIt-function.

Andreik · June 7, 2012

Is there any way to pass an array to an object method as parameter?

I tried this example but fail:

#include <AutoItObject.au3>
#include <Array.au3>

_AutoItObject_Startup()

Dim $aArray[5] = [0,1,2,3,4]


$oAS = ActionScript()
$oAS.Run($aArray,'',True)

Func ActionScript()
    Local $oActionScript = _AutoItObject_Class()
    With $oActionScript
        .AddMethod('Run','__as_run')
        .AddProperty('Script',$ELSCOPE_PRIVATE,'')
    EndWith
    Return $oActionScript.Object
EndFunc

Func __as_run($oSelf,$aBitmap,$sPath,$bMem=False)
    If $bMem Then $sPath = $oSelf.Script
    Test($aBitmap,$sPath,$bMem)
EndFunc

Func Test($a,$b,$c)
    _ArrayDisplay($a)
    MsgBox(0,"",$<img src='http://www.autoitscript.com/forum/public/style_emoticons/<#EMO_DIR#>/cool.png' class='bbc_emoticon' alt='B)' />
    MsgBox(0,"",$c)
EndFunc

twitchyliquid64 · June 8, 2012

AutoITObject Team,

All links to the project homepage and documentation @ domain http://autoitobject.origo.ethz.ch/ are down.

eimhym · June 8, 2012

Please stop playing with my ancient modified version.

Well actually I like your ancient one than the new complex as it simply helps me understand the basic concept. Thanks again Kip

The problem is even the new AutoItObject ends up with the same fatal error if I try to inherit from another COM object.

A method call still has to go from an object to a DLLCallback and finally the requested AutoIt-function.

Agreed, but in JScript Object we need another wrapper (in pure javascript) which is worsen the case

My question is still, is it possible to inherit any COM object other than AutoItObject created COM object?

Edited June 8, 2012 by eimhym

trancexx · June 8, 2012

Is there any way to pass an array to an object method as parameter?

I tried this example but fail:

#include <AutoItObject.au3>
#include <Array.au3>

_AutoItObject_Startup()

Dim $aArray[5] = [0,1,2,3,4]


$oAS = ActionScript()
$oAS.Run($aArray,'',True)

Func ActionScript()
    Local $oActionScript = _AutoItObject_Class()
    With $oActionScript
        .AddMethod('Run','__as_run')
        .AddProperty('Script',$ELSCOPE_PRIVATE,'')
    EndWith
    Return $oActionScript.Object
EndFunc

Func __as_run($oSelf,$aBitmap,$sPath,$bMem=False)
    If $bMem Then $sPath = $oSelf.Script
    Test($aBitmap,$sPath,$bMem)
EndFunc

Func Test($a,$b,$c)
    _ArrayDisplay($a)
    MsgBox(0,"",$<img src='http://www.autoitscript.com/forum/public/style_emoticons/default/cool.png' class='bbc_emoticon' alt='B)' />
    MsgBox(0,"",$c)
EndFunc

The question is: "What fails?"

Answer that (yes you can) and and you will see that your question doesn't even make sense.

Andreik · June 8, 2012

The question is: "What fails?"

For example it fails to display the array in Test() function.

LE: sorry, yes it's work but for an unknown reason my array isn't displayed by _ArrayDisplay() function but the array is valid if I put there a message box to display an item from array. So it's not AutoIt Object UDF related question, I'll try to find what's wrong with _ArrayDisplay().

Edited June 8, 2012 by Andreik

AdmiralAlkex · June 9, 2012

~~Is it something about doing window messages when you are in a callback?~~

Silly me, it's right there in the first post!

Q. My GUI freezes! Why and how do I fix it? All methods are essentially dllcallbacks. Unfortunately this means that messages are not processed while your methods are being executed. As long as you keep your main loop outside any method, you'll be fine.

Loz · June 28, 2012

Anyone know what is the latest version?

I note that the home page at http://autoitobject.origo.ethz.ch/ has been failing for several weeks.

The mirror has version 1.2.2.2 but in the past I downloaded version 1.2.8.2 from somewhere.

Is 1.2.8.2 the latest?

What is happening with http://autoitobject.origo.ethz.ch/ ?

Thanks

ProgAndy · June 28, 2012

Origo has shut down. Indeed, 1.2.8.2 is the most recent version, but I have no copies on my laptop. I'll have to look on my other computer, probably something is there. At least a version more recent than 1.2.2.0

LarsJ · June 29, 2012

This is version 1.2.8.2

Removed the attachments.

Edited October 4, 2012 by LarsJ

Sign In

AutoItObject UDF

Recommended Posts

trancexx

Top Posters In This Topic

Top Posters In This Topic

Popular Posts

ProgAndy

trancexx

Trolleule

SkinnyWhiteGuy

trancexx

SkinnyWhiteGuy

trancexx

SkinnyWhiteGuy

ProgAndy

SkinnyWhiteGuy

eimhym

Kip

ProgAndy

Andreik

twitchyliquid64

eimhym

trancexx

Andreik

AdmiralAlkex

Loz

ProgAndy

LarsJ

Create an account or sign in to comment

Create an account

Sign in

Recently Browsing 0 members

Browse

AutoIt Resources

Release

Beta