Вызов функции Delphi из DLL написанной на C++?

Question

[Сергей]

Добрый день. Подскажите как правильно:
1) Передать из приложения написанного на Delphi указатель на функцию в DLL написанного на C++ ?
2) Вызывать функцию из DLL с передачей параметров и вернуть результат?

Ну собственно как я решал этот вопрос.

1. Описал типы функций.

TSendPacketStr = procedure (pck: string; const tid: integer; const ToServer: Boolean);stdcall;
  TGetConnectionName = function(id : integer):string;stdcall;
  TGetConnectioIdByName = function(name : string):integer;stdcall;
  PSendPacketStr = ^TSendPacketStr;
  PGetConnectionName = ^TGetConnectionName;
  PGetConnectioIdByName = ^TGetConnectioIdByName;

  TCFunctionStruct = record
  pSendPacketStr: PSendPacketStr;
  pGetConnectionName: PGetConnectionName;
  pGetConnectioIdByName: PGetConnectioIdByName;
  end;
  
  PCFunctionStruct = ^TCFunctionStruct;

2. Описал структуру функцию в которой буду передавать указатель в Delphi.

TSetCFStruct = function(const struct: PCFunctionStruct): Boolean; stdcall;

3. Создал переменную в которой буду хранить адрес функции.
SetCFStruct: TSetCFStruct;

4. Загружаю DLL. Нахожу адрес и записываю в переменную. А также передаю указатель на функцию.

@SetCFStruct:=GetProcAddress(hLib, 'SetFunctionStruct');
  if(Assigned(SetCFStruct)) then
  begin
      ScriptStruct.pSendPacketStr:=@TPluginStructClass.SendPacketStr;
      ScriptStruct.pGetConnectionName:=@TPluginStructClass.getConnectionName;
      ScriptStruct.pGetConnectioIdByName:=@TPluginStructClass.getConnectioidByName;
      SetCFStruct(@ScriptStruct);
  end;

5. Описываю структуру функций и функцию которые я буду принимать в DLL написанную на C++.

// Структура скриптов
struct ScriptStruct
{
	void(*sendPacketStr)(unsigned char* pck, const int tid, bool toServer);
	char*(*getConnectionName)(int);
	int(*getConnectioIdByName)(char* name);
};

/// Функция передачи указателя на ScriptStruct
DLL_API bool SetFunctionStruct(ScriptStruct * scriptStruct);

6. Далее в сpp пишу описание функци.

// Вызывается при включении плагина
DLL_API bool SetFunctionStruct(ScriptStruct * scriptStruct)
{
	OutputDebugStringA("SetFunctionStruct\n");
	_scriptStruct->getConnectionName(123); // <- Здесь я пытаюсь вызвать функцию из Delphi
	return true;
}

7. Запускаю проект через дебагер, подключаю DLL.
Мы приходим в точку останова функции

function TPluginStructClass.getConnectionName(id: integer): string; stdcall;
begin
  result := dmData.ConnectNameById(id); /// <- вызывается 
end;

После чего возникает креш.

Answer 1

[raincons]

Вы же в делфи функцию определили как stdcall, а в с - нет. Должно быть char* (__stdcall *getConnectionName)(int);
Ну и плюс сишный char* не равен делфевому string, char* будет PAnsiChar

Comments

[Сергей]

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

[raincons]

Сергей: Маловероятно, функция выполняется в контексте потока, в котором вызвана. Вам, скорее всего, надо обратить внимание на замечание Андрей : function не равен function of object, function of object имеет еще один неявный параметр Self экземпляра класса, для которого вызвана.

Answer 2

[Владимир Мартьянов]

В Delphi другая конвенция вызовов, параметры функции в регистрах, а не на стеке. Плюс может быть другая работа со стеком. В C/C++ - stdcall если я не ошибаюсь, параметры строго на стеке. Вот и получается что-то не то. Правильно погуглить или не использовать Delphi, поскольку подводных камней может быть еще очень и очень много.

Answer 3

[Андрей]

Как минимум у Вас вызов getConnectionName() расходится в 1 параметре,
т.к. Вы его описали как function(id : integer):string; stdcall;
а присвоили указатель на function(id : integer):string of object; stdcall;