Передайте класс Delphi функции/методу C++, который ожидает класс с методами __thiscall

Предположим, вы создали класс MSVC++ с VMT, который идеально соответствует VMT класса Delphi (я никогда этого не делал, я просто верю вам, что это возможно). Теперь вы можете вызывать виртуальные методы класса Delphi из кода MSVC++, единственная проблема заключается в соглашении о вызовах __thiscall. Поскольку __thiscall не поддерживается в Delphi, возможное решение — использовать виртуальные прокси-методы на стороне Delphi:

ОБНОВЛЕНО

type
  TTest = class
    procedure ECXCaller(AValue: Integer);
    procedure ProcProxy(AValue: Integer); virtual; stdcall;
    procedure Proc(AValue: Integer); stdcall;
  end;

implementation

{ TTest }

procedure TTest.ECXCaller(AValue: Integer);
asm
  mov   ecx,eax
  push  AValue
  call  ProcProxy
end;

procedure TTest.Proc(AValue: Integer);
begin
  ShowMessage(IntToStr(AValue));
end;

procedure TTest.ProcProxy(AValue: Integer);
asm
   pop  ebp            // !!! because of hidden delphi prologue code
   mov  eax,[esp]      // return address
   push eax
   mov  [esp+4],ecx    // "this" argument
   jmp  Proc
end;

Я не думаю, что вы можете разумно ожидать, что это сработает. В C++ нет стандартизированного ABI, а в Delphi нет ничего стандартизированного. Вы можете найти способ взломать что-то работающее, но нет гарантии, что он продолжит работать с будущими версиями Delphi.

Если вы можете изменить сторону MSVC, вы можете попробовать использовать COM (это именно то, для чего COM был разработан). Это будет уродливо и неприятно, но я действительно не понимаю, что вы сейчас веселитесь. Так что, возможно, это было бы улучшением.

Если вы не можете этого сделать, похоже, вам придется либо написать thunking layer, либо не использовать Delphi.

Не делайте этого.

Как упомянул Ори, C++ ABI не стандартизирован. Вы не можете и не должны ожидать, что это сработает, и если вам что-то удастся, это будет невероятно непортативный хак.

Стандартный способ начальной загрузки вызовов функций C++ через языковые границы заключается в использовании статических функций, в которых вы явно передаете параметр this:

class SHAPES_EXPORT CBox
{
  public:
    virtual void init(double volume) = 0;
    static void STDCALL CBox_init(CBox *_this, double volume) { _this->init(volume); }
    // etc. for other methods
};

(На самом деле статический метод технически должен быть объявлен extern "C", так как не гарантируется, что методы статического класса будут реализованы с помощью C ABI, но почти все существующие компиляторы делают это.)

Я совсем не знаю Delphi, поэтому я не знаю, как правильно справиться с этим на стороне Delphi, но это то, что вам нужно сделать на стороне C++. Если Delphi поддерживает соглашение о вызовах cdecl, вы можете удалить STDCALL выше.

Да, это раздражает тем, что вам приходится вызывать CBox_init вместо init из Delphi, но это просто то, с чем вам придется иметь дело. Вы можете переименовать CBox_init во что-то более подходящее, если хотите, конечно.

Вместо этого вы можете попробовать скомпилировать эти библиотеки DLL с помощью C++ Builder, C++ Builder имеет языковую поддержку для взаимодействия с Delphi. Начиная с версии BDS 2006, к компонентам, созданным в C++Builder, можно получить доступ в Delphi, так что старые простые классы будут работать нормально.

Если вы собираетесь использовать только MSVC, COM, возможно, является лучшим способом взаимодействия между двумя средами.

Я создал COM-подобные (облегченные) интерфейсы (абстрактные классы Delphi)

Почему вы не используете обычные COM-интерфейсы? Гарантируется бинарная совместимость с C++ и Delphi.

Единственная проблема заключается в том, что вы не можете избежать AddRef/Release/QueryInterface в Delphi. Но если вы реализуете подсчет ссылок как ничего не делающий (как это делает TComponent), то вы можете просто игнорировать эти методы со стороны C++.

В качестве дополнения к предложению по использованию c++Builder, которое может быть проблемой из-за возражений бюджета/наличия версии/"сборщика"

Я предлагаю простую оболочку MSVC, которая передает вызовы DLL Delphi. В этот момент вы можете выбрать, использовать COM или нет.

Вы можете использовать существующий код, который вы написали, практически как есть, без необходимости углубляться в ассемблер, чтобы исправить несоответствия соглашений о вызовах.