函数原型:
语法:
function BatchReadRecord(hPort: THandle; var Records: array of TICRecord{; ArraySize: Integer}): Integer; 参数说明:
hPort: 端口句柄, 调用OpenCommPort函数得到,需要联机
Records: 返回记录数组, 最少需要16个单元
ArraySize: Delphi不需要,如果是VB或是C++需要传数组大小参数
TICRecord :结构中包含一条记录//TICRecord结构体:
PICRecord=^TICRecord;
TICRecord=packed record
card: array[0..19] of char;
timeString: array[0..19] of char;
EmpId: array[0..9] of char;
: Integer;
flag: Integer;
cardTimes: Integer;
consume : WORD;
balance : WORD;
end;
//我在C#中的调用:
[DllImport("EastRiver.dll", EntryPoint = "BatchReadRecord", SetLastError = true, CharSet = CharSet.Auto, ExactSpelling = true, CallingConvention = CallingConvention.StdCall)]
public static extern IntPtr BatchReadRecord(IntPtr hPort, ref TICRecord[] array);//定义结构体
[StructLayout(LayoutKind.Sequential)]
public struct TICRecord
{
[MarshalAs(UnmanagedType.ByValTStr, SizeConst = 20)]
public char[] Card;
[MarshalAs(UnmanagedType.ByValTStr, SizeConst = 20)]
public char[] TimeString;
[MarshalAs(UnmanagedType.ByValTStr, SizeConst = 10)]
public char[] EmpId;
public int Mark;
public int Flag;
public int CardTimes;
public int Consume;
public int Balance;
} private void btn_BatchReadRecord_Click(object sender, EventArgs e)
{
EastRiver.TICRecord[] array = new EastRiver.TICRecord[16];
for (int i = 0; i < array.Length; i++)
{
EastRiver.TICRecord tr = array[i];
tr.Card = new char[20];
tr.TimeString = new char[20];
tr.EmpId = new char[10];
tr.Mark = 0;
tr.Flag = 0;
tr.CardTimes = 0;
tr.Consume = 0;
tr.Balance = 0;
}
IntPtr ret = EastRiver.BatchReadRecord(hPort,ref array);
//这里报错:无法封送处理类型为“TICRecord”的字段“Card”: 无效的托管/非托管类型组合(数组字段必须与 ByValArray 或 SafeArray 成对出现)。
}
请问大家这个问题如何解决?谢谢!
解决方案 »
- Entity framework4.1如何手动添加导航属性
- 页面上显示"[object]", 这个怎么回事????
- 学NET学什么好上手..学什么好用?学什么最有发展....希望指教...
- 通过数据库生成树然后写成xml保存
- C# WinCE平台下怎样实现button按钮的mouseup mousedown事件
- winform问题请教~~谢谢
- C#调用VC写的DLL中的类的问题
- 愚人节开个玩笑,大家别太在意了,没领到源码的朋友们来领分吧!
- 利用C#,如何将图片插入到EXCEL或WORD中???
- Haokoo即将推出ASP.NET免费空间!想先征求大家的意见!!
- HttpWebRequest的效率问题
- 如何用C#自己写代码卸载驱动程序
C#的struct不能像C++那样写
举个例子你好好看看
using System.Runtime.InteropServices; [StructLayout(LayoutKind.Sequential, CharSet=CharSet.Ansi, Pack=1)]
public struct TDataBrokerInputOptions
{
[MarshalAs(UnmanagedType.ByValArray, SizeConst=128)]
public byte[] szProxyName ; [MarshalAs(UnmanagedType.LPStr)]
public string pszIPRestrictList;
} [StructLayout(LayoutKind.Sequential, CharSet=CharSet.Ansi, Pack=1)]
public struct TDataBrokerOptions
{
[MarshalAs(UnmanagedType.LPStr)]
public string pzServerType; public IntPtr zVSize;
}
//定义结构体
[StructLayout(LayoutKind.Sequential, CharSet = CharSet.Ansi)]
public struct TICRecord
{
[MarshalAs(UnmanagedType.ByValTStr, SizeConst = 20)]
public string Card;
[MarshalAs(UnmanagedType.ByValTStr, SizeConst = 20)]
public string TimeString;
[MarshalAs(UnmanagedType.ByValTStr, SizeConst = 10)]
public string EmpId;
public int Mark;
public int Flag;
public int CardTimes;
public short Consume;
public short Balance;
}如果是Delphi7以前的版本,肯定是用Ansii字符,以后的版本就是Uncode字符了,居然不统一,郁闷。
public char[] TimeString; [MarshalAs(UnmanagedType.ByValArray, SizeConst = 21)]
public char[] Card;
要为这样,就不会报错,如果的处理好,就麻烦楼主传一下经验,发到我邮箱一下[email protected]