Экспортные имена функций из C++ Dll в Delphi

Question

Я рабочий DLL написаны на C++ с использованием Visual Studio 2015. Он содержит множество функций вида:

BECALIBRARY_API int Functions::GetVersion(char* ptrVersionString) 
{ 
    char * Version; 
    Version = "Test 123456"; 
    strcpy_s(ptrVersionString, strlen(Version) + 1, Version); 
    return strlen(Version); 
} 

Функция Delphi получить это:

unit uBecaLibrary; 

interface 

function getVersion(Str1: pAnsichar): integer; stdCall; 

implementation 

function getVersion; external 'BecaLibrary.dll' index 1; 
//function getVersion; external 'BecaLibrary.dll' name 'getVersion'; 

end. 

Это прекрасно работает, за исключением того, что я должен поддерживать код Delphi, используя номера индексов DLL.

Что мне нужно сделать как стороне C++, так и стороне Delphi Seattle Windows 10 для использования имен функций, а не индексов.

Answer 1

Вы можете использовать dumpbin утилиту для просмотра экспортированных имена, как

"C:\Program Files (x86)\Microsoft Visual Studio 14.0\VC\bin\dumpbin.exe" /EXPORTS BecaLibrary.dll

имен, вероятно, будет покалеченные, но это не должно быть проблемой.

Если вы можете изменить DLL, вы можете добавить следующие внутри тела функции экспорта unmangled Name

#pragma comment(linker, "/EXPORT:" __FUNCTION__ "=" __FUNCDNAME__) 

Answer 2

Вы можете просто использовать имя функции на последнем, как этот

var 
function getVersion(Str1: pAnsichar): integer; stdCall; external 'BecaLibrary.dll' name 'GetVersion'; 

implementation 

Для DLL

Чтобы экспортировать неразделенное имя, вы можете связать его с помощью файла определения модуля (.def), который определяет неразделенное имя в разделе EXPORTS. Для получения дополнительной информации см. EXPORTS. Еще один способ экспортировать unecorated name - использовать директиву
#pragma comment(linker, "/export:alias=decorated_name")
в исходном коде.

Когда вы объявляете dllexport или dllimport, вы должны использовать расширенный синтаксис атрибута и ключевое слово __declspec.
Источник: https://msdn.microsoft.com/en-us/library/3y1sfaz2.aspx