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
_______________________________________________
Chicken-users mailing list
[email protected]
http://lists.nongnu.org/mailman/listinfo/chicken-users
