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仅包含图标标题和目录（分别为GRPICONDIR和GRPICONDIRENTRY），但实际图像和掩码分别存储为RT_ICON资源。此外，图标文件标题和图标组标题具有完全相同的布局和魔术值，因此无法检测无效数据流。因此，绝对不能将TIcon.LoadFromStream与RT_GROUP_ICON资源一起使用，此方法仅适用于磁盘文件。

感谢bummi揭示了这种细微差别。

附加阅读：LookupIconIdFromDirectoryEx function参考和相应的example code。

Answer 2

我不知道您是否可以使用RT_GROUP_ICON将TIcon资源加载到LoadFromStream()，但还有其他解决方案：

Image1.Picture.Icon.Handle := LoadIcon(HInstance, ResName);

或者：

Image1.Picture.Icon.Handle := LoadImage(HInstance, ResName, IMAGE_ICON, 0, 0, LR_DEFAULTSIZE);

或者：

Image1.Picture.Icon.Handle := CreateIconFromResourceEx(PByte(Stream.Memory), Stream.Size, TRUE, $00030000, 0, 0, LR_DEFAULTSIZE);

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

2 个答案: