(unknown charset) Re: COM events

From: (unknown charset) Douglas G. Danforth <"Douglas>
Date: Thu, 26 Aug 2004 13:50:41 -0400

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

Alexei,

Hey, pretty neat!

I speculate that the process in which the 'word document' is running
actually gets the Close event, but 'that' process is probably different
from the Blackbox process that spanned it. Just a guess.

-Doug


????? wrote:

> Hi All !
>
> What can be wrong with this code?
> ("Word closed" never appears)
>
> MODULE PrivWord;
> IMPORT Log := StdLog, CtlT, Word := CtlWord9;
> TYPE Events = POINTER TO RECORD (Word.DocumentEvents) END;
> PROCEDURE ( e: Events ) New(), EMPTY;
> PROCEDURE ( e: Events ) Open(), EMPTY;
> PROCEDURE ( e: Events ) Close() ;
> BEGIN Log.String(" Word closed"); Log.Ln END Close;
> PROCEDURE Do* ( );
> VAR
> doc : Word.Document;
> events : Events;
> BEGIN
> doc := Word.NewDocument();
> doc.Application().PUTVisible( TRUE );
> NEW( events );
> CtlT.Connect( events, doc );
> END Do;
> END PrivWord.
>
> Thanks.
>
> Alexei Kraevskii
>
>
--------------------------------------------

To unsubscribe from this mailing list, send a message containing the word "unsubscribe" to:
   blackbox-request{([at]})nowhere.xy

To 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.xy

Current 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-1324395342_-_-
Content-type: application/rtf
Content-transfer-encoding: base64
Content-Disposition: attachment; filename="rtf-body.rtf"

e1xydGYxXGFuc2lcYW5zaWNwZzEyNTFcZnJvbXRleHQgXGRlZmYwe1xmb250dGJsDQp7XGYwXGZz
d2lzc1xmY2hhcnNldDIwNCBBcmlhbDt9DQp7XGYxXGZtb2Rlcm4gQ291cmllciBOZXc7fQ0Ke1xm
MlxmbmlsXGZjaGFyc2V0MiBTeW1ib2w7fQ0Ke1xmM1xmbW9kZXJuXGZjaGFyc2V0MCBDb3VyaWVy
IE5ldzt9fQ0Ke1xjb2xvcnRibFxyZWQwXGdyZWVuMFxibHVlMDtccmVkMFxncmVlbjBcYmx1ZTI1
NTt9DQpcdWMxXHBhcmRccGxhaW5cZGVmdGFiMzYwIFxmMFxmczIwIEFsZXhlaSxccGFyDQpccGFy
DQpIZXksIHByZXR0eSBuZWF0IVxwYXINClxwYXINCkkgc3BlY3VsYXRlIHRoYXQgdGhlIHByb2Nl
c3MgaW4gd2hpY2ggdGhlICd3b3JkIGRvY3VtZW50JyBpcyBydW5uaW5nIFxwYXINCmFjdHVhbGx5
IGdldHMgdGhlIENsb3NlIGV2ZW50LCBidXQgJ3RoYXQnIHByb2Nlc3MgaXMgcHJvYmFibHkgZGlm
ZmVyZW50IFxwYXINCmZyb20gdGhlIEJsYWNrYm94IHByb2Nlc3MgdGhhdCBzcGFubmVkIGl0LiAg
SnVzdCBhIGd1ZXNzLlxwYXINClxwYXINCi1Eb3VnXHBhcg0KXHBhcg0KXHBhcg0KXCdjMFwnZWJc
J2U1XCdlYVwnZjEgd3JvdGU6XHBhcg0KXHBhcg0KPiBIaSBBbGwgIVxwYXINCj4gIFxwYXINCj4g
V2hhdCBjYW4gYmUgd3Jvbmcgd2l0aCB0aGlzIGNvZGU/XHBhcg0KPiAoIldvcmQgY2xvc2VkIiBu
ZXZlciBhcHBlYXJzKVxwYXINCj4gIFxwYXINCj4gTU9EVUxFIFByaXZXb3JkO1xwYXINCj4gICAg
IElNUE9SVCBMb2cgOj0gU3RkTG9nLCBDdGxULCBXb3JkIDo9IEN0bFdvcmQ5O1xwYXINCj4gICAg
IFRZUEUgRXZlbnRzID0gUE9JTlRFUiBUTyBSRUNPUkQgKFdvcmQuRG9jdW1lbnRFdmVudHMpIEVO
RDtccGFyDQo+ICAgICBQUk9DRURVUkUgKCBlOiBFdmVudHMgKSBOZXcoKSwgRU1QVFk7XHBhcg0K
PiAgICAgUFJPQ0VEVVJFICggZTogRXZlbnRzICkgT3BlbigpLCBFTVBUWTtccGFyDQo+ICAgICBQ
Uk9DRURVUkUgKCBlOiBFdmVudHMgKSBDbG9zZSgpIDtccGFyDQo+ICAgICAgICAgQkVHSU4gTG9n
LlN0cmluZygiIFdvcmQgY2xvc2VkIik7IExvZy5MbiBFTkQgQ2xvc2U7XHBhcg0KPiAgICAgUFJP
Q0VEVVJFIERvKiAoICk7ICAgXHBhcg0KPiAgICAgICAgIFZBUlxwYXINCj4gICAgICAgICAgICAg
ZG9jIDogV29yZC5Eb2N1bWVudDtccGFyDQo+ICAgICAgICAgICAgIGV2ZW50cyA6IEV2ZW50cztc
cGFyDQo+ICAgICBCRUdJTlxwYXINCj4gICAgICAgICBkb2MgOj0gV29yZC5OZXdEb2N1bWVudCgp
O1xwYXINCj4gICAgICAgICBkb2MuQXBwbGljYXRpb24oKS5QVVRWaXNpYmxlKCBUUlVFICk7XHBh
cg0KPiAgICAgICAgIE5FVyggZXZlbnRzICk7XHBhcg0KPiAgICAgICAgIEN0bFQuQ29ubmVjdCgg
ZXZlbnRzLCBkb2MgKTtccGFyDQo+ICAgICBFTkQgRG87XHBhcg0KPiBFTkQgUHJpdldvcmQuXHBh
cg0KPiAgXHBhcg0KPiBUaGFua3MuXHBhcg0KPiAgXHBhcg0KPiBBbGV4ZWkgS3JhZXZza2lpXHBh
cg0KPiAgXHBhcg0KPiAgXHBhcg0KLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0t
LS0tLS0tLS1ccGFyDQpccGFyDQpUbyB1bnN1YnNjcmliZSBmcm9tIHRoaXMgbWFpbGluZyBsaXN0
LCBzZW5kIGEgbWVzc2FnZSBjb250YWluaW5nIHRoZSB3b3JkICJ1bnN1YnNjcmliZSIgdG86XHBh
cg0KICAgYmxhY2tib3gtcmVxdWVzdEBvYmVyb24uY2hccGFyDQpccGFyDQpUbyBnZXQgYSBsaXN0
IG9mIHZhbGlkIGUtbWFpbCBjb21tYW5kcyBhbmQgaW5zdHJ1Y3Rpb25zIG9uIHRoZWlyIHVzYWdl
LCBzZW5kIGEgbWVzc2FnZSBjb250YWluaW5nIHRoZSB3b3JkICJoZWxwIiB0byB0aGUgYWJvdmUg
YWRkcmVzcy5ccGFyDQpccGFyDQpTZW5kIGFueSBwcm9ibGVtIHJlcG9ydHMgb3IgcXVlc3Rpb25z
IHJlbGF0ZWQgdG8gdGhpcyBlbWFpbCBsaXN0IHRvIHRoZSBsaXN0IG93bmVyIGF0XHBhcg0KICAg
b3duZXItYmxhY2tib3hAb2Jlcm9uLmNoXHBhcg0KXHBhcg0KQ3VycmVudCBwb3N0aW5nIHBvbGlj
eTpccGFyDQpccGFyDQphKSBUbyBwb3N0IHlvdSBzaG91bGQgdXNlIHRoZSBzYW1lIGFkZHJlc3Mg
Ynkgd2hpY2ggeW91IGFyZSBzdWJzY3JpYmVkIHRvIHRoZSBtYWlsaW5nIGxpc3QuIFRoYXQgd2F5
LCB0aGUgbGlzdCBzZXJ2ZXIgd2lsbCByZWNvZ25pemUgeW91IGFzIHN1YnNjcmliZXIgYW5kIGZv
cndhcmQgeW91ciBwb3N0aW5nIGltbWVkaWF0ZWx5LCB3aXRob3V0IGNyZWF0aW5nIGFueSBvdmVy
aGVhZC5ccGFyDQpccGFyDQpiKSBJZiwgZm9yIHNvbWUgcmVhc29uLCB5b3UgY2Fubm90IHBvc3Qg
ZnJvbSB0aGUgYWRkcmVzcywgYnkgd2hpY2ggeW91IGFyZSBzdWJzY3JpYmVkLCB5b3VyIG1lc3Nh
Z2Ugd2lsbCBiZSBtb2RlcmF0ZWQgdG8gYXZvaWQgc3BhbS4gUGxlYXNlIHVuZGVyc3RhbmQgdGhh
dCBtb2RlcmF0aW9uIHdpbGwgb2Z0ZW4gY2F1c2Ugc29tZSBkZWxheSwgaW4gcGFydGljdWxhciBv
dmVyIHdlZWtlbmRzIG9yIGhvbHlkYXl9fQBkZGZjZDA

----boundary-LibPST-iamunique-1324395342_-_---
Received on Thu Aug 26 2004 - 19:50:41 UTC