From: Ray Blaak <blaak@infomatch.com>
Subject: Re: AdaCOM.Interface makes COM so easy...
Date: 1999/05/12
Date: 1999-05-12T00:00:00+00:00 [thread overview]
Message-ID: <uhfpikw3y.fsf@infomatch.com> (raw)
In-Reply-To: 373932F8.7699944E@Botton.com
David Botton <David@Botton.com> writes:
> Now you can try out what a Thick COM binding will be like. This new
> binding to the beep example should give you an idea of how easy COM will
> be. Included in the zip file is the AdaCom.Interface package that makes
> it all possible.
Pretty cool! One minor comment. The GUIDs look like:
CLSID_BeepClass : aliased Stdole.GUID := ( 266399265 , 35490 , 4562 ,
(unsigned_char'Val( 129),unsigned_char'Val( 170),unsigned_char'Val( 68),
unsigned_char'Val( 69),unsigned_char'Val( 83),unsigned_char'Val( 84),
unsigned_char'Val( 0),unsigned_char'Val( 1)));
Could not something other than unsigned_char be used (i.e. some sort of 8-bit
integer), so that you could actually have cleaner declarations like:
CLSID_BeepClass : aliased Stdole.GUID :=
(266399265, 35490, 4562, (129, 170, 68, 69, 83, 84, 0, 1));
If unsigned_char is absolutely required, supply a conversion function so that
one do:
CLSID_BeepClass : aliased Stdole.GUID :=
GUID_Of(266399265, 35490, 4562, 129, 170, 68, 69, 83, 84, 0, 1);
--
Cheers, The Rhythm is around me,
The Rhythm has control.
Ray Blaak The Rhythm is inside me,
blaak@infomatch.com The Rhythm has my soul.
next prev parent reply other threads:[~1999-05-12 0:00 UTC|newest]
Thread overview: 3+ messages / expand[flat|nested] mbox.gz Atom feed top
1999-05-12 0:00 AdaCOM.Interface makes COM so easy David Botton
1999-05-12 0:00 ` Ray Blaak [this message]
1999-05-12 0:00 ` David Botton
replies disabled
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox