如何读取dll里面的图片资源 dll文件中,有两张图片,我想读出显示出来,请各位帮忙! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 var resStream: TResourceStream; hinst: THandle; jpg: TJPEGImage;begin hinst := LoadLibrary(PChar(AppPath + 'mainRes.dll')); if hinst <> 0 then begin if screen.Width > 800 then resStream := TResourceStream.Create(hinst,'mainbk768','JPEG') else resStream := TResourceStream.Create(hinst,'mainbk600','JPEG'); try jpg := TJpegImage.Create; try jpg.LoadFromStream(resStream); img_bk.Picture.Assign(jpg); finally jpg.Free; end; finally resStream.Free; end; FreeLibrary(hinst); end; 我这是 读取 JPEG 图片的,作为程序的背景,并且区分了 显示器的分辨率 我是想吧QQ游戏目录下的 CardRes.dll 里面的两张牌面图片读出来,bmp格式的! eout of resources???? 我新手.问一下大家有没有delphi类设计方面的书?电子的 海康ds-4000hc 视频卡服务端的问题 关于接口实现 的implements 关键字 做过IC卡读写和指纹识别的朋友请进来 关于查询的问题小问题,请大侠指教,谢谢。 问一个小问题,高手看一下,谢谢! messageDlg的问题! 如何访问WEB服务器的文件?急,急。。。 如何创建一个MDIChild窗体 请问各位高手,有谁学过SPSS这个软件的! TurboPower传真构件把 TXT 文件转换成 APF文件时,当TXT有中文时,收到的传真显示不出中文,急死了!
resStream: TResourceStream;
hinst: THandle;
jpg: TJPEGImage;
begin
hinst := LoadLibrary(PChar(AppPath + 'mainRes.dll')); if hinst <> 0 then
begin
if screen.Width > 800 then
resStream := TResourceStream.Create(hinst,'mainbk768','JPEG')
else
resStream := TResourceStream.Create(hinst,'mainbk600','JPEG');
try
jpg := TJpegImage.Create;
try
jpg.LoadFromStream(resStream);
img_bk.Picture.Assign(jpg);
finally
jpg.Free;
end;
finally
resStream.Free;
end;
FreeLibrary(hinst);
end;