我正在将 Delphi 软件从 Delphi 6 (2001) 升级到 Delphi 11 Alexandria。

此软件包含许多 BPL，但此代码无法正常工作。 is command在检查来自 BPL 的组件是否为 TIBQuery 时，不返回 True - 尽管它确实是。

    procedure LoadDLLAndPassDatabaseConnection(const DLLName: string);
    var
      PackageHandle: HMODULE;
      ServiceModule: TMyServiceModule;
      I: Integer;
      Component: TComponent;
    begin
      PackageHandle := LoadPackage(PChar(DLLName));
      ServiceModule := TMyServiceModule(GetProcAddress(hInst,'GetServiceModule'));

      if Assigned(ServiceModule) then
      begin
        for I:=0 to ServiceModule.ComponentCount - 1 do
        begin
          Component := ServiceModule.Components[I];

          // This component is declared in another bpl.
          // It really is an TIBQuery, but the following if never returns True...
          // (Evaluating Component.ClassName results in 'TIBQuery')
          if Component is TIBQuery then
          begin
            // this is never executed...
            TIBQuery(Component).Database := GetDatabase;
          end;
        end;
      end;
    end;

我已经考虑过比较类名，但这对后代不起作用。我们尝试切换项目选项，例如“发出运行时类型信息”，但这没有任何区别。

如何让它工作？

谢谢!

最佳答案

is 运算符不能跨 BPL (DLL) 工作，原因如下:

• 您正在检查的类在其自己的单元文件中实现。
• 您构建 BPL，链接单元，然后在 BPL 文件中创建一个 RTTI 部分。
• 然后，您构建 EXE，链接单元，并在 EXE 文件中创建一个新 RTTI 部分。

现在两个模块的类名相同，但是is运算符用来检查相等性的RTTI， 不同，所以运算符返回FALSE!

解决方案:再次检查类名是否相等。

https://stackoverflow.com/questions/73288703/