C#结构到delphi打包记录

C#结构到delphi打包记录,c#,delphi,pinvoke,C#,Delphi,Pinvoke,我有一个从delphi dll中提取的函数 function func_name(par1: Byte; par2: struct1) : boolean 结构1由以下部分组成: struct1 = packed record Number: Byte; arrStr : array[1..8] of struct2; end 此外,结构2由以下部分组成: struct2 = packed record Code: Byte; Price: Single; e

我有一个从delphi dll中提取的函数

function func_name(par1: Byte; par2: struct1) : boolean
结构1由以下部分组成:

struct1 = packed record
    Number: Byte;
    arrStr : array[1..8] of struct2;
end
此外,结构2由以下部分组成:

struct2 = packed record
    Code: Byte;
    Price: Single;
end
现在使用C#我试图通过以下方式将相同的时间结构传递给delphi

首先,我创建了我的结构:

[StructLayout(LayoutKind.Sequential, Pack = 1, CharSet = CharSet.Ansi)]
public struct struct2
{
    public byte code;
    public Single price;
}

[StructLayout(LayoutKind.Sequential, Pack = 1, CharSet = CharSet.Ansi)]
public struct struct1
{
    public byte Number;

    [MarshalAs(UnmanagedType.LPArray)]
    public struct2[] Prices;

    public struct1(int elements)
    {
        Number = 0;
        arrStr = new struct2[elements];
    }
}
注意
元素
始终为8

因此,当我尝试运行代码以填充数组并将其传递给函数时,我得到以下错误:


无效的托管/非托管类型组合(数组字段必须与ByValArray或SafeArray配对)。“

数组在结构中是内联的。它不是指针。因此

[MarshalAs(UnmanagedType.LPArray)]
你必须使用

[MarshalAs(UnmanagedType.ByValArray, SizeConst = 8)]

@杰瑞,没有not@David这就是为什么当我看到你的答案时(在我发布后的几秒钟内),我立即删除了我的评论。我只记得许多类似的情况是通过不使用“打包”来修复的“记录和使用普通记录。@杰瑞重要的是双方都匹配。干得好!它工作得很好!我尝试了byValArray,但没有定义大小!再次感谢!FWIW文档说:当MarshalAsAttribute.Value属性设置为ByValArray时,必须设置SizeConst字段以指示数组中的元素数。当需要区分字符串类型时,ArraySubType字段可以选择性地包含数组元素的非托管类型。只能在其元素在结构中显示为字段的数组上使用此非托管类型。你可以忽略最后一句中的语法混乱!!非常感谢@david