在 Marshal.PtrToStructure 中没有获得正确的字符数

Question

我已经根据从 delphi 中读取二进制文件和从 delphi 打包记录中正确的结构布局提出了当前的 c# 结构

现在我的问题是我没有从文件中获得正确的值

[StructLayout(LayoutKind.Sequential, CharSet = CharSet.Ansi)]
struct test {
  [MarshalAs(UnmanagedType.ByValTStr, SizeConst = 3)]
  string field1;
  ...
}

她的就是德尔福记录

char3 = Array[0..2] of Char;

test = Record
  field1: char3;
  ...

编辑：

正如我在对大卫回答的评论中所说的那样。 问题是我缺少部分字符串。 按照大卫的答案使用byte[]而不是string ，我的代码现在可以工作了。

以防万一有人在C# 中偶然发现了这条delphi 记录，这有点令人困惑，因为它假定 delphi 字符串以空字符结尾。

同样关于StructLayout Pack属性，即使您正在转换的 Delphi 记录没有指示它，也只需尝试将其设置为 1。 如果我遗漏了有关Pack请在评论中纠正我。 谢谢

至于我的最终结构：

[StructLayout(LayoutKind.Sequential, Pack = 1)]
struct test {
  [MarshalAs(UnmanagedType.ByValArray, SizeConst = 3)]
  byte[] field1;
  ...
}

Answer 1

问题中代码的正确性完全取决于Char是什么。

• 在 Delphi 2009 及更高版本中， Char是WideChar的别名，它是一种 16 位类型。
• 在早期版本中， Char是AnsiChar的别名， AnsiChar是 8 位类型。

因此，如果您使用的是早于 Delphi 2009 的 Delphi 版本，则您的代码是正确的。否则，您的 C# 代码应将CharSet.Ansi替换为CharSet.Unicode 。

另一个区别是 C# 代码坚持以空值结尾的数组，而 Delphi 代码则不需要。 因此，如果您的 Delphi 代码想要将所有三个元素都用作非空值，那么您需要避免在 C# 端使用string 。 它会变成：

[StructLayout(LayoutKind.Sequential)]
struct test {
  [MarshalAs(UnmanagedType.ByValArray, SizeConst = 3)]
  byte[] field1;
  ...
}

对于 Unicode 之前的 Delphi，或

[StructLayout(LayoutKind.Sequential)]
struct test {
  [MarshalAs(UnmanagedType.ByValArray, SizeConst = 3)]
  char[] field1;
  ...
}

对于 Unicode Delphi。