在线时间:8:00-16:00
迪恩网络APP
随时随地掌握行业动态
扫描二维码
关注迪恩网络微信公众号
现在来说一下调用过程:【本地调试通过,环境是XP,delphi7.0,vs2005】 首先在vs2005中创建一Class Library项目,添加2个cs文件,代码分别为: 声明一个接口
1using System;
实现该接口2using System.Collections.Generic; 3using System.Text; 4namespace beep_Class 5}
1using System.Runtime.InteropServices;
然后在生成类库之前设置一下该项目的属性,如下图所示:2namespace beep_Class 3} 注意红线标示的部分。 然后对此编译成功的DLL【beep_Class.dll】进行处理,打开vs2005自带的命令行工具。输入 tlbexp beep_Class.dll 生成 beep_Class.tlb文件。 下一步是打开delphi7,新建一个Application,在Form上增加一Button。然后选择Project下的,import type library,把刚才生成的Tlb文件【beep_Class.tlb】添加进来,然后点击 CreateUnit就ok了 delphi中的Button事件代码如下:
1procedure TForm1.Button1Click(Sender: TObject);
编译通过,运行结果如下图:2var 3 co:Class1; 4 a:string; 5begin 6 co:= CoClass1.Create; 7 a:=co.GO(); 8 showmessage(a); 9end; 10end. 注意:运行的时候要把Beep_Class.dll放在程序目录中。 |
2023-10-27
2022-08-15
2022-08-17
2022-09-23
2022-08-13
请发表评论