COM / MSAA (AccessibleObjectFromPoint) in BB?

From: Greg Edwards <"Greg>
Date: Thu, 20 Nov 2003 16:54:29 -0800

----boundary-LibPST-iamunique-914967246_-_-
Content-type: text/plain

Does anyone know how to wrap a Windows function like this one which is
exported from the oleacc.dll?

---
STDAPI AccessibleObjectFromPoint(POINT ptScreen, IAccessible ** ppacc,
VARIANT* pvarChild);
---
Two questions:
-------------
1) this function is exported by the OLEacc.dll, and so I need to write a
interface for it... the question is, how should ppvObject (below) be
declared? (is it a "CtlT.IUnknown"?)
---
MODULE DllOLEacc ["oleacc"];
	IMPORT CtlT, WinApi;
	PROCEDURE AccessibleObjectFromPoint* (ptScreen: WinApi.POINT; VAR
ppvObject: CtlT.IUnknown; VAR pvarChild: CtlT.Variant);
---
2) Given that this function is going to return <something>, I need to
convert that <something> into a CtlAccessibility.IAccessible wrapper object
(included below). How!?! I assume I have to use CtlT (or maybe CtlC)... and
it looks like I need to get it to be a CtlT.Object... but how?
--- (header for auto-generated interface CtlAccessibility)
MODULE CtlAccessibility;
	(* , help: , id: 0 *)
	(* guid: {1EA4DBF0-3C3B-11CF-810C-00AA00389B71}, lcid: 0, syskind: win32,
version: 1.1, hidden *)
	IMPORT CtlT, CtlC;
	CONST
	TYPE
		IAccessible* = POINTER TO RECORD (CtlT.Object) END;
------------------
Thanks!
Greg Edwards
Chief Technology Officer & Founder
E yetools, Inc.
gedwar ds{([at]})nowhere.xy--------------------------------------------
To unsubscribe from this mailing list, send a message containing the word "unsubscribe" to:
   blackbox-request{([at]})nowhere.xyTo get a list of valid e-mail commands and instructions on their usage, send a message containing the word "help" to the above address.
Send any problem reports or questions related to this email list to the list owner at
   owner-blackbox{([at]})nowhere.xyCurrent posting policy:
a) To post you should use the same address by which you are subscribed to the mailing list. That way, the list server will recognize you as subscriber and forward your posting immediately, without creating any overhead.
b) If, for some reason, you cannot post from the address, by which you are subscribed, your message will be moderated to avoid spam. Please understand that moderation will often cause some delay, in particular over weekends or holydays.
----boundary-LibPST-iamunique-914967246_-_-
Content-type: application/rtf
Content-transfer-encoding: base64
Content-Disposition: attachment; filename="rtf-body.rtf"
e1xydGYxXGFuc2lcYW5zaWNwZzEyNTJcZnJvbXRleHQgXGRlZmYwe1xmb250dGJsDQp7XGYwXGZz
d2lzcyBBcmlhbDt9DQp7XGYxXGZtb2Rlcm4gQ291cmllciBOZXc7fQ0Ke1xmMlxmbmlsXGZjaGFy
c2V0MiBTeW1ib2w7fQ0Ke1xmM1xmbW9kZXJuXGZjaGFyc2V0MCBDb3VyaWVyIE5ldzt9fQ0Ke1xj
b2xvcnRibFxyZWQwXGdyZWVuMFxibHVlMDtccmVkMFxncmVlbjBcYmx1ZTI1NTt9DQpcdWMxXHBh
cmRccGxhaW5cZGVmdGFiMzYwIFxmMFxmczIwIERvZXMgYW55b25lIGtub3cgaG93IHRvIHdyYXAg
YSBXaW5kb3dzIGZ1bmN0aW9uIGxpa2UgdGhpcyBvbmUgd2hpY2ggaXNccGFyDQpleHBvcnRlZCBm
cm9tIHRoZSBvbGVhY2MuZGxsP1xwYXINClxwYXINCi0tLVxwYXINClNUREFQSSBBY2Nlc3NpYmxl
T2JqZWN0RnJvbVBvaW50KFBPSU5UIHB0U2NyZWVuLCBJQWNjZXNzaWJsZSAqKiBwcGFjYyxccGFy
DQpWQVJJQU5UKiBwdmFyQ2hpbGQpO1xwYXINCi0tLVxwYXINClxwYXINClR3byBxdWVzdGlvbnM6
XHBhcg0KLS0tLS0tLS0tLS0tLVxwYXINCjEpIHRoaXMgZnVuY3Rpb24gaXMgZXhwb3J0ZWQgYnkg
dGhlIE9MRWFjYy5kbGwsIGFuZCBzbyBJIG5lZWQgdG8gd3JpdGUgYVxwYXINCmludGVyZmFjZSBm
b3IgaXQuLi4gdGhlIHF1ZXN0aW9uIGlzLCBob3cgc2hvdWxkIHBwdk9iamVjdCAoYmVsb3cpIGJl
XHBhcg0KZGVjbGFyZWQ/IChpcyBpdCBhICJDdGxULklVbmtub3duIj8pXHBhcg0KLS0tXHBhcg0K
TU9EVUxFIERsbE9MRWFjYyBbIm9sZWFjYyJdO1xwYXINClx0YWIgSU1QT1JUIEN0bFQsIFdpbkFw
aTtccGFyDQpcdGFiIFBST0NFRFVSRSBBY2Nlc3NpYmxlT2JqZWN0RnJvbVBvaW50KiAocHRTY3Jl
ZW46IFdpbkFwaS5QT0lOVDsgVkFSXHBhcg0KcHB2T2JqZWN0OiBDdGxULklVbmtub3duOyBWQVIg
cHZhckNoaWxkOiBDdGxULlZhcmlhbnQpO1xwYXINCi0tLVxwYXINClxwYXINCjIpIEdpdmVuIHRo
YXQgdGhpcyBmdW5jdGlvbiBpcyBnb2luZyB0byByZXR1cm4gPHNvbWV0aGluZz4sIEkgbmVlZCB0
b1xwYXINCmNvbnZlcnQgdGhhdCA8c29tZXRoaW5nPiBpbnRvIGEgQ3RsQWNjZXNzaWJpbGl0eS5J
QWNjZXNzaWJsZSB3cmFwcGVyIG9iamVjdFxwYXINCihpbmNsdWRlZCBiZWxvdykuIEhvdyE/ISBJ
IGFzc3VtZSBJIGhhdmUgdG8gdXNlIEN0bFQgKG9yIG1heWJlIEN0bEMpLi4uIGFuZFxwYXINCml0
IGxvb2tzIGxpa2UgSSBuZWVkIHRvIGdldCBpdCB0byBiZSBhIEN0bFQuT2JqZWN0Li4uIGJ1dCBo
b3c/XHBhcg0KXHBhcg0KLS0tIChoZWFkZXIgZm9yIGF1dG8tZ2VuZXJhdGVkIGludGVyZmFjZSBD
dGxBY2Nlc3NpYmlsaXR5KVxwYXINCk1PRFVMRSBDdGxBY2Nlc3NpYmlsaXR5O1xwYXINClx0YWIg
KCogLCBoZWxwOiAsIGlkOiAwICopXHBhcg0KXHRhYiAoKiBndWlkOiBcezFFQTREQkYwLTNDM0It
MTFDRi04MTBDLTAwQUEwMDM4OUI3MVx9LCBsY2lkOiAwLCBzeXNraW5kOiB3aW4zMixccGFyDQp2
ZXJzaW9uOiAxLjEsIGhpZGRlbiAqKVxwYXINClxwYXINClx0YWIgSU1QT1JUIEN0bFQsIEN0bEM7
XHBhcg0KXHBhcg0KXHRhYiBDT05TVFxwYXINClxwYXINClxwYXINClx0YWIgVFlQRVxwYXINClx0
YWIgXHRhYiBJQWNjZXNzaWJsZSogPSBQT0lOVEVSIFRPIFJFQ09SRCAoQ3RsVC5PYmplY3QpIEVO
RDtccGFyDQotLS0tLS0tLS0tLS0tLS0tLS1ccGFyDQpccGFyDQpccGFyDQpUaGFua3MhXHBhcg0K
XHBhcg0KXHBhcg0KR3JlZyBFZHdhcmRzXHBhcg0KQ2hpZWYgVGVjaG5vbG9neSBPZmZpY2VyICYg
Rm91bmRlclxwYXINCkUgeWV0b29scywgSW5jLlxwYXINCmdlZHdhciBkc0BleSBldG9vIGxzLmNv
bVxwYXINClxwYXINCi0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0t
XHBhcg0KXHBhcg0KVG8gdW5zdWJzY3JpYmUgZnJvbSB0aGlzIG1haWxpbmcgbGlzdCwgc2VuZCBh
IG1lc3NhZ2UgY29udGFpbmluZyB0aGUgd29yZCAidW5zdWJzY3JpYmUiIHRvOlxwYXINCiAgIGJs
YWNrYm94LXJlcXVlc3RAb2Jlcm9uLmNoXHBhcg0KXHBhcg0KVG8gZ2V0IGEgbGlzdCBvZiB2YWxp
ZCBlLW1haWwgY29tbWFuZHMgYW5kIGluc3RydWN0aW9ucyBvbiB0aGVpciB1c2FnZSwgc2VuZCBh
IG1lc3NhZ2UgY29udGFpbmluZyB0aGUgd29yZCAiaGVscCIgdG8gdGhlIGFib3ZlIGFkZHJlc3Mu
XHBhcg0KXHBhcg0KU2VuZCBhbnkgcHJvYmxlbSByZXBvcnRzIG9yIHF1ZXN0aW9ucyByZWxhdGVk
IHRvIHRoaXMgZW1haWwgbGlzdCB0byB0aGUgbGlzdCBvd25lciBhdFxwYXINCiAgIG93bmVyLWJs
YWNrYm94QG9iZXJvbi5jaFxwYXINClxwYXINCkN1cnJlbnQgcG9zdGluZyBwb2xpY3k6XHBhcg0K
XHBhcg0KYSkgVG8gcG9zdCB5b3Ugc2hvdWxkIHVzZSB0aGUgc2FtZSBhZGRyZXNzIGJ5IHdoaWNo
IHlvdSBhcmUgc3Vic2NyaWJlZCB0byB0aGUgbWFpbGluZyBsaXN0LiBUaGF0IHdheSwgdGhlIGxp
c3Qgc2VydmVyIHdpbGwgcmVjb2duaXplIHlvdSBhcyBzdWJzY3JpYmVyIGFuZCBmb3J3YXJkIHlv
dXIgcG9zdGluZyBpbW1lZGlhdGVseSwgd2l0aG91dCBjcmVhdGluZyBhbnkgb3ZlcmhlYWQuXHBh
cg0KXHBhcg0KYikgSWYsIGZvciBzb21lIHJlYXNvbiwgeW91IGNhbm5vdCBwb3N0IGZyb20gdGhl
IGFkZHJlc3MsIGJ5IHdoaWNoIHlvdSBhcmUgc3Vic2NyaWJlZCwgeW91ciBtZXNzYWdlIHdpbGwg
YmUgbW9kZXJhdGVkIHRvIGF2b2lkIHNwYW0uIFBsZWFzZSB1bmRlcnN0YW5kIHRoYXQgbW9kZXJh
dGlvbiB3aWxsIG9mdGVuIGNhdXNlIHNvbWUgZGVsYXksIGluIHBhcnRpY3VsYXIgb3ZlciB3ZWVr
ZW5kcyBvciBob2x5ZGF5cy5ccGFyDQpccGFyDQp9
----boundary-LibPST-iamunique-914967246_-_---

Received on Fri Nov 21 2003 - 01:54:29 UTC