如何诊断“无法访问包裹信息” Delphi IDE 中的错误

Question

我正在开发一组基于 TFrame 的组件，这些组件相互继承（正如许多一路上为我提供巨大帮助的人已经知道的那样！），并且遇到了另一个小“障碍”，与软件包和安装相关。

我基本上有以下层次结构：

TFrame
  TBaseFRame
TBaseSizeableFrame
  TViewerType1
  TViewerType2

...和一个面板，TExtRzPanel，它继承自 Raize 面板，并向其添加一些大小调整/移动功能，以及一些其他属性/功能。 TBaseSizeableFrame 使用此组件，并将其大部分功能传递给框架本身，因此我可以直观地开发复合查看器组件。 总体来说效果很好。

TFrame 后代都已注册到调色板（请参阅 这篇文章是我之前问的相关问题）。 目前，我的包设置如下：

• MyPanels - 包含 TExtRzPanel
• BaseFrames - 包含 TBaseFrame 和 TBaseSizeableFrame
• ViewerSet1 - 包含一个查看器框架 -基于组件，以及一个以对话框形式调用该查看器的非可视组件。 （我计划在这个包中也包含一些其他观众）。

引发我当前混乱的主要错误是这个：

无法访问包“MyPanels.bpl”的包信息

我现在对这件事感到头晕目眩，因为我无法记住确切的序列我已经尝试过什么以及按什么顺序，但是当我将对话框表单添加到 ViewerSet1 时，麻烦似乎已经开始了，它使用来自同一项目的 TViewer 框架，并且（当然）因此使用 TExtRzPanel （这是IDE 抱怨的包）。

基于这个我已经删除了 DCP 文件（我认为在某些时候也删除了 DCU 文件），卸载了软件包，然后重新编译/重新安装了它们 MyPanels -> BaseFrames，并使它们全部工作到这一点，但是在安装 ViewerSet1 后，整个事情再次崩溃。 我在尝试解决此问题的过程中注意到的其他错误包括：

• Package C:\Documents and Settings\All Users\Documents\RAD Studio\5.0\Bpl\MyPanels.bpl 无法安装，因为它是使用不同版本的 Delphi 或 CBuilder 创建。 您想在下次加载项目时尝试加载此包吗？（注意：我只使用一个版本的 Delphi - Delphi 2007 构建了此包）
• 在某一时刻，我注意到包描述for MyPanels 没有“采取”（即它显示为文件名是 Tools -> Compoenent -> Install Packages），这让我认为也许该文件有两个版本IDE 正在查找/使用，但我没有看到/发现情况确实如此。
• Delphi启动时给出的警告，提示无法加载已安装的包，下次是否要加载等等。
• 无法访问包'MyPanels.bpl'的包信息（Lather ，冲洗，重复）

任何和所有关于如何诊断的帮助/指导，以及任何可以帮助我理解要寻找什么的概念解释，将是最赞赏的。 提前致谢。 你们在这里非常有帮助！ 谢谢。 :)

---

稍后更新：

将其放在一边并返回后，我尝试删除所有 DCP / DCU MyPanels 文件，然后逐步安装这三个软件包。 （VMWare 在这里是物有所值的——每次成功后的快照，以便在出现问题时不必从头开始）。 事实证明，如果我从 ViewerSet1 pakckage 中删除对话框表单，它就可以安装正常。 如果我再次添加表单（它不会显示其 DFM，就像我遇到 这里），看来安装OK了。 我已经安装了所有组件，并且看起来工作正常（并在我的虚拟机中拍摄了整个组件的快照！），但我仍然不确定出了什么问题，也不知道为什么。 添加该表单最初会执行什么操作，从而导致此类错误？ 任何想法？

我认为，即使更好地解释/理解哪些事情会导致“无法访问包信息”错误，从长远来看也会有所帮助。

Answer 1

好吧，我肯定缺少一些东西。 来自 SysUtils：

function PackageInfoTable(Module: HMODULE): PPackageInfoHeader;
var
  ResInfo: HRSRC;
  Data: THandle;
begin
  Result := nil;
  ResInfo := FindResource(Module, 'PACKAGEINFO', RT_RCDATA);
  if ResInfo <> 0 then
  begin
    Data := LoadResource(Module, ResInfo);
    if Data <> 0 then
    try
      Result := LockResource(Data);
      UnlockResource(Data);
    finally
      FreeResource(Data);
    end;
  end;
end;

因此，如果您收到最后一个错误，则说明您的包没有附加必要的 PACKAGEINFO 资源。 这可能也是您的第一个错误的原因（使用不同版本的 Delphi 创建）。

很抱歉问这个问题，但是您是通过选择“文件”->“新建”->“包”-Delphi 创建包的吗？ 我问这个问题是因为它具有仅具有 bpl 扩展名的库的所有特征。

如果您确定该包是以正确的方式创建的，我建议您在整个硬盘驱动器中搜索同名的 DLL 文件。 对于您找到的所有 bpl 包，您应该执行以下命令：

C:\Program Files\CodeGear\RAD Studio\5.0\bin\tdump.exe mypackage.bpl>mypackage.txt

在您的 mypackage.txt 文件中应该有一个名为 PACKAGEINFO 的资源。

或者，您可以从 live.sysinternals.com 下载 filemon.exe，设置 bds 过滤器并监视 IDE 实际尝试加载的内容。 它很可能是您的包正在加载的另一个包，并且第二个包没有附加 PACKAGEINFO。