Question

我在delphi代码中定义了这个函数：

procedure TestFLASHWNew(
    name: array of string; 
    ID: array of Integer;
    var d1:double
); stdcall;

如何从C＃定义和调用它？

Answer 1

这是一个混乱的P / Invoke，因为你不能（尽管我公认的有限的知识）使用任何内置的简单编组技术。相反，您需要像这样使用Marshal.StructureToPtr：

<强> C＃

[StructLayout(LayoutKind.Sequential)]
public struct MyItem
{
    [MarshalAs(UnmanagedType.LPWStr)]
    public string Name;
    public int ID;
}

[DllImport(@"mydll.dll")]
private static extern void TestFLASHWNewWrapper(IntPtr Items, int Count, ref double d1);

static void Main(string[] args)
{
    MyItem[] items = new MyItem[3];
    items[0].Name = "JFK";
    items[0].ID = 35;
    items[1].Name = "LBJ";
    items[1].ID = 36;
    items[2].Name = "Tricky Dicky";
    items[2].ID = 37;

    IntPtr itemsPtr = Marshal.AllocHGlobal(Marshal.SizeOf(typeof(MyItem))*items.Length);
    try
    {
        Int32 addr = itemsPtr.ToInt32();
        for (int i=0; i<items.Length; i++)
        {
            Marshal.StructureToPtr(items[i], new IntPtr(addr), false);
            addr += Marshal.SizeOf(typeof(MyItem));
        }

        double d1 = 666.0;
        TestFLASHWNewWrapper(itemsPtr, items.Length, ref d1);
        Console.WriteLine(d1);
    }
    finally
    {
        Marshal.FreeHGlobal(itemsPtr);
    }
}

<强>的Delphi

TItem = record
  Name: PChar;
  ID: Integer;
end;
PItem = ^TItem;

procedure TestFLASHWNewWrapper(Items: PItem; Count: Integer; var d1: Double); stdcall;
var
  i: Integer;
  name: array of string;
  ID: array of Integer;
begin
  SetLength(name, Count);
  SetLength(ID, Count);
  for i := 0 to Count-1 do begin
    name[i] := Items.Name;
    ID[i] := Items.ID
    inc(Items);
  end;
  TestFLASHWNew(name, ID, d1);
end;

我用一个调用你的TestFLASHWNew函数的包装函数实现了它，但你无疑会想要重新编写它。

我假设您正在使用带有Unicode字符串的Delphi。如果没有，请将[MarshalAs(UnmanagedType.LPWStr)]更改为[MarshalAs(UnmanagedType.LPStr)]。

Answer 2

Delphi函数有两个问题需要非Delphi代码调用：

它使用Delphi字符串，这是一种专有实现。
它使用开放数组，这也是一个专有实现。

了解如何实现开放阵列，以及如何设置堆栈以传递它们可以允许（记录在案）另一侧的一些“黑客”可用于从堆栈中读取该参数。使用字符串会有点困难，因为它们的处理更复杂。

你可以做什么 - 如果你不能改变这个功能 - 就是定义一个围绕该函数的更简单的包装器，可以从C＃（或任何其他语言）调用，使用PChars而不是字符串并明确地传递数组大小

如何在C＃中的delphi dll中调用此函数

2 个答案: