如何在Delphi中添加和使用自定义包/组件中的资源?
发布时间:2020-12-15 09:08:39 所属栏目:大数据 来源:网络整理
导读:我想创建一个使用我的包项目中编译的资源的组件.我的组件将尝试在运行时(在其构造函数中)使用此资源(PNG图像). 我想在我的应用程序的项目中使用它,但是只要组件被创建,我就会得到以下异常: First chance exception at $7579B9BC. Exception class EResNotFo
我想创建一个使用我的包项目中编译的资源的组件.我的组件将尝试在运行时(在其构造函数中)使用此资源(PNG图像).
我想在我的应用程序的项目中使用它,但是只要组件被创建,我就会得到以下异常: First chance exception at $7579B9BC. Exception class EResNotFound with message 'Resource xxx not found'. Process yyy.exe (6060) 我在这里错过了什么? 编辑 包项目中资源的调用代码如下: Png.LoadFromResourceName(HInstance,'png_resource_name'); 编辑2 正如David所建议的,我尝试使用函数GetModuleHandle,但是如果我从包的项目或应用程序的项目中调用它,它将始终返回0.在包的项目中调用的代码是这样的: PackageModuleHandle := GetModuleHandle(PChar('my_package.bpl')); Png := TPngImage.Create; Png .LoadFromResourceName(PackageModuleHandle,'png_resource_name'); bpl文件的绝对路径也不起作用. 编辑3 基于新答案的新尝试: PackageModuleHandle := FindClassHInstance(TMyComponent); Png := TPngImage.Create; Png .LoadFromResourceName(PackageModuleHandle,'png_resource_name'); 失败也有同样的例外. 编辑4 使用ResourceHacker,如果我正确使用它,资源似乎不在我的bpl文件中.我能做些什么呢?这么简单的功能似乎有这么复杂的问题. 结论 我必须在{$R * .res}行之后将我的包的.res文件添加到包的.dpr中.像这样: {$R *.res} {$R 'my_pacakge.res'} 此外,我必须将my_package.rc文件包含到我的项目中,因此在每次构建之后,资源将被编译到.res.我想这就是诀窍.感谢所有的答案. 解决方法
您需要使用FindClassHInstance(),指定组件的类类型,而不是使用全局HInstance变量或GetModuleHandle().这样,无论包是静态链接还是动态链接到主可执行文件,您都可以获得正确的模块句柄.
(编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |