请高手回答一个问题,关于image的! 图片太大或太多了,想一下,光每次加载、保存图片需要多久。用:Image1.Picture.Bitmap.LoadFromFile() 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 放到资源文件里面,然后做一个dll,将资源文件编译进dll,然后应用程序需要用的时候就读出来。你的程序不是一启动就要把这几十张文件都显示出来吧。 制作方法。第一步:先制作扩展名.rc的文件。文件内容如下,你可以根据实际情况修改jpeg1 RCDATA "e:\images\xxxx.jpg"jpeg2 RCDATA "e:\images\xxxx.jpg"jpeg3 RCDATA "e:\images\xxxx.jpg"然后将其保存到工程目录中,用下面的方法编译为资源文件。e:\delphi6\bin\brcc32.exe e:\YouProjectPath\jpeg.rc第二步:新建一个dll工程,引入该资源文件{$R jpeg.res}然后编译。最后,在应用程序需要用的时候加载图片.uses Jpeg;procedure Xxxx.xxxx;var hDll: THandle; JpegImage: TJpegImage; RS: TResourceStream;begin hDll := LoadLibrary('jpeg.dll'); if hDll <> 0 then begin JpegImage := TJpegImage.Create; RS := TResourceStream.Create(hDll, 'jpeg1', RT_RCDATA); RS.Position := 0; JpegImage.LoadFromStream(RS); Image1.Picture.Graphic := JpegImage; JPegImage.Free; RS.Free; end; FreeLibrary(hDll);end; sql语句中COUNT 和DISTINCT结合使用的一条语法错误 我要配置界面,下拉颜色表等? 谁能讲一下对象引用和类引用得区别:谢了 有谁知道:北京国电苏源信息技术有限公司 吗? 想开发一个公司内部的局域网应用程序(3层),该怎样做?各位大侠能提示一下吗? TDataSource组件的onDataChange事件是什么用途的 在杭州的书店里,delphi的书太少了,还不及Vb的十分之一,怎么办? 窗口布局问题,一定给分 高手:编程的惯例,请一一列出! 如何在Onclick事件中打开IE并进入指定网页? 改变窗口大小 请教各位大虾,关于程序启动前的LOGO画面!!
第一步:先制作扩展名.rc的文件。文件内容如下,你可以根据实际情况修改
jpeg1 RCDATA "e:\images\xxxx.jpg"
jpeg2 RCDATA "e:\images\xxxx.jpg"
jpeg3 RCDATA "e:\images\xxxx.jpg"
然后将其保存到工程目录中,用下面的方法编译为资源文件。
e:\delphi6\bin\brcc32.exe e:\YouProjectPath\jpeg.rc
第二步:新建一个dll工程,引入该资源文件
{$R jpeg.res}
然后编译。最后,在应用程序需要用的时候加载图片.
uses Jpeg;
procedure Xxxx.xxxx;
var
hDll: THandle;
JpegImage: TJpegImage;
RS: TResourceStream;
begin
hDll := LoadLibrary('jpeg.dll');
if hDll <> 0 then
begin
JpegImage := TJpegImage.Create;
RS := TResourceStream.Create(hDll, 'jpeg1', RT_RCDATA);
RS.Position := 0;
JpegImage.LoadFromStream(RS);
Image1.Picture.Graphic := JpegImage;
JPegImage.Free;
RS.Free;
end;
FreeLibrary(hDll);
end;