求助：将几句Delphi代码翻译为BCB代码。
TXXXX = class(TInterfacedObject, IOleObject, IViewObject)
private
// IOleObject
function SetClientSite(const clientSite: IOleClientSite): HResult; stdcall;
...

// IViewObject
...
end;

这样的Delphi类如何翻译为BCB的代码？
注：IOleObject, IViewObject均为COM接口。

[解决办法]

C/C++ code

#include <comdef.h>class TXXXX: public TInterfacedObject, IOleObject, IViewObject{private:    // IOleObject    HRESULT __stdcall SetClientSite(const IOleClientSite *clientSite);    ...    // IViewObject    ...};
[解决办法]
Delphi源码可以在BCB中直接编译。