• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    公众号

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

原作者: [db:作者] 来自: [db:来源] 收藏 邀请

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("端口无效或正在使用!");
            }
        }


鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
热门推荐
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap