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

Question

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

但是 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;

写入数据库的Structure不是一个简单的结构体，包含了类似的东西

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() 时遇到错误:

Cannot marshal field 'ArrayofFixedLengthStrings' of type 'MyBlobField': Invalid managed/unmanaged type combination (String[] must be paired with an ArraySubType of LPStr, LPWStr, BStr or LPTStr).

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

关于如何将 blob 的内容读入 C# 的任何想法？

Answer 1

想通了...

将结构 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;