如何在 C# 中读取打包记录中的固定大小字符串的 Delphi 数组

Question

我需要将数据库中的 blob 字段读取到 ac# 应用程序中。

然而，Blob 字段是由 Delphi 应用程序使用以下方法写入数据库的：

 procedure WriteABlob(Blob : TBlobField; var Buffer; size : integer);
 var 
     s : String;
 begin
     setlength(s,size);
     move(buffer,s[1],Size);
     Blob.Value := S;
 end;

写入数据库的结构不是一个简单的结构，它包含类似

MyVariable : Array[0..3] of String[80];

或更糟的内容，其中一些包含

MyRecord = Packed Record
case byte of
    1: (
        iValue:Integer;
       )
    2: (
        cValue:Char;
       )
end;

我一直在尝试从数据库，然后使用

Marshal.PtrToStructure()

以便将其移动到结构中

我的结构定义如下：

    [StructLayout(LayoutKind.Sequential, CharSet = CharSet.Ansi, Pack = 1, Size = 10710)]
    public struct MyBlobField
    {
        ...
        [MarshalAs(UnmanagedType.ByValArray, ArraySubType = UnmanagedType.AnsiBStr,SizeConst = SpecificArraySize)]
        public String[] ArrayofFixedLengthStrings;
        ...
    }

但是在调用 Marshal.PtrToStructure() 时出现错误：

无法封送字段 'ArrayofFixedLengthStrings' 类型 “MyBlobField”：无效 托管/非托管类型组合 （String[] 必须与 LPStr、LPWStr、BStr 的 ArraySubType 或 LPTStr）。

我想知道是否可以在 CustomMarshaler 上定义一个属性，它接受与 String[] 的配对，

有什么想法可以将 blob 的内容读入 c# 吗？

Answer 1

想通了...

将struct String20声明为

    [StructLayout(LayoutKind.Sequential, CharSet = CharSet.Ansi, Pack = 1)]
    public struct String20
    {
        [MarshalAs(UnmanagedType.U1)]
        public byte StringSize;
        [MarshalAs(UnmanagedType.ByValTStr, SizeConst = 20)]
        public String Value;
    }

显然，固定长度字符串（即delphi ShortString）开头的字符串大小标识符只有1个字节。
然后将 header_identifiers 的定义更改为：

       [MarshalAs(UnmanagedType.ByValArray, SizeConst = max_header_identifiers)]
        public String20[] header_identifiers;

还发现 Delphi Packed Boolean 需要强制转换为

[MarshalAs(UnmanagedType.I1)]
public bool BooleanVar;

Answer 2

我的第一条评论是“String[80]”是一个固定长度的字符串（在结构中应该更容易处理），在 C# 中，您试图将它放入“String[]”中 - 这实际上是对字符串的引用（指针）。

我的下一个评论是，在最坏的情况下，您可以尝试将其读入字节数组，然后取出所需的字节并将它们操作到目标结构中。