Delphi写的DLL回调C#

时间：2016-09-28 09:50:20 阅读：199 评论：0 收藏：0 [点我收藏+]

标签：

C#的调用Delphi的DLL没有问题，DLL回调时遇到了麻烦，网上找了个方法，解决了这个问题

Delphi部分，列举了三种回调函数定义

[delphi] view plain copy

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#部分

[csharp] view plain copy

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#

标签：

原文地址：http://www.cnblogs.com/ljl_falcon/p/5915063.html

踩

(0)

评论一句话评论（0）

分享档案

更多>

2021年07月29日 (22)
2021年07月28日 (40)
2021年07月27日 (32)
2021年07月26日 (79)
2021年07月23日 (29)
2021年07月22日 (30)
2021年07月21日 (42)
2021年07月20日 (16)
2021年07月19日 (90)
2021年07月16日 (35)

周排行