From: Robert Brantley <robert.brantley@lmco.com>
Subject: Re: accessing subprogram & inheritance problem
Date: Thu, 08 Feb 2001 12:48:56 -0600
Date: 2001-02-08T12:48:56-06:00 [thread overview]
Message-ID: <3A82EA18.D5EA44A1@lmco.com> (raw)
In-Reply-To: Anpg6.66322$R5.3481885@news1.frmt1.sfba.home.com
Ahhhh Cool.
Thanks,
Robert brantley
tmoran@acm.org wrote:
> >How do you implement COM type interfaces in Ada?
> Roughly:
> type QueryInterface_Spec is access function (This : access VTable_Type;
> riid:Pointer_To_Constant_GUID;
> ppvObj:Pointer_To_Interface) return HResult;
> pragma Convention(StdCall,QueryInterface_Spec);
> type AddRef_Spec is access function (This : access VTable_Type)
> return UInt;
> pragma Convention(StdCall,AddRef_Spec);
> ...
> type VTable_Type is record
> QueryInterface : QueryInterface_Spec;
> AddRef : AddRef_Spec;
> ...
> Look at David Botton's GNATCOM at www.adapower.com for automatic tools,
> explanation, etc.
prev parent reply other threads:[~2001-02-08 18:48 UTC|newest]
Thread overview: 6+ messages / expand[flat|nested] mbox.gz Atom feed top
2001-02-05 23:12 accessing subprogram & inheritance problem VC
2001-02-06 4:43 ` tmoran
2001-02-06 7:59 ` Sven Nilsson
2001-02-08 1:53 ` Robert Brantley
2001-02-08 4:36 ` tmoran
2001-02-08 18:48 ` Robert Brantley [this message]
replies disabled
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox