tasks a-s

Task/OLE-Automation/0DESCRIPTION

@@ -0,0 +1,4 @@
+[http://en.wikipedia.org/wiki/OLE_Automation OLE Automation] is an inter-process communication mechanism based on [http://en.wikipedia.org/wiki/Component_Object_Model Component Object Model] (COM) on Microsoft Windows.
+
+Provide an automation server implementing objects that can be accessed by a client running in a separate process.  The client gets a proxy-object that can call methods on the object.
+The communication should be able to handle conversions of [http://en.wikipedia.org/wiki/Variant_type variants] to and from the native value types.

Task/OLE-Automation/1META.yaml

@@ -0,0 +1,2 @@
+---
+note: OLE Automation Client and Server

Task/OLE-Automation/AutoHotkey/ole-automation-1.ahk

@@ -0,0 +1,5 @@
+ahk := comobjactive("ahkdemo.ahk")
+ahk.hello("hello world")
+py := ComObjActive("python.server")
+py.write("hello")
+return

Task/OLE-Automation/AutoHotkey/ole-automation-2.ahk

@@ -0,0 +1,56 @@
+#Persistent
+CLSID_ThisScript := "{38A3EB13-D0C4-478b-9720-4D0B2D361DB9}"
+APPID_ThisScript := "ahkdemo.ahk"
+funcs := ["aRegisterIDs", "aGetObject", "aCallFunc", "hello"]
+server := ahkComServer(CLSID_ThisScript, APPID_ThisScript, funcs)
+return
+
+aRegisterIDs(this, CLSID, APPID){
+RegisterIDs(CLSID, APPID)
+}
+
+hello(this, message){
+msgbox % message
+}
+aGetObject(this, name){
+global
+return %name%
+}
+
+aCallFunc(this, func, args){
+return %func%(args)
+}
+
+;; ahkcomserver()
+ahkComServer(CLSID_ThisScript, APPID_ThisScript, funcs)
+{
+global serverReady
+server := object()
+ ; CLSID_ThisScript := "{38A3EB13-D0C4-478b-9720-4D0B2D361DB9}"
+ ; APPID_ThisScript := "Garglet.QueryServer"
+
+  RegisterIDs(CLSID_ThisScript, APPID_ThisScript)
+for i, func in funcs
+{
+str .= func . ", "
+}
+str := SubStr(str, 1, strlen(str) - 2)
+
+  myObj := ComDispatch("", str)
+; Expose it
+  if !(hRemote := ComRemote(myObj, CLSID_ThisScript))
+  {
+    MsgBox, 16, %A_ScriptName%, Can't remote the object!
+    ExitApp
+  }
+server.CLSID := CLSID_ThisScript
+server.APPID := APPID_ThisScript
+server.hRemote := hRemote
+serverReady := 1
+  return server
+}
+
+#Include ComRemote.ahk
+#include lib\ComDispTable.ahk
+#include lib\ComDispatch.ahk
+#include lib\ComVar.ahk

Task/OLE-Automation/Python/ole-automation-1.py

@@ -0,0 +1,56 @@
+#!/usr/bin/env python
+# -*- coding: utf-8 -*-
+import win32com.client
+from win32com.server.util import wrap, unwrap
+from win32com.server.dispatcher import DefaultDebugDispatcher
+from ctypes import *
+import commands
+import pythoncom
+import winerror
+from win32com.server.exception import Exception
+
+clsid = "{55C2F76F-5136-4614-A397-12214CC011E5}"
+iid = pythoncom.MakeIID(clsid)
+appid = "python.server"
+
+class VeryPermissive:
+    def __init__(self):
+        self.data = []
+        self.handle = 0
+        self.dobjects = {}
+    def __del__(self):
+        pythoncom.RevokeActiveObject(self.handle)
+    def _dynamic_(self, name, lcid, wFlags, args):
+        if wFlags & pythoncom.DISPATCH_METHOD:
+            return getattr(self,name)(*args)
+        if wFlags & pythoncom.DISPATCH_PROPERTYGET:
+            try:
+                # to avoid problems with byref param handling, tuple results are converted to lists.
+                ret = self.__dict__[name]
+                if type(ret)==type(()):
+                    ret = list(ret)
+                return ret
+            except KeyError: # Probably a method request.
+                raise Exception(scode=winerror.DISP_E_MEMBERNOTFOUND)
+        if wFlags & (pythoncom.DISPATCH_PROPERTYPUT | pythoncom.DISPATCH_PROPERTYPUTREF):
+            setattr(self, name, args[0])
+            return
+        raise Exception(scode=winerror.E_INVALIDARG, desc="invalid wFlags")
+    def write(self, x):
+        print x
+        return 0
+import win32com.server.util, win32com.server.policy
+child = VeryPermissive()
+ob = win32com.server.util.wrap(child, usePolicy=win32com.server.policy.DynamicPolicy)
+try:
+    handle = pythoncom.RegisterActiveObject(ob, iid, 0)
+except pythoncom.com_error, details:
+    print "Warning - could not register the object in the ROT:", details
+    handle = None
+child.handle = handle
+
+ahk = win32com.client.Dispatch("ahkdemo.ahk")
+ahk.aRegisterIDs(clsid, appid)
+# autohotkey.exe ahkside.ahk
+# python /c/Python26/Scripts/ipython.py -wthread -i pythonside.py
+# must use -wthread otherwise calling com client hangs

Task/OLE-Automation/Python/ole-automation-2.py

@@ -0,0 +1,3 @@
+import win32com.client
+client = win32com.client.Dispatch("python.server")
+client.write("hello world")