在 Delphi 中创建一个像 C# 那样的 DLL 类库（即面向对象的 DLL）可以通过以下步骤实现：
1. 创建 Delphi DLL 项目
打开 Delphi。
选择 File > New > Other > Dynamic-Link Library。
在新项目中，默认生成的代码通常是 exports 部分，其中包含了 DLL 导出的函数。
2. 定义类
你可以在 Delphi 中使用 class 来定义类，并通过 DLL 导出函数暴露该类。
library MyLibrary;
uses
SysUtils,
Classes;
type
TMyClass = class
private
FValue: Integer;
public
constructor Create;
procedure SetValue(AValue: Integer);
function GetValue: Integer;
end;
constructor TMyClass.Create;
begin
FValue := 0;
end;
procedure TMyClass.SetValue(AValue: Integer);
begin
FValue := AValue;
end;
function TMyClass.GetValue: Integer;
begin
Result := FValue;
end;
exports
TMyClass.Create index 1,
TMyClass.SetValue index 2,
TMyClass.GetValue index 3;
begin
end.
3. 创建导出函数
为了像 C# 那样将类导出为 DLL，通常需要在 DLL 中创建一些 export 函数，这些函数会调用类的方法。这些函数会是 DLL 外部访问类功能的接口。
例如，创建一个接口来暴露类对象的创建和方法调用：
function CreateMyClass: Pointer; stdcall;
begin
Result := Pointer(TMyClass.Create);
end;
procedure SetMyClassValue(Obj: Pointer; Value: Integer); stdcall;
begin
TMyClass(Obj).SetValue(Value);
end;
function GetMyClassValue(Obj: Pointer): Integer; stdcall;
begin
Result := TMyClass(Obj).GetValue;
end;
然后在 exports 中声明这些函数：
exports
CreateMyClass,
SetMyClassValue,
GetMyClassValue;
4. 导出 C# 可调用的 DLL
为了让 C# 可以调用 Delphi 中的 DLL，C# 需要知道 DLL 中的函数签名。你可以使用 DllImport 特性来声明导入的 DLL 函数。
假设生成的 DLL 名称为 MyLibrary.dll，那么 C# 代码可能如下所示：
using System;
using System.Runtime.InteropServices;
class Program
{
[DllImport("MyLibrary.dll", CallingConvention = CallingConvention.StdCall)]
public static extern IntPtr CreateMyClass();
[DllImport("MyLibrary.dll", CallingConvention = CallingConvention.StdCall)]
public static extern void SetMyClassValue(IntPtr obj, int value);
[DllImport("MyLibrary.dll", CallingConvention = CallingConvention.StdCall)]
public static extern int GetMyClassValue(IntPtr obj);
static void Main()
{
IntPtr myObject = CreateMyClass();
SetMyClassValue(myObject, 10);
Console.WriteLine(GetMyClassValue(myObject));
}
}
5. 编译并测试
编译 Delphi 项目，生成 DLL 文件。
在 C# 中引用并测试 DLL 是否能够正常调用。
总结
通过这种方式，虽然 Delphi 是基于面向对象的，但通过函数导出（通常是 C 风格的接口），C# 可以通过指针访问 Delphi 中的类实例，实现面向对象的功能。
发布者：myrgd，转载请注明出处：https://www.object-c.cn/4954
