c#调用Delphi的dll函数遇到的问题及解决方法

c# 调用Delphi的dll时，
1.如果dll中的函数参数含有var，则c#中要加上ref（引用）；
否则，会有提示错误：“尝试读取或写入受保护的内容。这通常指示其他内存已损坏”。
2.如果dll中的参数是THandle类型，在c#中用IntPtr代替。
3.如果dll中的参数是PChar类型，在c#中应该用byte[]代替。
使用网上说的用ref string或StringBuilder代替PChar都有问题。

另外，这里有一些类型对照：

dephi c++ C#
PChar 32位字符型指针 unsigned char * String /byte[]
THandle 句柄 *int IntPtr

下面是具体例子：
=======================================================================================================================
假设有一个Delphi写的dll名字为“EastRiver.dll”；
它的函数有：
（1）OpenCommPort: 打开串行通讯端口
语法：
function OpenCommPort(Port: Integer; BaudRate: Integer): Thandle;
参数说明： Port：端口号，允许值1-256。 BaudRate：端口波特率，允许值：通常是9600。。
如果函数调用成功，返回的值就是端口句柄，用于其它函数调用。当返回的值是-1时，端口无效或正在使用；当返回的值是0时，无法打开端口。
（2） CallClock: 显式联机命令
语法：
function CallClock(hPort: THandle; Clock_id: Integer): Boolean;
参数说明：
hPort: 端口句柄,通过调用OpenCommPort函数得到
clock_id: 机号,允许值: 0-255。
返回变量： 如果返回为True表示联机成功，如果返回为False表示联机失败。
（3）ReadICCard: 读IC卡信息
语法：
function ReadICCard(hPort: THandle; CardNo, CardName: PChar; var Money, Times, Ver: Integer): Boolean;
参数说明：
hPort: 端口句柄, 调用OpenCommPort函数得到，需要联机
CardNo: 返回卡号,16位,
CardName: 返回姓名,长度不小于16位
Money: 返回卡上金额 Times: 返回充值次数
Ver: IC卡格式, 允许值如下: 0830
返回变量： 如果返回False表示失败，如果返回True表示成功

=======================================================================================================================

那么，在c#中可以使用以下方法动态加载dll：

class ReadWriteCard
{
public struct info
{
public byte[] CardNo;
public byte[] CardName;
public int Money ;
public int Times ;
public int Ver ;
}
public class readwriteDll
{
[DllImport("EastRiver.dll", EntryPoint = "OpenCommPort", SetLastError = true, CharSet = CharSet.Unicode,
ExactSpelling = true, CallingConvention = CallingConvention.StdCall)]
public static extern IntPtr OpenCommPort(int port,int RaudRate);

[DllImport("EastRiver.dll", EntryPoint = "CallClock", SetLastError = true, CharSet = CharSet.Unicode,
ExactSpelling = true, CallingConvention = CallingConvention.StdCall)]
public static extern bool CallClock(IntPtr hport, int Clock_id);

[DllImport("EastRiver.dll", EntryPoint = "ReadICCard", SetLastError = true, CharSet = CharSet.Unicode,
ExactSpelling = true, CallingConvention = CallingConvention.StdCall)]
public static extern bool ReadICCard(IntPtr hport, byte[] CardNo, byte[] CardName, ref int Money, ref int Times,ref int ver);
}

然后，在另一个方法调用这里的函数：

private void button1_Click(object sender, EventArgs e)
{
IntPtr portptr = ReadWriteCard.readwriteDll.OpenCommPort(Int32.Parse(comboBox1.Text), Int32.Parse(comboBox2.Text));
int port = Int32.Parse(portptr.ToString());
bool isclock;
MessageBox.Show("端口句柄：" + portptr);//+port.ToString());
if (port != -1 && port != 0)
{
//联机
isclock = ReadWriteCard.readwriteDll.CallClock(portptr, Int32.Parse(comboBox3.Text));
if (isclock)
{
MessageBox.Show("联机成功！");
//读卡
ReadWriteCard.info temp = new ReadWriteCard.info();
temp.CardNo = new byte[255];
temp.CardName = new byte[255];
temp.Money = 0;
temp.Times = 0;
temp.Ver = 0000;
MessageBox.Show("正在读卡...！");
try
{
bool suc = ReadWriteCard.readwriteDll.ReadICCard(portptr, temp.CardNo, temp.CardName, ref temp.Money, ref temp.Times, ref temp.Ver);
MessageBox.Show(suc.ToString());
if (suc)
{
MessageBox.Show("读卡成功！");
}
else
{
MessageBox.Show("读卡失败！");
}
}
catch (Exception ex)
{
MessageBox.Show(ex.Message, "警告:出错了...");
}
MessageBox.Show("正在关闭端口...！");
if (ReadWriteCard.readwriteDll.CloseCommPort(Int32.Parse(comboBox1.Text)))
{
MessageBox.Show("已经关闭端口！");
}
}
else
{
MessageBox.Show("联机失败!");
ReadWriteCard.readwriteDll.CloseCommPort(Int32.Parse(comboBox1.Text));
}

}
else if (port == 0)
{
MessageBox.Show("无法打开端口!");
}
else if (port == -1)
{
MessageBox.Show("端口无效或正在使用!");
}
}