我使用pngimage,Png.LoadFromResourceName(Hinstance,'MyPngPIC');
报错:The png image cound not be loaded from the resource ID
这是rc文件的内容MyPngPIC PngType 3199870.png
高手帮帮忙!
报错:The png image cound not be loaded from the resource ID
这是rc文件的内容MyPngPIC PngType 3199870.png
高手帮帮忙!
解决方案 »
- 关于文本文件操作问题,求解!
- Fastreport动态交叉表
- 求助判断网页数据执行命令!
- DELPHI的Indy IdTCPClient控件如何主动接收数据??(急急急!!!!!!!!!!)
- 如何动态把一个控件放入一个容器问题!(论坛维护所无发搜索)
- 请问:TXMLdocument在xml里面怎样取出<test type="bool"> 中的"type="后面这部分?
- 有谁使用过cell组件,请帮帮忙,怎么获取当前表页,或者获取当前页的行数为很大的随机数
- 关于一个ole控件的问题
- 一百分求助FLASH结束标志语句
- 菜鸟问提之一
- 一般传输p2p软件的正在下载界面的grid是怎么实现的 用什么控件呢?
- 主窗体调用dll窗体,dll窗体上button的CM_MOUSEENTER,CM_MOUSELEAVE消息收不到,怎么回事?
我是用标准Image,你可以把类型改成PNGImage。library resource;uses
SysUtils,
Classes,
Jpeg,
Graphics,
ExtCtrls;{$R *.res}
{$R res.res}procedure LoadJpegFromRes(const Image: TImage; ResName: string); stdcall;
var
Stream: TStream;
Jpeg: TJpegImage;
begin
Stream := TResourceStream.Create(HInstance, ResName, PChar('JPG'));
Jpeg := TJpegImage.Create;
try
Jpeg.LoadFromStream(Stream);
if Image.Stretch then Image.Canvas.StretchDraw(Rect(0,0,Image.Width,Image.Height),Jpeg)
else Image.Canvas.Draw(0,0,Jpeg);
finally
Jpeg.Free;
Stream.Free;
end;
end;procedure LoadIconFromRes(const Icon: TIcon; ResName: String); stdcall;
var
Stream: TStream;
begin
Stream := TResourceStream.Create(HInstance, ResName, PChar('ICO'));
try
Icon.LoadFromStream(Stream);
finally
Stream.Free;
end;
end;exports
LoadJpegFromRes,
LoadIconFromRes;
begin
end.