Как правильно P / вызвать эту функцию?

Question

Как правильно P / вызвать эту функцию?

const char * GetReplyTo(const char * pszInText, char * pszOutText, int len)

Я пытался сделать это таким образом и получил исключение нарушения прав доступа:

[DllImport("SmartBot.dll", EntryPoint = "GetReplyTo")]
public static extern IntPtr GetReplyTo([In] [MarshalAs(UnmanagedType.LPStr)] string pszInText, IntPtr pszOutText, int len);

// somewhere below:
IntPtr pbuf = GCHandle.Alloc(new byte[1000], GCHandleType.Pinned).AddrOfPinnedObject();
GetReplyTo("hi", pbuf, 2);

UPDATE Вот заголовок паскаля для этого файла:

 {***************************************************************************
 * SmartBot Engine - Boltun source code,
 * SmartBot Engine Dynamic Link Library
 *
 * Copyright (c) 2003 ProVirus,
 * Created Alexander Kiselev Voronezh, Russia
 ***************************************************************************
 SmartBot.pas : Header Pascal for SmartBot Engine.
 }

unit SmartBot;

interface

{
function GetReplyTo(const InText: PChar; OutText: PChar; Len: integer): PChar;stdcall;export;
function LoadMind(MindFile: PChar): integer;stdcall;export;
function SaveMind(MindFile: PChar): integer;stdcall;export;
}
function GetReplyTo(const InText: PChar; OutText: PChar; Len: integer): PChar;stdcall;external 'smartbot.dll' name 'GetReplyTo';
function LoadMind(MindFile: PChar): integer;stdcall;external 'smartbot.dll' name 'LoadMind';
function SaveMind(MindFile: PChar): integer;stdcall;external 'smartbot.dll' name 'SaveMind';

implementation
end.

ОБНОВЛЕНИЕ 2 Работает. Похоже, я напутал с функцией инициализации. Возвращает 1 при успехе и 0 при неудаче. Weird.

Answer 1

Вы, вероятно, не хотите IntPtr здесь. Вы делаете слишком много работы для себя. Для параметра выходной строки вы должны использовать StringBuilder. Возможно, вам потребуется указать CharSet в объявлении P / Invoke, так как функция, похоже, использует один байт на символ.

[DllImport("SmartBot.dll", CharSet = CharSet.Ansi)]
public static extern string GetReplyTo(string pszInText,
    StringBuilder pszOutText, int len);

var stringBuilder = new StringBuilder(1000);
GetReplyTo("hi", stringBuilder, stringBuilder.Capacity);

Также убедитесь, что вы указываете правильное соглашение о вызовах (свойство CallingConvention в атрибуте DllImport).

Answer 2

вы должны использовать StringBuilder для второго параметра, который вы инициализируете для размера len