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

如何在Delphi中调用C#生成的DLL类库

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

最近需要写一个和给上位机和下位机通讯的接口,而上位机是用Delphi开发的,所以就需要用C#做一类库给Delphi调用

大概步骤:

1、首先在VS2008中新建一个类项目名为TestDelphi,然后添加一个接口文件命名为ITest.cs

源代码如下:

using System;
using System.Collections.Generic;
using System.Text;
using System.Runtime.InteropServices;

namespace TestDelphi
{
    public interface ITest
    {
        
        int add(int x, int y);
        
        string getSysName();
        
        byte ArrAdd(byte x, byte y);

        DateTime GetTime(DateTime dt);
    }
}

 

再建一个实现类文件 Test.cs

using System;
using System.Collections.Generic;
using System.Text;
using System.Runtime.InteropServices;

namespace TestDelphi
{
    [ClassInterface(ClassInterfaceType.None)]
    public class Test:ITest
    {
        public Test()
        { }
        

        public int add(int x, int y)
        {
            return x + y;
        }
        public DateTime GetTime(DateTime  dt)
        {
            return dt.AddDays(2);
        }
        public string getSysName()
        {
            return "I don't care";
        }
        public byte ArrAdd(byte x, byte y)
        {
            byte[] arr = new byte[2];
            arr[0] = x;
            arr[1] = y;
            return arr[0];
        }
    }
}

 

然后在项目属性的程序集设置使Com可见,在生成那里勾选“为Com互操作注册”.

然后在生成时间中的“生成后事件命令行”中输入

"C:\Program Files\Microsoft SDKs\Windows\v6.0A\bin\tlbexp" "$(TargetPath)"

该命令是为了在生成的时候同时产生一个.TLB文件,在Delphi中添加库中时需要用到。

2、打开delphi 7 然后在project菜单选择import type library——>Add 选择生成的TestDelphi.TLB

然后Palatte Page 选择Com+

然后单击Create Unit按钮将会生成unit TestDelphi_TLB

完成以上操作之后就可以在窗体上的Unit中引用TestDelphi_TLB

在窗体上添加一个按钮,在按钮的事件中这样写

procedure TForm1.Button2Click(Sender: TObject);
var obj:ITest; //定义在C#中的接口变量
  arr : byte;
  td:TDateTime;
begin
    obj :=CoTest.Create; //创建实例,默认会在C#的类前面加Co
     td := now; //获取当前时间
     td := obj.GetTime(td); //调用接口的方法
     showmessage(datetimetostr(td)); // 返回的结果是当前时间+2天
     arr :=obj.ArrAdd(12,13);  //返回的是第一个参数
    showmessage(inttostr(obj.add(1,2))); //返回的是1+2的结果
    showmessage(obj.getSysName()); //返回字符串
end;

 

此为在Delphi中调用C#的类库的方法

 注:在调用过程中可能出现Project xxxx raised exception class EOleSysError with message '系统找不到指定文件'.

开始在网上找了半天没找到什么原因,后来想了下应该是要把dll文件放在delphi的projects目录下,运行的时候需要dll,后来问题成功解决。

在只有.NET 2.0环境下的机器上,需要使用regasm注册

一般目录在 c:\windows\microsoft.net\v2.0 下面

regasm  /tlb:dllName.tlb dllName.dll


鲜花

握手

雷人

路过

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

请发表评论

全部评论

专题导读
上一篇:
C#索引器方法发布时间:2022-07-14
下一篇:
C#与lua相互调用发布时间:2022-07-14
热门推荐
热门话题
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

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

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

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