delphi record to C#

本文关键字：to record delphi | 更新日期: 2023-09-27 18:00:33

需要帮助将delphi记录转换为C#结构，并将此结构传递到Cdll:

type Transaction = record
  pos_id: array[0..9] of char;
  ev_type: array[0..4] of char;
  amount: array[0..14] of char;
  chip_reader_used: boolean;
  internal_magstripereader_used: boolean;
  track2data: array[0..99] of char;
  card_usage_mode: array[0..4] of char;
  receipt_directory: array[0..254] of char;
  additional_info: array[0..999] of char;
  event_number: array[0..9] of char;
  original_filingcode: array[0..19] of char;
  transaction_reasoncode: array[0..9] of char;
end;

尝试了以下操作但不起作用：

[StructLayout(LayoutKind.Sequential, CharSet = CharSet.Ansi, Pack = 1)]
public unsafe struct Transaction {
        public fixed byte pos_id[10];
        public fixed byte ev_type[5];
        public fixed byte amount[15];
        public bool       chip_reader_used;
        public bool       internal_magstripereader_used;
        public fixed byte track2data[100];
        public fixed byte card_usage_mode[5];
        public fixed byte receipt_directory[255];
        public fixed byte additional_info[1000];
        public fixed byte event_number[10];
        public fixed byte original_filingcode[20];
        public fixed byte transaction_reasoncode[10];
};

C函数为：

void Card_Event(struct)

C#（由GetProcAddress加载）

[UnmanagedFunctionPointer(CallingConvention.StdCall)]
private delegate void Card_Event_Func(ref Transaction transaction);
IntPtr procAddr = GetProcAddress(_hDLL, "Card_Event");
if ( procAddr == IntPtr.Zero )
    return false;
Card_Event_Func Card_Event = (Card_Event_Func)Marshal.GetDelegateForFunctionPointer(procAddr, typeof(Card_Event_Func));

delphi record to C#

字符串应该使用UnmanagedType.ByValTStr。这里不需要不安全的代码。您会发现下面使用字符串的声明比不安全的固定数组更容易使用。

请注意，您还需要为布尔值指定单字节编组。bool的默认编组是与Win32 API函数兼容的4字节BOOL。

最后，我不知道你为什么选择打包这张唱片。Delphi代码中没有表示它已打包。

因此，最终翻译如下：

[StructLayout(LayoutKind.Sequential, CharSet = CharSet.Ansi)]
public struct Transaction 
{
    [MarshalAs(UnmanagedType.ByValTStr, SizeConst = 10)]
    public string pos_id;
    [MarshalAs(UnmanagedType.ByValTStr, SizeConst = 5)]
    public string ev_type;
    [MarshalAs(UnmanagedType.ByValTStr, SizeConst = 15)]
    public string amount;
    [MarshalAs(UnmanagedType.I1)]
    public bool chip_reader_used;
    [MarshalAs(UnmanagedType.I1)]
    public bool internal_magstripereader_used;
    [MarshalAs(UnmanagedType.ByValTStr, SizeConst = 100)]
    public string track2data;
    [MarshalAs(UnmanagedType.ByValTStr, SizeConst = 5)]
    public string card_usage_mode;
    [MarshalAs(UnmanagedType.ByValTStr, SizeConst = 255)]
    public string receipt_directory;
    [MarshalAs(UnmanagedType.ByValTStr, SizeConst = 1000)]
    public string additional_info;
    [MarshalAs(UnmanagedType.ByValTStr, SizeConst = 10)]
    public string event_number;
    [MarshalAs(UnmanagedType.ByValTStr, SizeConst = 20)]
    public string original_filingcode;
    [MarshalAs(UnmanagedType.ByValTStr, SizeConst = 10)]
    public string transaction_reasoncode;
};

我不确定您是否正确翻译了函数调用，因为您没有显示函数的函数本机代码声明。

相关文章：