2

我通过资源和图像对话框向我的项目添加图标，并决定离开，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

4

2 回答 2

3

我很困惑RT_GROUP_ICON并且RT_ICON。RT_GROUP_ICON仅包含图标标题和目录（GRPICONDIR和GRPICONDIRENTRY分别），但实际图像和掩码作为RT_ICON资源单独存储。此外，图标文件头和图标组头具有完全相同的布局和魔术值，无法检测到无效数据流。因此，绝对不能TIcon.LoadFromStream与RT_GROUP_ICON资源一起使用，此方法仅适用于磁盘文件。

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

补充阅读：LookupIconIdFromDirectoryEx函数参考和对应的示例代码。

于 2013-05-02T08:16:15.630 回答
1

我不知道您是否可以将RT_GROUP_ICON资源加载到TIconusing 中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);
于 2013-05-02T04:53:48.633 回答