delphi - 从资源流加载图标时出现奇怪的 AV

Question

我通过资源和图像对话框向我的项目添加图标，并决定放弃TIcon.LoadFromResourceName，因为它不执行任何错误检查。我编写了看似等效的代码，但没有按预期工作。

这是一个对我来说失败的测试用例:

procedure TForm1.FormCreate(Sender: TObject);
const
  ResName = 'Icon_1';
var
  Stream: TResourceStream;
begin
  OutputDebugString(PChar(Format('RTLVersion = %f', [RTLVersion])));
  Assert(Assigned(Image1), 'Image1 comes from the designer, should be instantiated already');

  Stream := TResourceStream.Create(HInstance, ResName, RT_GROUP_ICON);
  try
    Image1.Picture.Icon.LoadFromStream(Stream); // AV here
  finally
    Stream.Free;
  end;
end;

A/V 发生在库深处写入地址 0x00000008 处，这表明存在一些未初始化的对象实例。

我做错了什么或者这是一个库错误？库版本为23.0，Delphi XE2

Answer 1

我混淆了 RT_GROUP_ICON 和 RT_ICON。 RT_GROUP_ICON 仅包含图 header 和目录(分别为 GRPICONDIR 和 GRPICONDIRENTRY)，但实际图像和 mask 单独存储为 RT_ICON 资源。此外，图标文件头和图标组头具有完全相同的布局和魔法值，使得无法检测到无效数据流。因此，绝对不可能将 TIcon.LoadFromStream 与 RT_GROUP_ICON 资源一起使用，此方法仅针对磁盘文件而设计。

感谢bummi为了阐明这个细微差别。

补充阅读:LookupIconIdFromDirectoryEx function引用和相应的example code .