打开记事本,输入如下文件,具体文件名要改。
test RCDATA "c:\taxi.jpg"
然后保存为picture.rc,保存在你的工程目录下(假设为e:\myproject),然后
执行“e:\delphi6\bin\brcc32 e:\myproject\picture.rc",将其编译为资源文件,在你的项目源文件中引入该资源文件
{$R pictue.rc}
编译一下就ok了。引用该资源文件方法如下
procedure TForm1.Button1Click(Sender: TObject);
var
RS: TResourceStream;
JpegImage: TJpegImage;
begin
RS := TResourceStream.Create(Hinstance, 'test', RT_RCDATA);
RS.Position := 0;
JpegImage := TJpegImage.Create;
JpegImage.LoadFromStream(RS);
Image1.Picture.Graphic := JpegImage;
JpegImage.Free;
RS.Free;
end;
test RCDATA "c:\taxi.jpg"
然后保存为picture.rc,保存在你的工程目录下(假设为e:\myproject),然后
执行“e:\delphi6\bin\brcc32 e:\myproject\picture.rc",将其编译为资源文件,在你的项目源文件中引入该资源文件
{$R pictue.rc}
编译一下就ok了。引用该资源文件方法如下
procedure TForm1.Button1Click(Sender: TObject);
var
RS: TResourceStream;
JpegImage: TJpegImage;
begin
RS := TResourceStream.Create(Hinstance, 'test', RT_RCDATA);
RS.Position := 0;
JpegImage := TJpegImage.Create;
JpegImage.LoadFromStream(RS);
Image1.Picture.Graphic := JpegImage;
JpegImage.Free;
RS.Free;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货