Delphi资源文件调用问题(50分)

  • 主题发起人 主题发起人
  • 开始时间 开始时间

Unregistered / Unconfirmed
GUEST, unregistred user!
在Delphi中,调用我资源文件中的图形时无法显示。请问有没有现成的源码给我发一份
谢谢!
我的资源文件(IMAGE_RES.RES)如下:
LEFT_TOP_IMAGE BMP_IMAGE C:/IMAGE/LEFT_TOP.BMP
在DELPHI中我试过多种方法都没有办法调用成功。

 
给一些代码参考吧
procedure TForm1.Button1Click(Sender: TObject);
var
TheIcon : TIcon;
TheBitmap : TBitmap;
begin
TheIcon := TIcon.Create;
TheIcon.LoadFromFile('C:/Program Files/Borland/IcoCur32/EARTH.ICO');
TheBitmap := TBitmap.Create;
TheBitmap.Height := TheIcon.Height;
TheBitmap.Width := TheIcon.Width;
TheBitmap.Canvas.Draw(0, 0, TheIcon);
Form1.Canvas.Draw(10, 10, TheBitmap);
TheBitmap.Free;
TheIcon.Free;
end;
 
我是从资源文件引入,而不从硬盘
 
LEFT_TOP_IMAGE BITMAP C:/IMAGE/LEFT_TOP.BMP
 
LoadFromResourceID

LoadFromResourceName
 
procedure TForm1.Button1Click(Sender: TObject);

var
BitMap1 : TBitMap;
begin
BitMap1 := TBitMap.Create;
try
BitMap1.LoadFromResourceName(HInstance,'THEBITMAP');
Canvas.Draw(12,12,BitMap1);
finally
BitMap1.Free;
end;
end;
 
后退
顶部