如何在 C++Builder 中使用 VCL 组件转换接口

Question

这个问题中接受的答案显示了如何在 Delphi.

中检查和使用 VCL 派生对象上的接口

How to use Interface with VCL Classes - Part 2

procedure Test;
var
  O1: TSomeThing;
  Intf: ISomething;
begin
  O1 := TSomeThing.Create(nil);

  if Supports(O1, ISomething, Intf) then
  begin
    Intf.DoSomething;
  end;

基本上，我想在 C++Builder 中做同样的事情，但还没有弄清楚如何在 C++ 中使用 "Supports"。

当使用 VCL 派生的类...

时，尝试使用 <dynamic_cast> 在编译时失败

TSomeThing * O1;
ISomething *i = dynamic_cast<ISomething*>(O1);  // Error: Can't cast

建议的 Inheritance and Interfaces 文章提到 TObject::GetInterface() 但是当我尝试这样做时出现错误 "Pure Virtual Function called"。

_di_IFoo mc;

if (this->GetInterface(mc)) ...

更新：首先，我添加接口的对象是现有的 VCL 控件，因此不是从 TInterfacedObject.

派生的

其次 - 不涉及 COM - 我希望！使用接口纯粹是为了让我可以将接口的概念用于C++Builder（至少在2010年）不支持的VCL组件的多重继承。

所以我的界面看起来像这样（注意没有 __addref/__release 等......）：

 __interface INTERFACE_UUID("{C527B88F-3F8E-1134-80e0-01A04F57B270}") IMyInterface : public IInterface
 {
 public:
     virtual UTF8String getHello() = 0;
 };

我的对象看起来像这样

class TMyPanel: public TPanel, IMyInterface
{
    ...
public:
    UTF8String getHello() { return "Hello from a TMyPanel";}
    ...
};

class TMyLabel: public TLabel, IMyInterface
{
    ...
public:
    UTF8String getHello() { return "Hello from a TMyLabel";}
    ...
};

这很简单，如 Embarcadero 接口文档中所述。

但是，如何判断某个特定的 TObject 是否支持 IMyInterface？？？

基于 system.pas 中的 TObject.GetInterfaceEntry()：

，以下模板函数为我完成了此操作

template<typename T>
T* getInterface(TObject *obj)
{
    T *intf = NULL;

    PInterfaceEntry interfaceEntry = obj->GetInterfaceEntry(__uuidof(T) );
    if (interfaceEntry && interfaceEntry->IOffset != 0)
    {
        intf = (T*)(((char *)obj) + interfaceEntry->IOffset);
    }

    return intf;
}

我们这样使用它：

IMyInterface *myIf = getInterface<IMyInterface>(aRandomTObject);
if (myIf)
{
    UTF8String s = myIf->getHello();
}

请告诉我是否有比这更好的方法，因为 VTable/Pointer 洞穴探险让我牙痒痒...

Answer 1

您在 C++ 中使用与在 Delphi 中相同的方法 - 通过 Sysutils::Supports() 函数。

这对我来说很有效：

//---------------------------------------------------------------------------

#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <System.Classes.hpp>
#include <Vcl.Controls.hpp>
#include <Vcl.StdCtrls.hpp>
#include <Vcl.Forms.hpp>
#include <Vcl.ExtCtrls.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:    // IDE-managed Components
    void __fastcall FormClick(TObject *Sender);
private:    // User declarations
    TPanel *p;
    TLabel *l;
    void Test();
public:     // User declarations
    __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm7 *Form1;
//---------------------------------------------------------------------------
__interface INTERFACE_UUID("{C527B88F-3F8E-1134-80e0-01A04F57B270}") IMyInterface : public IInterface
{
public:
    virtual UTF8String getHello() = 0;
};

#if !defined(INTFOBJECT_IMPL_IUNKNOWN)
#define INTFOBJECT_IMPL_IUNKNOWN(BASE) \
    ULONG   __stdcall AddRef() { return BASE::_AddRef();} \
    ULONG   __stdcall Release(){ return BASE::_Release();} \
    HRESULT __stdcall QueryInterface(REFIID iid, void** p){ return BASE::QueryInterface(iid, p);} 
#endif

class TMyPanel : public TPanel, public IMyInterface
{
    INTFOBJECT_IMPL_IUNKNOWN(TPanel)
public:
    __fastcall TMyPanel(TComponent *Owner) : TPanel(Owner) {}
    UTF8String getHello() { return "Hello from a TMyPanel"; }
};

class TMyLabel : public TLabel, public IMyInterface
{
    INTFOBJECT_IMPL_IUNKNOWN(TLabel)
public:
    __fastcall TMyLabel(TComponent *Owner) : TLabel(Owner) {}
    UTF8String getHello() { return "Hello from a TMyLabel"; }
};
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
    p = new TMyPanel(this);
    p->Parent = this;

    l = new TMyLabel(this);
    l->Parent = p;
    l->Caption = L"Test";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormClick(TObject *Sender)
{
    Test();
}
//---------------------------------------------------------------------------
void TForm1::Test()
{
    DelphiInterface<IMyInterface> Intf;

    if (Supports(p, __uuidof(IMyInterface), (void*)&Intf))
    {
        UTF8String s = Intf->getHello();
        ShowMessage(s);
        Intf.Release();
}

    if (Supports(l, __uuidof(IMyInterface), (void*)&Intf))
    {
        UTF8String s = Intf->getHello();
        ShowMessage(s);
        Intf.Release();
    }
}
//---------------------------------------------------------------------------

如何在 C++Builder 中使用 VCL 组件转换接口

How to cast Interfaces with VCL components in C++Builder

delphi

interface

c++builder