procedure TForm1.Button1Click(Sender: TObject);
var
Stream: TMemoryStream;
begin
Stream := TResourceStream.Create(HInstance, 'MyBmp', RT_BITMAP);
try
{}
finally
Stream.Free;
end;
end;
var
Stream: TMemoryStream;
begin
Stream := TResourceStream.Create(HInstance, 'MyBmp', RT_BITMAP);
try
{}
finally
Stream.Free;
end;
end;
而是用命令行:
Brcc32 -r XXXX.rc
Stream: TCustomMemoryStream;
// ~~~~~~~~~~~~~~~~~~~~
知道呀
而这个RES是用Brcc32 -r XXXX.rc建出来的!
其中有内容:#include "ourway.inc"//定义了所有字符串的ID号MainPicture BITMAP e:\hinge\picture\bmps\Main.bmp
SystemBusy CURSOR e:\hinge\picture\cursors\Arrow2.cur
OurwayIcon ICON e:\hinge\picture\icons\Ourway.ico
OurwayBmp BITMAP e:\hinge\picture\icons\Ourway.bmpSTRINGTABLE DISCARDABLE
{
SYSTEMHINTID, "系统提示"
DATAMODIFIEDID, "是否保存数据?"
。
}字符串的ID号可以用*.INC文件来解决,
那么图形资源的ID如果解决?
bmp RCDATA "d:\picture\bmp\taxi.bmp"
jpg RCDATA "d:\picture\jpeg\tax.jpg"
xxxx RCDATA "d:\xxxx\xx.mp3"//RCDATA表示任何数据
你上面的一段中,
我如何通过LoadFromResourceID来读入BMP
//注意用:~~~~~~~~~~~~~~~~~~
TResourceStream不是很好吗。RS := TResourceStream.Create(Hinstance, 'music', RT_RCDATA);