delphi - 在 Delphi XE5 组件内声明 DLL

Question

我正在 Delphi 中创建一个新组件，它实例化一个 DLL

Unit UMyComponent

interface

type
  TMyComponent = class(TComponent)
    ... 
    procedure MyDllCall; 
  end;

procedure Register;

implementation

function MyDll: Longint; stdcall; external 'MyDllName.dll' name 'MyFunction'

procedure TMyComponent.MyDllCall;
var
  res: LongInt;
begin
  res:= MyDll;
end;

...

procedure Register;
begin 
 RegisterComponents('My Tab', [TMyComponent]); 
end;

end.

我有 2 个问题:

1. 当我在 IDE 上安装该组件时，它会搜索物理 DLL，如果在路径中找不到它，则会给出错误。我希望组件在运行时有效使用时查找它。
2. 是否可以在运行时设置dll库文件名？即:“MyDllName.dll”可以更改为“10029.dll”或“ajjdwawd.dll”

请注意，我将 DLL 声明放在实现中，以免将函数调用暴露给调用者。

感谢您的回答。

Answer 1

您当前的代码使用所谓的 load-time linking 。模块加载时必须解决依赖关系，否则会加载失败。您需要使用替代方法 run-time linking .

在 Delphi 中，有两种方法可以做到这一点:

• 通过调用LoadLibrary、GetProcAddress和FreeLibrary直接使用Win32。
• 使用 delayed 关键字让 Delphi RTL 为您执行此操作。

文档中更详细地介绍了这两种方法:

• http://docwiki.embarcadero.com/RADStudio/en/Libraries_and_Packages
• http://docwiki.embarcadero.com/CodeExamples/en/DelayedLoading_(Delphi)