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

Delphi调用C#DLL(包含委托)

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

例子

C# Dll:

using System;
using System.Collections.Generic;
using System.Text;
using System.Diagnostics;

using System.Runtime.InteropServices;

public delegate void ProcessDelegate(long ptr, long len);

namespace TestDll
{

   public interface ITestClass2
   {

void YourProcedure(); void SetDelegate(long ptr); } [ClassInterface(ClassInterfaceType.None)] public class Class2 : ITestClass2 { private ProcessDelegate delProcess = null; public void YourProcedure() { Debug.Print("enter"); if (this.delProcess != null) { byte[] test = System.Text.Encoding.Default.GetBytes("hello"); GCHandle hObject = GCHandle.Alloc(test, GCHandleType.Pinned); IntPtr pObject = hObject.AddrOfPinnedObject(); this.delProcess(pObject.ToInt64(), test.Length); if (hObject.IsAllocated) hObject.Free(); } Debug.Print("end"); } public void SetDelegate(long ptr) { IntPtr intPrt = new IntPtr(ptr); delProcess = (ProcessDelegate)Marshal.GetDelegateForFunctionPointer(intPrt, typeof(ProcessDelegate)); } } }

注意的一点 一定要如下设置:

另外, 如果需要导入其他库的话, 项目-->添加引用;

 

Delphi调用:

首先要注册dll,  命令行至C:\Windows\Microsoft.NET\Framework\v4.0.30319

运行 regasm "你的dll路径\名称.dll"

提示注册成功就可以使用这个dll了

uses ComObj;

procedure callBack(swide: Int64; size: Int64); stdcall;
begin
  OutputDebugString(PChar(IntToStr(swide)+':'+ IntToStr(size)));
end;

procedure TForm1.btn1Click(Sender: TObject);
 var aClass: Variant;
begin
  aClass:= CreateOleObject('TestDll.Class2');
  aClass.SetDelegate(Dword(@call));
  aClass.YourProcedure('test');
end;

示例: 下载地址


鲜花

握手

雷人

路过

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

请发表评论

全部评论

专题导读
上一篇:
Delphi使用双缓冲解决图片切换时的闪烁问题good发布时间:2022-07-18
下一篇:
混合使用Delphi和C++(附下载)发布时间:2022-07-18
热门推荐
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

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

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

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