Как назвать эту функцию delphi .dll с C#?

Question

// Дельфи код (Дельфи версии: Turbo Delphi Explorer (это Delphi 2006))

function GetLoginResult:PChar; 
    begin 
    result:=PChar(LoginResult); 
    end; 

// C# код для использования выше функции Дельфах (я использую Unity3D, в C#)

[DllImport ("ServerTool")] 
private static extern string GetLoginResult(); // this does not work (make crash unity editor) 

[DllImport ("ServerTool")] 
[MarshalAs(UnmanagedType.LPStr)] private static extern string GetLoginResult(); // this also occur errors 

Каков правильный способ использования этой функции в C#?

(для использования в также в Дельфах, код подобен, , если (событие = 1) и (тэг = 10), то WriteLn ('Вход результат:', GetLoginResult);)

Answer 1

Память для строка принадлежит вашему коде Delphi, но ваш код p/invoke приведет к тому, что маршаллер вызовет CoTaskMemFree на эту память.

Что вам нужно сделать, так это сообщить маршаллеру, что он не должен брать на себя ответственность за освобождение памяти.

[DllImport ("ServerTool")] 
private static extern IntPtr GetLoginResult(); 

Затем с помощью Marshal.PtrToStringAnsi() преобразовать возвращаемое значение в C# строка.

IntPtr str = GetLoginResult(); 
string loginResult = Marshal.PtrToStringAnsi(str); 

Вы также должны убедиться, что матч соглашения по вызову, объявив функцию Delphi быть stdcall:

function GetLoginResult: PChar; stdcall; 

Хотя бывает так, что это соглашение о вызове неправильно матч не имеет значения для функция, не имеющая параметров, и возвращаемое значение размера указателя.

Для того, чтобы все это работало, строковая переменная Delphi LoginResult должна быть глобальной переменной, чтобы ее содержимое было действительным после того, как возвращается GetLoginResult.