首发于 delphi调用.net（c#等）dll

Delphi调用.net动态链接库DLL（非com，自动生成接口）

KngStr

常见的.NET有C#、 http://VB.NET等。随机微软的持续发力，.NET的市场份额越来越大，.NET的SDK也越来越多。简单的.NET调用，我们可以用COM的形式，或者自己写一个中转的dll来封装一下。

但以上两种方式都有各自的弊端，有些SDK没有导出COM接口，或者我们自己写的dll也不想导出，不想注册dll。甚至有时候，我们也不想再另外写一个.net的dll，毕竟还得去装一个vs。那么有没有简单方便的方法呢？

那就得说一说我们今天的主角了：DDNRuntime。

DDNRuntime全称Delphi .NET Runtime，是一个用Delphi调用.NET的库。仓库地址：不在乎y/DDNRuntime-examples

简介

特性

要求

.NET Framework 4.x (仅支持Windows)

.NET Core ( 计划支持跨平台 )

最低要求Rad Studio XE3（推荐XE8或者更高版）。

暂不支持

说了这么多，来看看DDNRuntime最有特色的代码吧。类似fmx安卓上调用Java的代码，上手非常容易。

unit uHash;

interface

uses
  System.SysUtils,
  DDN.Runtime,
  DDN.mscorlib
{$IFDEF USE_NETCORE}
  ,DDNC.System.Security.Cryptography.Algorithms
  ,DDNC.System.Security.Cryptography.Csp
{$ENDIF};

  procedure TestProc;
implementation


function BytesToString(value: TBytes; AEqValue: string): string;
begin
  Result := TDNBitConverter.DNClass.ToString(value).Replace('-', '').ToLower;
  if Result.Equals(AEqValue) then
    Write('True ')
  else Write('False ');
end;

procedure Hash_SHA1;
var
  sha1: DNSHA1;
  result: TBytes;
begin
  Writeln('---------------Hash_SHA1---------------');
  sha1 := TDNSHA1Managed.Create;
  result := sha1.ComputeHash(BytesOf('11111111111111aaaa'));
  Writeln('result: ', BytesToString(result, '0d403430ba5307571f77a017cc1b67c1784a94a4'));
  // 0d403430ba5307571f77a017cc1b67c1784a94a4
end;

procedure Hash_SHA256;
var
  sha256: DNSHA256;
  result: TBytes;
begin
  Writeln('---------------Hash_SHA256---------------');
  sha256 := TDNSHA256Managed.Create;
  result := sha256.ComputeHash(BytesOf('11111111111111aaaa'));
  Writeln('result: ', BytesToString(result, '2ad87b450f4540dc1ed6c3fe1785fa5a75b26399cb07537da96e76ce26384fd6'));
  //2ad87b450f4540dc1ed6c3fe1785fa5a75b26399cb07537da96e76ce26384fd6
end;

procedure Hash_MD5;
var
  md5: DNMD5CryptoServiceProvider;
  result: TBytes;
begin
  Writeln('---------------Hash_MD5---------------');
  md5 := TDNMD5CryptoServiceProvider.Create;
  result := md5.ComputeHash(BytesOf('11111111111111aaaa'));
  Writeln('result: ', BytesToString(result, 'd071a85745b8a9befb4f028bcae7f3e9'));
  // d071a85745b8a9befb4f028bcae7f3e9
end;

procedure TestProc;
begin
  Hash_MD5;
  Hash_SHA1;
  Hash_SHA256;
end;

end.

里面DN开头和TDN开头的就是DDNRuntime的代码哦。怎么样？是不是超简单的？这些示例代码是直接在示例中的哦。上面的代码文件位置： https://gitee.com/ying32/DDNRuntime-examples/blob/main/examples/src/uHash.pas

附上两个示例列表的截图，分别是NET framework和.net core的例子

编辑于 2022-04-16 19:53

动态库

动态链接库（DLL）

文章被以下专栏收录

delphi调用.net（c#等）dll

delphi调用.net，c#,vb.net等