c# - 将 Pchar Delphi DLL 导入到 C#？

Question

我在 delphi 中有一个程序:

procedure PasswordDLL(month  integer; password  pchar); 
export;

程序应该将密码输出到我传入的“password”pchar..从我谷歌..和阅读..引用:HERE和 HERE

我想出了:

[DllImport(
    "DelphiPassword.dll",
    CallingConvention = CallingConvention.StdCall,
    CharSet = CharSet.Ansi,
EntryPoint = "PasswordDLL")]
public static extern void PasswordDLL(    
    int month,
    [MarshalAs(UnmanagedType.LPStr)] string password
    ); 

然后当我打电话时:

string pass = "";
PasswordDLL(2, pass);

所以密码输出到“pass”字符串。

但我会得到未处理的 BadImageFormatException:尝试加载格式不正确的程序。 (HRESULT 异常:0x8007000B)

听起来我用的函数格式不对？我想知道我是否为 PChar 使用了不正确的 UnmanagedType，但从读数来看，它是 LPWStr 和 LPStr..我错过了什么吗？

提前致谢...

Answer 1

首先，由于您没有说明您使用的是哪个 Delphi 版本，我会假设 Delphi 6 回答，除了我熟悉它之外没有其他原因。

您的 Delphi 过程未在其声明中指定调用约定，因此它不会按照您的导入使用 stdcall。它将使用默认的 Delphi register 约定，将前几个参数放在寄存器中而不是堆栈中。如果您可以更改您的 Delhpi DLL，请在声明和重建之后添加 stdcall;，您的调用约定将匹配。

下表总结了调用约定。

Directive Parameter order Clean-up Passes parameters in registers?
--------- --------------- -------- -------------------------------
register  Left-to-right   Routine  Yes
pascal    Left-to-right   Routine  No
cdecl     Right-to-left   Caller   No
stdcall   Right-to-left   Routine  No
safecall  Right-to-left   Routine  No

查看 .NET 文档，似乎没有与 Delphi 的 register 约定相匹配的调用约定(请参见下表)，所以我认为您唯一的选择可能是更改 Delphi DLL 中的约定。

Member name   Description
-----------   ------------------------ 
Cdecl         The caller cleans the stack. This enables calling functions with   varargs, which makes it appropriate to use for methods that accept a variable number of parameters, such as Printf.
FastCall      This calling convention is not supported.
StdCall       The callee cleans the stack. This is the default convention for calling unmanaged functions with platform invoke.
ThisCall      The first parameter is the this pointer and is stored in register ECX. Other parameters are pushed on the stack. This calling convention is used to call methods on classes exported from an unmanaged DLL.
Winapi        Supported by the .NET Compact Framework. This member is not actually a calling convention, but instead uses the default platform calling convention. For example, on Windows the default is StdCall and on Windows CE .NET it is Cdecl.

您的 Delphi (6) Pchar(指向空终止 ANSI 字符串的指针)编码看起来是正确的。