如何将一个JPG文件做成一个资源文件,并能够有应用实例. 写RC文件,JPEGINDEX RCDATA YourPic.JPG写完后用Brcc32编译这个rc文件。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 把你的E-Mail给我吧,我给你一个例子([email protected]); 1、MyRes.rc文件,内容如下: sample_jpg JPEG sample.jpg 用Brcc32编译MyRes.rc,生成MyRes.Res2、在你要使用该资源的程序源文件中添加:{$R MyRes.Res}或{$R *.Res}3、引用代码:function GetResourceAsJpeg(const ResName: string): TJPEGImage;var Stream: TResourceStream;begin Stream := TResourceStream.Create(hInstance, ResName, 'JPEG'); try Result := TJPEGImage.Create; Result.LoadFromStream(Stream); finally Stream.Free; end;end; fastreport 问题 进者有分~~~求教了~~~~~先谢谢了 使用VCLSKIN后的奇怪问题???? 太合传媒急聘IT技术人才 如何将汉字转换成拼音,100分 SQL查询的问题!!大家帮帮忙!解决马上结帐!! 各位高手,怎样对Dbgrid1中对应数据集的记录点击右键进行复制,把其记录粘贴到另一个Dbgrid对应的数据集中? 弱智题。 各位朋友,能给我解释一下bde的功能和好处吗?谢谢! Trim怎么用? 如何在Delphi中进行录音并回放? 大家好﹐問一個控制進程外窗體的問題﹐謝謝大家啦﹐請多多幫忙﹗
1、MyRes.rc文件,内容如下:
sample_jpg JPEG sample.jpg 用Brcc32编译MyRes.rc,生成MyRes.Res
2、在你要使用该资源的程序源文件中添加:{$R MyRes.Res}或{$R *.Res}3、引用代码:function GetResourceAsJpeg(const ResName: string): TJPEGImage;
var
Stream: TResourceStream;
begin
Stream := TResourceStream.Create(hInstance, ResName, 'JPEG');
try
Result := TJPEGImage.Create;
Result.LoadFromStream(Stream);
finally
Stream.Free;
end;
end;