From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-1.9 required=5.0 tests=BAYES_00 autolearn=ham
	autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,d7cc034a367221eb
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2001-02-08 11:45:40 PST
Path: 
 supernews.google.com!sn-xit-02!supernews.com!nntp-relay.ihug.net!ihug.co.nz!news-hog.berkeley.edu!ucberkeley!enews.sgi.com!coop.net!newsfeed1.global.lmco.com!svlnews.lmms.lmco.com!not-for-mail
From: Robert Brantley <robert.brantley@lmco.com>
Newsgroups: comp.lang.ada
Subject: Re: accessing subprogram & inheritance problem
Date: Thu, 08 Feb 2001 12:48:56 -0600
Organization: Lockheed Martin Corporation
Message-ID: <3A82EA18.D5EA44A1@lmco.com>
References: <3A81FC28.90BD0ABB@lmco.com>
 <Anpg6.66322$R5.3481885@news1.frmt1.sfba.home.com>
NNTP-Posting-Host: 138.209.253.101
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
X-Mailer: Mozilla 4.75 [en] (WinNT; U)
X-Accept-Language: en,pdf
Xref: supernews.google.com comp.lang.ada:5016
Date: 2001-02-08T12:48:56-06:00
List-Id: <comp.lang.ada>

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.