Re: accessing subprogram & inheritance problem

[tmoran@acm.org]

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