如何正确P/Invoke此函数

本文关键字：函数 Invoke 何正确 | 更新日期: 2023-09-27 17:59:30

如何正确p/Invoke此函数？

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);

更新这是这个文件的pascal头：

 {***************************************************************************
 * 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。奇怪的

如何正确P/Invoke此函数

您可能不想要IntPtr。你给自己做的工作太多了。对于输出字符串参数，应该使用StringBuilder。您可能需要在P/Invoke声明中指定CharSet，因为该函数似乎每个字符使用一个字节。

[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);

还要确保指定了正确的调用约定（DllImport属性上的CallingConvention属性）。

您应该使用StringBuilder作为第二个参数，将其初始化为len 大小

相关文章：