DLL 实现单元

最新推荐文章于 2023-08-26 14:58:30 发布

DoDoDTa

最新推荐文章于 2023-08-26 14:58:30 发布

阅读量403

点赞数

分类专栏： Dll被封装成接口 delphi

本文链接：https://blog.csdn.net/vip_ljq/article/details/35873735

版权

delphi 同时被 2 个专栏收录

11 篇文章 0 订阅

订阅专栏

Dll被封装成接口

2 篇文章 0 订阅

订阅专栏

unit uSetConfig;
interface
uses
  SysUtils, uInterface, Windows, Controls, Forms, FSetForm;
type
{ TDllTest }
  TIConfig = class(TInterfacedObject, IConfig)
  private
    FNotic:INotic;
  protected
    procedure SetNotic(aNotic:INotic); stdcall;
    function GetUserInfo(var sID,sPwd:WideString):Boolean;stdcall;
    procedure ShowForm(App:THandle;Notice:INotic);stdcall;
  public
    constructor Create;
    destructor Destroy; override;
  end;
  
function CreateDll: IConfig; stdcall; //Dll导出函数
exports
  CreateDll;
  
implementation
function CreateDll: IConfig; stdcall;
begin
  Result := TIConfig.Create;
end;

{ TIConfig }
constructor TIConfig.Create;
begin
end;

destructor TIConfig.Destroy;
begin
  FNotic := nil;
  inherited;
end;

function TIConfig.GetUserInfo(var sID, sPwd: WideString): Boolean;
begin
  result := True;
  try
    TConfig.GetUserInfo(sID,sPwd);
  except
    result := False;
  end;
end;

procedure TIConfig.SetNotic(aNotic: INotic);
begin
  FNotic := aNotic;
end;

procedure TIConfig.ShowForm(App: THandle; Notice: INotic);
begin
  Application.Handle:=app;
  fmSetForm:=TfmSetForm.create(application);
  fmSetForm.Notic := Notice;
  fmSetForm.ShowModal;
  fmSetForm.Free;
end;

end.