在线时间:8:00-16:00
迪恩网络APP
随时随地掌握行业动态
扫描二维码
关注迪恩网络微信公众号
C#调用Delphi接口方法,有两种解决办法: 一、将Delphi程序编译成一个COM组件,然后在C#里引用COM组件。 二、非托管调用Dephi的DLL文件。
这里我们主要讲解一下第二种方法,讲第二种方法之前首先讲解下DllImport。 DllImport是System.Runtime.InteropServices命名空间下的一个属性类,其功能是提供从非托管DLL导出的函数的必要调用信息。 DllImport属性应用于方法,要求最少要提供包含入口点的dll的名称。 DllImport的定义如下: [AttributeUsage(AttributeTargets.Method)] publicclass DllImportAttribute: System.Attribute 假如没有路径的话,DllImport会按照顺序自动去寻找的地方:
说明: 1、DllImport只能放置在方法声明上。 2、DllImport具有单个定位参数:指定包含被导入方法的 dll 名称的 dllName 参数。 3、DllImport具有五个命名参数: a、CallingConvention 参数指示入口点的调用约定。如果未指定 CallingConvention,则使用默认值 CallingConvention.Winapi。 b、CharSet 参数指示用在入口点中的字符集。如果未指定 CharSet,则使用默认值 CharSet.Auto。 c、EntryPoint 参数给出 dll 中入口点的名称。如果未指定 EntryPoint,则使用方法本身的名称。 d、ExactSpelling 参数指示 EntryPoint 是否必须与指示的入口点的拼写完全匹配。如果未指定 ExactSpelling,则使用默认值 false。 e、PreserveSig 参数指示方法的签名应当被保留还是被转换。当签名被转换时,它被转换为一个具有 HRESULT返回值和该返回值的一个名为 retval 的附加 输出参数的签名。如果未指定 PreserveSig,则使用默认值 true。 f、SetLastError 参数指示方法是否保留 Win32"上一错误"。如果未指定 SetLastError,则使用默认值 false。 4、它是一次性属性类。 5、此外,用 DllImport 属性修饰的方法必须具有 extern 修饰符。
下面代码样例 Delfhi DLL接口 接口方法1: 方法原型:function ShowCustScreen(sMsg: string = ''):Boolean; export;stdcall; 接口方法2: 方法原型:function CloseCustScreen:Boolean; export;stdcall; 接口方法3: 方法原型:function UpBillLs(aBillData : array of string): boolean; export;stdcall;
C# 调用
namespace test { public partial class Form1 : Form { public Form1() { InitializeComponent(); } [DllImport(@"C:\Users\ll\Desktop\Lottery\Lottery.dll", CharSet = CharSet.Auto, CallingConvention = CallingConvention.StdCall)] public static extern Boolean ShowCustScreen(string sMsg); [DllImport(@"C:\Users\ll\Desktop\Lottery\Lottery.dll", CharSet = CharSet.Auto, CallingConvention = CallingConvention.StdCall)] public static extern Boolean CloseCustScreen(); [DllImport(@"C:\Users\ll\Desktop\Lottery\Lottery.dll", CharSet = CharSet.Auto, CallingConvention = CallingConvention.StdCall)] public static extern Boolean UpBillLs(StringBuilder [] array); private void button1_Click(object sender, EventArgs e) { MessageBox.Show(ShowCustScreen("aa").ToString()); } private void button2_Click(object sender, EventArgs e) { MessageBox.Show(CloseCustScreen().ToString()); } private void button3_Click(object sender, EventArgs e) { try { MessageBox.Show(UpBillLs(new StringBuilder[] { new StringBuilder("1"), new StringBuilder("1"), new StringBuilder("1") }).ToString()); } catch (Exception ex) { MessageBox.Show(ex.Message.ToString()); } } } }
|
2023-10-27
2022-08-15
2022-08-17
2022-09-23
2022-08-13
请发表评论