Delphi 6升级至11 Alexandria后BPL组件is判断TIBQuery失效求助

问题根源 #

在Delphi中，若主程序和BPL各自静态链接了包含TIBQuery的单元，会生成独立的类元数据——即使类名完全相同，主程序中的TIBQuery类型和BPL中的TIBQuery类型会被识别为两个不同的类型，导致is关键字判断失效。

解决方案 #

1. 共享Runtime Package（最优方案） #

确保所有模块（主程序+所有BPL）共享同一个包含TIBQuery的Runtime Package，避免类元数据重复：

• 打开所有相关项目的Project Options > Packages > Runtime Packages
• 勾选Build with runtime packages，并在Link with runtime packages列表中添加同一个包含IBQuery单元的BPL（例如官方ibx.bpl或自定义的共享BPL）
• 禁止所有模块静态链接IBQuery单元（确保Project Options > Compiling > Linking中未勾选强制静态编译相关选项）

2. 通过类GUID判断（备选方案） #

若共享Package不可行，可利用Delphi类的唯一GUID进行判断：

// 从IBQuery单元中复制TIBQuery的实际GUID
const
  CLASS_TIBQuery: TGUID = '{替换为TIBQuery的真实GUID}';

procedure LoadDLLAndPassDatabaseConnection(const DLLName: string);
var
  // ... 原有变量定义
  CurrentClass: TClass;
begin
  // ... 原有加载逻辑
  if Assigned(ServiceModule) then
  begin
    for I := 0 to ServiceModule.ComponentCount - 1 do
    begin
      Component := ServiceModule.Components[I];
      CurrentClass := Component.ClassType;
      // 遍历类继承链，支持子类判断
      while CurrentClass <> nil do
      begin
        if IsEqualGUID(GetClassID(CurrentClass), CLASS_TIBQuery) then
        begin
          TIBQuery(Component).Database := GetDatabase;
          Break;
        end;
        CurrentClass := CurrentClass.ClassParent;
      end;
    end;
  end;
end;

3. 接口化访问（长期优雅方案） #

定义共享接口统一处理数据库赋值，彻底绕过类型依赖：

// 在所有模块都引用的共享单元中定义接口
type
  IDatabaseAssignable = interface
    ['{自定义唯一GUID}']
    procedure SetDatabase(ADatabase: TIBDatabase);
  end;

// 在BPL中给TIBQuery添加接口实现（可通过类助手或继承）
type
  TIBQueryWithAssign = class(TIBQuery, IDatabaseAssignable)
  public
    procedure SetDatabase(ADatabase: TIBDatabase);
  end;

procedure TIBQueryWithAssign.SetDatabase(ADatabase: TIBDatabase);
begin
  Self.Database := ADatabase;
end;

主程序中直接通过接口判断：

procedure LoadDLLAndPassDatabaseConnection(const DLLName: string);
var
  // ... 原有变量定义
  DBAssignable: IDatabaseAssignable;
begin
  // ... 原有加载逻辑
  if Assigned(ServiceModule) then
  begin
    for I := 0 to ServiceModule.ComponentCount - 1 do
    begin
      Component := ServiceModule.Components[I];
      if Component.GetInterface(IDatabaseAssignable, DBAssignable) then
      begin
        DBAssignable.SetDatabase(GetDatabase);
      end;
    end;
  end;
end;

内容的提问来源于stack exchange，提问作者davepaul12