[Chicken-users] Win32 COM with Chicken?

[Graham Fawcett]

I wonder if anyone has implemented a general Win32 COM client module
for Chicken, or has some sample code that might be the basis for such
a module? I would like to be able to write something like:

;; launch instance of IE, navigate to a URL
(let
    ((msie (com-create-instance "InternetExplorer.Application"))
     (target-url ("http://example.net/";)))
  (com-attribute-set! msie "Visible" #t)
  (com-method-call msie "Navigate" target-url))

Or even better (a guy can dream, can't he?):

;; launch instance of IE, navigate, get the Document.Title
(let
    ((msie (com-create-instance "InternetExplorer.Application"))
     (target-url ("http://example.net/";)))
  (com-attribute-set! msie "Visible" #t)
  (com-method-call msie "Navigate" target-url)
  (sleep-repeatedly-until (not (com-attribute-get msie "Busy")))
  (print (com-attribute-get (com-attribute-get msie "Document")
                            "Title")))


(The second is more exciting because it requires more sophisticated
COM wrapping: (com-attribute-get msie "Document") would evaluate to a
COM VARIANT rather than a simple scalar.)

Sadly, I'm not a smart-enough Win32api programmer to roll my own.
Maybe that's a good thing. ;-) But any tips or suggestions (or code!)
would be very welcome.

Thanks,

-- Graham