来自 delphi 打包记录的正确结构布局

Question

我正在将 delphi 应用程序转换为 C#。有一堆packed records，根据我几周前问的类似问题，转换成类会更好。但是，有人告诉我需要将它们转换为结构，我需要一些帮助。我将使用 BinaryReader 从文件中读取并将值分配给结构内部的字段。

*请注意，我正在读取的文件是使用 Delphi 和打包记录制作的。

这是一个示例结构：

Delphi:

Testrec = packed record
    now: TDateTime;
    MinLat: longint;
    MinLong: longint;
    Firsttime: TDateTime;
    MinAlt: single;
    MinFirst: single;
    MinDepth: single;
    MinSpeed: single;
    MinBot: single;
    res3: single;
    res4: single;
    res5: single;
    res6: single;
    MaxLat: longint;
    MaxLong: longint;
    Lasttime: TDateTime;
    MaxAlt: single;
    MaxFirst: single;
    MaxDepth: single;
    MaxSpeed: single;
    MaxBot: single;
    res9: single;
    res10: single;
    res11: single;
    res12: single;
    DataFlags: longint;
    ReviewFlags: longint;
    res13: longint;
    FirstPost: longint;
end;

这是我的 C# 版本：

public struct Testrec
{
    double now;
    int MinLat;
    int MinLong;
    double Firsttime;
    float MinAlt;
    float MinFirst;
    float MinDepth;
    float MinSpeed;
    float MinBot;
    float res3;
    float res4;
    float res5;
    float res6;
    int MaxLat;
    int MaxLong;
    double Lasttime;
    float MaxAlt;
    float MaxFirst;
    float MaxDepth;
    float MaxSpeed;
    float MaxBot;
    float res9;
    float res10;
    float res11;
    float res12;
    int DataFlags;
    int ReviewFlags;
    int res13;
    int FirstPost;
 }

我需要做 StructLayout、Size 和 CharSet 吗？

编辑：这是有关读取二进制文件的相关 delphi 代码：

Testrec Header;
HeaderSize = 128;

RampStream:=TFileStream.Create(FilePath,fmOpenReadWrite OR fmShareExclusive );

RampStream.Read(Header,HeaderSize);
StartTime:=Header.Firsttime;
EndTime:=Header.Lasttime;

这是我设置二进制文件的方法 Reader:

RampStream = new BinaryReader(new FileStream(RampName, FileMode.Open, FileAccess.ReadWrite, FileShare.None));

Answer 1

您需要指定顺序布局和 1 的打包值。

[StructLayout(LayoutKind.Sequential, Pack = 1)]

因为没有文本成员，所以不需要指定CharSet。你应该让编译器计算结构的大小。现在，指定此后，您将能够将整个记录读入内存，然后将其直接写入此 C# 结构。像这样：

Testrec ReadRecFromStream(Stream stream)
{
    byte[] buffer = new byte[Marshal.SizeOf(typeof(Testrec))];
    stream.Read(buffer, 0, buffer.Length);
    GCHandle handle = GCHandle.Alloc(buffer, GCHandleType.Pinned);
    try
    {
        return (Testrec)Marshal.PtrToStructure(handle.AddrOfPinnedObject(), typeof(Testrec));
    }
    finally
    {
        handle.Free();
    }
}

但是，您说过要一次读取成员并分配给 C# 结构中的相应字段。在那种情况下，没有必要寻求二进制布局等价，因为您不会使用它。如果您要一次读取一个成员，则不需要 StructLayout 属性。您无需声明任何未使用的成员。您可以在输入时将 Delphi 日期时间值转换为适当的 C# 数据类型等。

因此，您确实需要下定决心是否要寻求这些结构的二进制布局等效性。

来自 delphi 打包记录的正确结构布局

Proper struct layout from delphi packed record

c#

delphi

pinvoke