Интерфейсы в C++ и Delphi трудности перевода

[Celestia]

Здравствуйте. Подскажите пожалуйста, как можно реализовать на C++ библиотеку экспортирующую реализацию интерфейса. Приведу код на Delphi:

Код библиотеки:

Type
ISampleInterface = interface
 Function SomeOne: boolean;
end;

TSampleInterface = class(TInterfacedObject, ISampleInterface);
 Function SomeOne: boolean;
end;

....

Function GetSampleInterface: ISampleInterface ;
begin
 Result:=TSampleInterface.Create;
end;

exports GetSampleInterface;

Код EXEшника:

Type
ISampleInterface = interface
 Function SomeOne: boolean;
end;

var
SampleInterface : ISampleInterface ;

....

Function GetSampleInterface: ISampleInterface ; external 'SampleInterflib.dll';

....

Procedure MyProc;
begin
 SampleInterface :=GetSampleInterface;
 SampleInterface.SomeOne;
end;

И будут ли совместимы EXEшник напианный на Delphi и библиотека на C++ ?

Спасибо.

[Krok27]

Ну что-типа:

 class ISampleInterface
{
   private:
     ISampleInterface(){}
    
   public:   
    virtual bool SomeOne()=0;
};

class TSampleInterface:publicISampleInterface
{
 public:
  virtual bool SomeOne(){}
};

ISampleInterface __declspec(dllexport) __stdcall GetSampleInterface()
{
     return new TSampleInterface();
}

И будут ли совместимы EXEшник напианный на Delphi и библиотека на C++ ?

Ога.

[Celestia]

Сообщение от Krok27

Ну что-типа:

 class ISampleInterface
{
   private:
     ISampleInterface(){}
    
   public:   
    virtual bool SomeOne()=0;
};

class TSampleInterface:publicISampleInterface
{
 public:
  virtual bool SomeOne(){}
};

ISampleInterface __declspec(dllexport) __stdcall GetSampleInterface()
{
     return new TSampleInterface();
}

Ога.

пока что то не выходит, получаю invalid abstract return. Ругается на ISampleInterface __declspec(dllexport) __stdcall GetSampleInterface()

[Krok27]

ух тыж:

ISampleInterface* __declspec(dllexport) __stdcall GetSampleInterface()
{
     return new TSampleInterface();
}