我通过“资源和图像”对话框向我的项目添加图标,并决定离开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;
在写入地址0x00000008时,A / V深入到库内部,这表明一些未初始化的对象实例。
我做错了什么或者是库错误?库版本是23.0,Delphi XE2
我混淆了RT_GROUP_ICON
和RT_ICON
。 RT_GROUP_ICON
仅包含图标标题和目录(分别为GRPICONDIR
和GRPICONDIRENTRY
),但实际图像和掩码分别存储为RT_ICON
资源。此外,图标文件标题和图标组标题具有完全相同的布局和魔术值,因此无法检测无效数据流。因此,绝对不可能将TIcon.LoadFromStream
与RT_GROUP_ICON
资源一起使用,此方法仅适用于磁盘文件。
感谢bummi为这个细微差别揭开光芒。
补充阅读:LookupIconIdFromDirectoryEx
function参考和相应的example code。
我不知道你是否可以使用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);