Delphi写的DLL回调C#
C#的调用Delphi的DLL没有问题,DLL回调时遇到了麻烦,网上找了个方法,解决了这个问题
Delphi部分,列举了三种回调函数定义
- library test;
- uses
- SysUtils;
- {$R *.res}
- type
- TCallback = procedure (P: PChar); stdcall;
- TMethodCallback = procedure (P: PChar) of object; stdcall;
- procedure DllTest1(Callback: TCallback; P: PChar; I: Integer); stdcall;
- var
- S: string;
- begin
- S := Format('DllTest1 ''%s'' %d', [P, I]);
- if Assigned(Callback) then
- Callback(PChar(S));
- end;
- procedure DllTest2(_Callback: Pointer; P: PChar; I: Integer); stdcall;
- var
- Callback: TMethodCallback absolute _Callback;
- S: string;
- begin
- S := Format('DllTest2 ''%s'' %d', [P, I]);
- if Assigned(Callback) then
- Callback(PChar(S));
- end;
- procedure DllTest3(Callback: TMethodCallback; P: PChar; I: Integer); stdcall;
- var
- S: string;
- begin
- S := Format('DllTest3 ''%s'' %d', [P, I]);
- if Assigned(Callback) then
- Callback(PChar(S));
- end;
- exports
- DllTest1,
- DllTest2,
- DllTest3;
- begin
- end.
C#部分
- using System;
- using System.Collections.Generic;
- using System.Text;
- using System.Runtime.InteropServices;
- namespace DllTest
- {
- class Program
- {
- public struct Method
- {
- public IntPtr code;
- public IntPtr data;
- }
- [DllImport("Test.dll", CallingConvention = CallingConvention.StdCall, CharSet = CharSet.Ansi, EntryPoint = "DllTest1")]
- public static extern void DllTest1(IntPtr p, [MarshalAs(UnmanagedType.LPStr)] string s, int i);
- [DllImport("Test.dll", CallingConvention = CallingConvention.StdCall, CharSet = CharSet.Ansi, EntryPoint = "DllTest2")]
- public static extern void DllTest2(IntPtr p, [MarshalAs(UnmanagedType.LPStr)] string s, int i);
- [DllImport("Test.dll", CallingConvention = CallingConvention.StdCall, CharSet = CharSet.Ansi, EntryPoint = "DllTest3")]
- public static extern void DllTest3(Method m, [MarshalAs(UnmanagedType.LPStr)] string s, int i);
- public delegate void Callback([MarshalAs(UnmanagedType.LPStr)] string s);
- public delegate void MethodCallback(IntPtr self, [MarshalAs(UnmanagedType.LPStr)] string s);
- public static void ShowInfo(string s)
- {
- Console.WriteLine("Info: " + s);
- }
- public static void ShowMethodInfo(IntPtr self, string s)
- {
- Console.WriteLine("Info: " + s);
- }
- static void Main(string[] args)
- {
- Method m;
- Callback info = ShowInfo;
- MethodCallback methodInfo = ShowMethodInfo;
- IntPtr p = Marshal.GetFunctionPointerForDelegate(info);
- IntPtr pm = Marshal.GetFunctionPointerForDelegate(methodInfo);
- // function callback example
- DllTest1(p, "test", 42);
- // method callback example 1
- DllTest2(pm, "test", 42);
- // method callback example 2
- m.code = pm;
- m.data = IntPtr.Zero;
- DllTest3(m, "test", 42);
- }
- }
- }
Delphi写的DLL回调C#的更多相关文章
- Delphi写的DLL,OCX中多线程一个同步问题
Delphi写的DLL,OCX中如果使用了TThread.Synchronze(Proc),可能导致线程死锁,原因是无法唤醒EXE中主线程, Synchronze并不会进入EXE主线程消息队列. 下面 ...
- 发现个delphi调用vc写的Dll中包括pchar參数报错奇怪现象
发现个delphi调用vc写的Dll中包括pchar參数奇怪现象 procedure中的第一行语句不能直接调用DLL的函数,否则会执行报错,在之前随意加上条语句就不报错了奇怪! vc的DLL源代码地址 ...
- Delphi调用c++写的dll (me)
unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System ...
- abap调vb写的dll实现电子天平的读数(带控件版)
废话不多说,直接上. 鉴于abap调研的dll文件需要在wins注册,自己尝试过delphi和C#感觉不是很好,最后毅然选择了VB来写 因为需要用到MScomm控件,所以对于将要写的dll需要带for ...
- Delphi 使用之dll文件生成与调用
DLL是Dynamic-Link Libraries(动态链接库)的缩写,库里面是一些可执行的模块以及资源(如位图.图标等).可以认为DLL和EXE基本上是一回事,只是DLL不能直接执行,而必须由应用 ...
- 深入Delphi下的DLL编程
深入Delphi下的DLL编程 作者:岑心 引 言 相信有些计算机知识的朋友都应该听说过“DLL”.尤其是那些使用过windows操作系统的人,都应该有过多次重装系统的“悲惨”经历——无论再怎样小心, ...
- Delphi7程序调用C#写的DLL解决办法(转)
近来,因工作需要,必须解决Delphi7写的主程序调用C#写的dll的问题.在网上一番搜索,又经过种种试验,最终证明有以下两种方法可行: 编写C#dll的方法都一样,首先在vs2005中创建一个 ...
- 【转载】java调用C++写的DLL
用java调用C++写的DLL一直以来都是一个比较麻烦但又很常见的问题. 我们知道,使用 JNI 调用 .dll/.so 共享类库是非常非常麻烦和痛苦的. 如果有一个现有的 .dll/.so 文件,如 ...
- Delphi7程序调用C#写的DLL解决办法
近来,因工作需要,必须解决Delphi7写的主程序调用C#写的dll的问题.在网上一番搜索,又经过种种试验,最终证明有以下两种方法可行: 编写C#dll的方法都一样,首先在vs2005中创建一 ...
随机推荐
- linux 录制并回放终端会话
发现一个比较好玩的命令,然后这块做一下记录 以下内容复制来源于 LINUX shell 脚本攻略第二版 当你需要为别人在终端上演示某些操作或是需要准备一个命令行教程时,通常得一边手动输入命令一边演示, ...
- java.sql.SQLException: Incorrect string value:
安装好MySQL一定先改字符集 如果没有,改完字符集之后,要把之前数据库重新创建一下.
- software_testing_work3_question1
package com.Phantom; import java.io.IOException; import java.util.Scanner; public class Work3_1 { /* ...
- jQuery 遍历 - each() 方法
定义和用法 each() 方法规定为每个匹配元素规定运行的函数. 提示:返回 false 可用于及早停止循环. 语法 $(selector).each(function(index,element)) ...
- grafana+graphit安装笔记
OS:MAC 10.11查看测试线运行demo请访问http://10.103.13.101:3000/dashboard/db/graphite-carbon-metrics?editorTab=O ...
- css常用公共样式
/*style reset*/ body,ul,p,h1,h2,h3,h4,h5,h6,dl,dd,form,input,textarea,select{padding:0; margin:0;fon ...
- Xcode中创建文件夹
如果在xcode工程中new group,只是在视觉效果上分好了几个文件夹,方便分类管理,但在finder中并不会创建新的文件夹,在硬盘目录还是所有文件都并列在一个文件夹内,更恶心的是当你重新打开工程 ...
- ✡ leetcode 171. Excel Sheet Column Number 字母转换为数字 --------- java
Related to question Excel Sheet Column Title Given a column title as appear in an Excel sheet, retur ...
- Strategy - 策略模式
策略模式: 定义了算法族,分别封装起来,让它们之间可以互相替换,此模式让算法的变化独立于使用算法的客户.public interface FlyBehavior { public void fly() ...
- 『U3D学习』破坏神回忆图<一>任务系统
学习资料:siki老师<泰斗破坏神> 联系QQ:1790555618 功能描述:任务面板内容生成,角色进行任务,自动寻路到指定地点. 从今天起,本人会发学习回忆图,先总结开发阶段功能,后续 ...