如何使用Dllimport在C＃中调用此Delphi方法？

Question

新程序员需要帮助！

编译到DLL中的Delphi代码

function SetCurrentSerial(Size : Integer; Msg : Pointer) : Integer stdcall;
var
  TempByte : PByte;
  TempStr : string;
  i: Integer;
begin
  Result := 0;
  TempByte := Msg;
  TempStr := '';
  for i := 0 to Size - 1 do
  begin
    TempStr := TempStr + ' ';
  end;

  for i := 0 to Size - 1 do
  begin
    TempStr[i+1] := Chr(TempByte^);
    Inc(TempByte);
  end;

  if not DLLClass.SelectDeviceSerial(TempStr) then
  begin
    Result := -1;
  end;
end;

C＃代码

//Import a Function Pointer
[DllImport("Test.dll", CallingConvention= CallingConvention.StdCall, CharSet =  CharSet.Ansi)]
public unsafe static extern int SetCurrentSerial(int Size, byte[] Msg);

我需要将指针值，大小和消息存储在缓冲区中，然后在控制台窗口中打印该值。

我将不胜感激完整构建的代码。 先感谢您。

这是我到目前为止尝试过的代码。 // C＃代码

class Program
{
    [DllImport("Test.dll")]
    public unsafe static extern int SetCurrentSerial(int Size, void* Msg); 

    unsafe static void Main()
     {
        int Res;

        byte[] buffer = new byte[1024];

        Res = SetCurrentSerial(255, &buffer);

        Console.WriteLine("%s\n", buffer);
     }
}

Answer 1

您的DLL函数设计不正确。 您正在将字符串从调用代码传递到DLL。 这真的很简单，您可以删除几乎所有代码。 Delphi代码应如下所示：

function SetCurrentSerial(Serial: PAnsiChar): LongBool; stdcall;
begin
  Result := DLLClass.SelectDeviceSerial(Serial);
end;

然后，C＃代码应为：

[DllImport("Test.dll", CallingConvention = CallingConvention.StdCall, 
    CharSet = CharSet.Ansi)]
public static extern bool SetCurrentSerial(string Serial);

像这样调用函数：

bool succeeded = SetCurrentSerial(Serial);
if (!succeeded)
{
    // handle error
}

我已经用指示成功或失败的布尔值替换了您的整数返回值。 您是否希望还原为如下所示的整数：

德尔福

function SetCurrentSerial(Serial: PAnsiChar): Integer; stdcall;
begin
  if DLLClass.SelectDeviceSerial(Serial) then begin
    Result := 0;
  end else begin
    Result := -1;
  end;
end;

C＃

[DllImport("Test.dll", CallingConvention = CallingConvention.StdCall, 
    CharSet = CharSet.Ansi)]
public static extern int SetCurrentSerial(string Serial);

---

更新

显然，您不能更改此DLL。 真可惜，因为它的设计和实现确实非常糟糕。 但是，要从C＃调用该函数，您需要像这样声明p / invoke：

[DllImport("Test.dll", CallingConvention = CallingConvention.StdCall)]
public static extern int SetCurrentSerial(int Size, byte[] Msg);

然后这样称呼它：

byte[] Msg = Encoding.Default.GetBytes(serial);
int retval = SetCurrentSerial(Msg.Length, Msg);
if (retval != 0)
{
    // handle error
}