Skip to content

Latest commit

 

History

History
317 lines (249 loc) · 8.96 KB

README.zh-CN.md

File metadata and controls

317 lines (249 loc) · 8.96 KB

中文 | English

DDNRuntime

DDNRuntime(Delphi .NET Framework/.NET Core Runtime)

最新版本：v0.1.30

更新日志

前往查看

这不是一个开源和免费的项目。这里只存放一些示例。

特性

  • 不需要COM的支持。
  • 使用非常的简单，只需要在Delphi中申明.NET的类型和方法即可。
  • 专门的翻译工具，输入一个或者多个.NET的程序集DLL，即可输出一个或者两个Delphi导入单元。
  • 支持接口类型。
  • 支持动态数组（一维数组）。
  • 支持委托类型。
  • 支持委事件。
  • 泛型类型（有限的支持。只支持XE8及以上且暂不支持嵌套的泛型，比如：DNICollection<DNKeyValuePair<TKey, TValue>>这类的多层嵌套）。

要求

暂不支持

  • 二维数组。
  • 嵌套类泛型。

正在实现中的特性

  • 暂无。

试用

试用版可使用五分钟，超出后会无法继续执行。 获取DDNRuntime试用文件，复制你所使用的Delphi版本DCU文件到src目录下。

  • 下载例子 直接下载本仓库，或者使用镜像：gitee github
  • 下载Releases/发行版文件
  • 以10.3为例
    • 将ddn-xxx-dcus里的\zh-Hans\10.3.3(20.0)\的文件夹解压到 \DDNRuntime-examples\src\
  • 运行例子即可

购买

  • 联系人：KngStr
  • 价格表：
订阅类型 价格/一年(人民币) 续订价格/1年(人民币) 说明
个人版 ￥???? / 1个开发者 ￥???? 仅DCU和DLL，无源码
企业版 ￥???? / 10开发者 ￥???? 仅DCU和DLL，无源码

注：？？？？？？？

导出的公共函数或者类属性和方法

  • DDN.Runtime (无源代码)
  IID_IDN_Name = '{B130231B-447A-48F5-B476-43FB07E99457}';
  IID_IDN: TGUID = '{B130231B-447A-48F5-B476-43FB07E99457}';

  IID_IDNClass_Name = '{E0CE1E32-5502-4F10-B263-6490F332E340}';
  IID_IDNClass: TGUID = '{E0CE1E32-5502-4F10-B263-6490F332E340}';

  IID_IDNInstance_Name = '{152F4F46-D220-423A-8135-FE6DF52A7932}';
  IID_IDNInstance: TGUID = '{152F4F46-D220-423A-8135-FE6DF52A7932}';

  IID_ILocalObject_Name = '{C4A9BE07-6DF9-448A-856F-9323768D36FE}';
  IID_ILocalObject: TGUID = '{C4A9BE07-6DF9-448A-856F-9323768D36FE}';

  IID_DNObject_Name = '{81C5FE01-027C-3E1C-98D5-DA9C9862AA21}';
  IID_DNObjectClass_Name = '{52839F0D-B981-46B3-8A5C-5C7B1449E1EB}';
  DNObject_FullName = 'System.Object';

  /// <summary>
  ///   DotNet中原生指针，实际定义为一个class，用于防止被GC。
  /// </summary>
  DNNObject = type Pointer;

  IDN = interface
    [IID_IDN_Name]
  end;

  IDNClass = interface(IDN)
    [IID_IDNClass_Name]
  end;

  IDNInstance = interface(IDN)
    [IID_IDNInstance_Name]
  end;

  /// <summary>
  ///   用于获取保存的DotNet实例
  /// </summary>
  ILocalObject = interface(IDN)
    [IID_ILocalObject_Name]
    function GetObjectID: DNNObject;
  end;

  /// <summary>
  ///   加载程序集
  /// </summary>
  /// <param name="AFileName">一个程序集强名称或者一个绝对的程序集文件名（全路径）</param>
  function LoadAssemblyModule(const AFileName: string): Boolean;
  
  /// <summary>
  ///   设置是否显示.NET异常的详细信息
  /// </summary>
  procedure SetShowDetailedExceptionMessage(AValue: Boolean);
  • DDN.mscorlib.TDNGenericImport
  /// <summary>
  /// 从DotNet原生对象中返回实例对象
  /// </summary>
  class function Wrap(ADNObjectID: DNNObject): T; overload; static;
  /// <summary>
  /// 从一个接口实例中返回对象
  /// </summary>
  class function Wrap(const AInstance: IDNInstance): T; overload; static;
  /// <summary>
  /// 调用DotNet中构造方法或者静态方法。
  /// </summary>
  class property DNClass: C read GetDNClass;
  /// <summary>
  /// 创建DotNet实例对象，调用默认构造函数
  /// </summary>
  class function Create: T; static;
  /// <summary>
  /// clsID意为DotNet中实例原生指针
  /// </summary>
  class function GetClsID: DNNObject; static;
  /// <summary>
  /// .NET类型信息
  /// </summary>
  class property typeid: DNType read GetTypeId;

注：所有导入的.NET类型以DN开头，如DNType，非接口类型导入器以TDN+.NET类型，如：TDNType。如遇.NET中枚举值名与Delphi关键字重名则在名称结尾加上_表示。

使用方法：

unit DDNTest;

interface

uses
  System.SysUtils,
  DDN.Runtime,
  DDN.mscorlib;
  
implementation

procedure TestMemoryStream;
var
  LMem: DNMemoryStream;
  LBytes: TArray<Byte>;
  B: Byte;
  LReadLen: Integer;
begin
  LMem := TDNMemoryStream.Create;
  
  LMem.Write([1,2,3,4,5], 0, 5);
  LMem.WriteByte(121);
  LMem.Flush;
  LMem.Position := 0;

  Writeln('data Length: ', LMem.Length);
  SetLength(LBytes, LMem.Length);
  LReadLen :=  LMem.Read(LBytes, 0, Length(LBytes));
  Writeln('len: ', LReadLen);
  for b in LBytes do
    Write(b, ' ');
  Writeln;
end;

procedure TestReflection;
var
  LType: DNType;
  LMethods: TArray<DNMethodInfo>;
  LM: DNMethodInfo;
  LParams: TArray<DNParameterInfo>;
  LP: DNParameterInfo;
  I: Integer;
begin
  LType := TDNMemoryStream.typeid;
 // LType := TDNType.DNClass.GetType('System.IO.MemoryStream');
  Writeln('LType ptr=', NativeUint(LType));
  if LType <> nil then
  begin
    LMethods := LType.GetMethods;
    Writeln('method Count: ', Length(LMethods));
    for LM in Lmethods do
    begin
      Writeln(Format('method Name：%s', [LM.Name]));
      LParams := LM.GetParameters;
      I := 0;
      for LP in LParams do
      begin
        if I > 0 then
          write('; ');
        Write(Format('%s: %s', [LP.Name, LP.ParameterType.FullName]));
        Inc(I);
      end;
      Writeln('');
    end;
  end;
end;

end.
  • 委托
type
  TDelegateClass = class
  public
    // 一个方法，可以是实例方法或者class方法。
    class function CheckValidationResult(sender: DNObject; certificate: DNX509Certificate; chain: DNX509Chain;  errors: DNSslPolicyErrors): Boolean;
  end;
  
class function TDelegateClass.CheckValidationResult(
  sender: DNObject;
  certificate: DNX509Certificate;
  chain: DNX509Chain;
  errors: DNSslPolicyErrors): Boolean;
begin
  Writeln('call TDelegateTest.CheckValidationResult: ');
  Writeln('sender: ', sender.ToString);
  Writeln('certificate: ',  certificate.ToString);
  Writeln('chain: ', chain.ToString);
  Writeln('errors: ', errors);
  Result := True;
end; 
  
TDNServicePointManager.DNClass.ServerCertificateValidationCallback := TDelegateClass.CheckValidationResult;
  • 事件
type
  // test
  TEventClass = class
  public
    // 一个方法，可以是实例方法或者class方法。
   class procedure OnButtonClick(sender: DNObject; e: DNEventArgs);
  end;
  
class procedure TEventClass.OnButtonClick(sender: DNObject; e: DNEventArgs);
begin
  TDNMessageBox.DNClass.Show('Button.Click: ' + sender.ToString);
//  TDNButton.Wrap(Sender).remove_Click(TDelegateTest.OnButtonClick);
end;
  
function CreateMainForm(): DNForm;
var
  LButton: DNButton;
  LR: DNRectangle;
  //LEdit: DNTextBox;
begin
  LR := TDNScreen.DNClass.PrimaryScreen.Bounds;

  Result := TDNForm.Create;
  Result.Text := 'Delphi .NET Runtime';

  LButton := TDNButton.Create;
  LButton.Text := 'Hello';
  LButton.add_Click(TEventClass.OnButtonClick);
  LButton.Location := TDNPoint.DNClass.init(100, 100);
  Result.Controls.Add(LButton);

  //Result.StartPosition := DNFormStartPosition.Manual;
  Result.StartPosition := DNFormStartPosition.CenterScreen;
  //Result.Location :=  TDNPoint.DNClass.init((LR.Width - Result.Width) div 2, (LR.Height - Result.Height) div 2);
end;

 
begin
  TDNApplication.DNClass.EnableVisualStyles();
  TDNApplication.DNClass.SetCompatibleTextRenderingDefault(False);
  TDNApplication.DNClass.Run(CreateMainForm());
end.