C# 调用Delphi dll 实例代码

下面是“C# 调用 Delphi dll 实例代码”的完整攻略：

一、前置条件

在开始之前，要确保你已经安装好了以下工具：

1.安装好了 Delphi 开发工具。

2.安装好了 Visual Studio 开发工具。

二、制作 Delphi 所需的 DLL

1.打开 Delphi 开发工具，新建一个控制台应用程序。

2.在 Delphi 的项目属性中，将项目类型改为动态链接库。

3.编写一个 Delphi 程序，实现一些功能，例如：

library DelphiLib;

uses
  System.SysUtils,
  System.Classes;

{$R *.res}

function SayHello(str: PChar): PChar; stdcall;
begin
  Result := PChar('Hello, ' + str);
end;

exports
  SayHello;

begin
end.

4.编译生成 Delphi DLL。

三、使用 C# 调用 Delphi DLL

1.打开 Visual Studio 开发工具，新建一个 C# 控制台应用程序。

2.在 C# 项目中添加 Delphi DLL 引用。

3.声明 Delphi DLL 中导出函数的调用方式。

[DllImport("DelphiLib.dll", CallingConvention = CallingConvention.StdCall)]
public static extern IntPtr SayHello(string str);

4.在 C# 项目中调用 Delphi DLL 中导出函数。

string result = Marshal.PtrToStringAnsi(SayHello("world"));
Console.WriteLine(result);

其中 Marshal.PtrToStringAnsi 是将 Delphi DLL 返回的字符串转换为 C# 可以识别的字符串格式。

四、示例说明

下面是两个使用 Delphi 导出函数的示例：

示例一：使用 Delphi 导出函数生成二维码

假设我们有一个 Delphi DLL 可以根据输入的字符串生成一个二维码，现在需要在 C# 中调用这个 Delphi DLL。具体步骤如下：

1.在 Delphi 中编写生成二维码的代码，并编译成 DLL。

library DelphiLib;

uses
  System.SysUtils,
  System.Classes,
  qrcodegen;

{$R *.res}

function GenerateQRCode(str: PChar): PChar; stdcall;
var
  qrCode: TQrCode;
  svg: string;
begin
  qrCode := TQrCode.EncodeText(str, TQrCode.Ecc.QUARTILE);
  svg := qrCode.ToSvgString();
  Result := PChar(svg);
end;

exports
  GenerateQRCode;

begin
end.

其中 qrcodegen 是一个二维码生成的 Delphi 库。

2.在 C# 中声明 Delphi DLL 中导出函数的调用方式。

[DllImport("DelphiLib.dll", CallingConvention = CallingConvention.StdCall)]
public static extern IntPtr GenerateQRCode(string str);

3.在 C# 中调用 Delphi DLL 中导出函数生成二维码。

string svg = Marshal.PtrToStringAnsi(GenerateQRCode("hello world"));
Console.WriteLine(svg);

示例二：使用 Delphi 导出函数进行加密和解密

假设我们有一个 Delphi DLL 可以对输入的信息进行加密和解密，现在需要在 C# 中调用这个 Delphi DLL。具体步骤如下：

1.在 Delphi 中编写加密和解密的代码，并编译成 DLL。

library DelphiLib;

uses
  System.SysUtils,
  System.Classes,
  crypto;

{$R *.res}

function EncryptAES(str: PChar; key: PChar): PChar; stdcall;
var
  encrypted: TArray<Byte>;
begin
  encrypted := EncryptAES256(str, key);
  Result := PChar(BytesToString(encrypted));
end;

function DecryptAES(str: PChar; key: PChar): PChar; stdcall;
var
  decrypted: TArray<Byte>;
begin
  decrypted := DecryptAES256(StringToBytes(str), key);
  Result := PChar(BytesToString(decrypted));
end;

exports
  EncryptAES,
  DecryptAES;

begin
end.

其中 crypto 是一个加密解密的 Delphi 库。

2.在 C# 中声明 Delphi DLL 中导出函数的调用方式。

[DllImport("DelphiLib.dll", CallingConvention = CallingConvention.StdCall)]
public static extern IntPtr EncryptAES(string str, string key);

[DllImport("DelphiLib.dll", CallingConvention = CallingConvention.StdCall)]
public static extern IntPtr DecryptAES(string str, string key);

3.在 C# 中调用 Delphi DLL 中导出函数加密和解密信息。

string key = "12345678123456781234567812345678";
string encrypted = Marshal.PtrToStringAnsi(EncryptAES("hello world", key));
string decrypted = Marshal.PtrToStringAnsi(DecryptAES(encrypted, key));

Console.WriteLine(encrypted);
Console.WriteLine(decrypted);

这里使用了 AES256 对信息进行加密解密。