Question

delphi中Image加载图片的问题

如何用代码实现给Image控件给程序皮肤加载图片后，将图片保存在程序中，其它人员打开程序时，没有源图片一样能看到图片，相当于Image的Picture属性中的加载，确定功能，但必须用代码实现，本人实在菜鸟，希望高手解答，谢谢!

• 你的回答被采纳后将获得：
• 系统奖励15（财富值+成长值）+难题奖励10（财富值+成长值）+提问者悬赏100（财富值+成长值）

Answer 1

1、创建rc文件。可以用任意文本编辑器来写。文件格式为："资源名 资源类型 文件名"。
对于资源类型，如果是exe文件，应该是，如果是二进制文件，则是RCDATA。
这里创建一个文件float.rc：
代码
ATP BITMAP "E:\Software\1.jpg"
这里顺便记得“
AVI 无声动画
EXEFILE 可执行文件
BITMAP 位图文件
CURSOR 光标文件
ICON 图标文件
WAVE 声音文件”

2、将这个rc文件转换成res文件。
执行brcc32 float.rc，生成float.res

3、将这个res文件包含至工程文件中。
代码
{$R float.res}

4、提取RES中的1.jpg。
代码
procedure TFormMain.loadtpClick(Sender: TObject);
var
t : TResourceStream;
begin
if FileExists('1.jpg') then
image1.bitmap.loadfromfile('1.jpg');
else
begin
try
t := TResourceStream.Create(HInstance,'Atp','bitmap'); //
t.SaveToFile('1.jpg');
finally
t.free;
end;
Wi image1.bitmap.loadfromfile('1.jpg');
end;
end;

追问

这个资源文件放在已经生成的程序外部可以吗？

追答

编译成exe就不要那个res文件了

追问

谢谢

Answer 2

你把图片放进你的安装包不就行啦!

追问

如何放入？程序已经生成，程序加资源文件一起可以生成不显示资源文件的安装程序吗？

如何放入？程序已经生成，程序加资源文件一起可以生成不显示资源文件的安装程序吗？