Question

我有一个包含实现接口的类的DLL。 dll有一个返回接口的导出方法。

我可以成功地显式加载dll，但是当我尝试使用免费库时，我得到了访问冲突。我没有尝试使用隐式链接，因为我需要使用显式模式。

如果我只是加载库并立即释放，而不需要设置界面，一切正常。

Dll

library Tef;

uses
  uTTefFacade;

{$R *.res}

exports
  CreateTef;

begin
end.

dll中的接口：

type
  ITefFacade = interface
  ['{77691DD1-C6E9-4F75-951F-BFA1468DC36C}']
    function IniciarTransacao(AParam: TTefIniciarTransacaoParamDTO): TTefIniciarTransacaoResultDTO;
  end;

dll中的类：

 type
      TTefFacade = class (TInterfacedObject, ITefFacade)
      private    
        function IniciarTransacao(AParam: TTefIniciarTransacaoParamDTO): TTefIniciarTransacaoResultDTO;
      public
        constructor Create;
        destructor Free;
      end;

function CreateTef: ITefFacade; export; stdcall;

function CreateTef: ITefFacade;
begin
  Result := ITefFacade(TTefFacade.Create);
end;

埃克：

procedure TForm1.FormCreate(Sender: TObject);
var
  CreateTef: function: ITefFacade; stdcall;
begin
  try
    FTef := nil;

    FHTef := LoadLibrary('Tef.dll');
    if (FHTef > 0) then
    begin
      @CreateTef := GetProcAddress(FHTef, 'CreateTef');
      if (@CreateTef <> nil) then
        FTef := CreateTef;
    end;

    if (FTef = nil) then
      ShowMessage('Error.');
  except
    on E: Exception do
      ShowMessage('Erro: ' + E.Message);
  end;
end;

在调用免费资源库时，会发生访问冲突。

procedure TForm1.FormDestroy(Sender: TObject);
begin
  FreeLibrary(FHTef);
end;

Answer 1

在发布DLL之前，您必须nil FTef引用。

界面背后的对象存在于DLL中，你应该尊重这一点。如果您尝试在不释放接口的情况下卸载DLL，则在卸载后访问对象时会出现问题（例如当Delphi超出范围时自动识别引用）。

访问冲突释放库，返回dll

1 个答案: