请问如何把大批图片放到资源文件中，如何调用？(100分)

sleepy · 1999-04-01

1.想把大批的图片放到res文件中去,不知如何处理? 用ImageEditor好象每次只能copy paste一个图片,麻烦死了. 2.如果用手写rc文件编译成res的方法,可以吗?怎样做? 3.等编译好res文件以后,如何在程序中调用?假设我把其中某一图片 放到TImage控件中,怎样做?请用代码回答俺的问题,谢谢!!!

wuyi · 1999-04-01

照抄一文, 供参考:                 源文件在DELPHI中的使用          资源是存放在扩展名.RES 的文件里的二进制数 据结构，在DELPHI 中资源文件可以使用图象编辑器来 制作（IMAGE EDITOR），或者使用其他的工具。如：BORLAND 公司提供的RAD PACK FOR DELPHI 中的RESOURCE WORKSHOP 来创 建。资源文件中通常存放的是应用程序可以随时存 取的一些对象，包括：ICON、CURSOR、BITMAP、FONT 等近十 种。大部分的资源在通常的情况下可以保留在磁盘 当中，直到程序需要使用它们时才将其调入，可以大 大的节省内存资源，同样，资源文件也是可以共享 的，即：多个程序可以共享一个资源文件，进而减少 了在应用程序之间代码重复的现象，使程序的代码 得到很大的优化，因此在应用程序中使用资源文件 有独立制作、方便、随时修改而不需要对应用程序代 码做任何修改的好处。          一般来说，一个应用程序的所有资源都存放 在一个RES 文件里，然后在DELPHI 进行编译的阶段将资 源文件的内容与最终的EXE 文件合并在一起，因此编 译后的RES 文件并没有什么作用，仅仅提供用来查阅 使用，在分发应用时不必把RES 文件分发给最终用户。 当然，不同的资源可以分别放在不同的资源文件当 中，而且资源文件越小调入内存的速度越快。在这里 还要说明的一点是：在修改了原来的资源文件之后， 在原来编译的EXE 文件中加入的资源不会随之而更 新，只有在重新进行编译以后，才能将新的资源加入 到新的EXE 文件当中去。          下面我们通过两个例子来说明在DELPHI 中如何 使用资源文件（在这里我们不讲述资源文件的制作 方法）。 一、如何在DELPHI 中使用定制的光标。          在使用DELPHI 进行编程时，有一个很重要的对 象──TSCREEN，它是用来管理和操纵运行时期屏幕的 不可视构件。它的CURSOR 属性是用来指定各个不同的 构件光标形状，声名为：    PROPERTY CURSORS[INDEX：INTEGER]：HCURSOR；          这个只读的特性返回应用程序支持的光标组 成的一个HCURSOR 类型的数组，它存储了屏幕上所有的 鼠标光标的身份代码（HCURSOR 就是光标的HANDLE 句柄）， 数组下标从0 开始，在DELPHI 预定义了一些代表不同光 标的常量，它的值是从0 到-17，您可以直接指定程序 使用的光标。如：          FORM1.CURSOR:颖硎綟ORM1 采用的光标是CRCROSS（十 字）。          大家可能都会发现构件的CURSOR 的属性最多提 供十八种常用的CURSOR 值，这在很多的情况下是不够 的，如：当光标进入一个PANEL 面板时光标的形状为一 只手，那么PANEL 的CURSOR 就不能满足这种要求，这时就 需要我们自定义一个手的光标并将其赋给PANEL  的CURSOR 属性。如何实现则可以按以下步骤进行：   1.使用资源文件编辑器（IMAGE EDITOR 或者RESOURCE      WORKSHOP）编写资源文件。   2.定义一个光标常量，注意这个常量不能与DELPHI 中      提供的光标常量相冲突。   3.在FORMCREATE 事件中使用WINDOWS API 当中的LOADCURSOR 函      数来载入自定义的CURSOR。   4.在程序中将自定义的CURSOR 分配给PANEL 的CURSOR 属      性。          下面说明如何将自定义的一只手的鼠标光标 赋给PANEL1 的CURSOR 属性。首先使用IMAGE EDITOR 建立一  个HAND.RES 的文件。之后按如下书写程序代码： implementation {$R *.DFM} const Crhand+ procedure TForm1.FormCreate(Sender: TObject); begin screen.cursors[crhand]:坅dcursor(Hinstance,'hand'); panel1.cursor:鹔and; end;          除了编写上面的代码以外, 我们还需要做的一 项工作是将资源文件加入到项目文件当中去, 编译指 令中的{$R filename} 伪指令让我们来增加资源文件，让 我们来看一看项目文件的代码。 program PCUR; uses   Forms,   HAND in 'HAND.pas' {Form1};          {$R *.RES}// 这里的* 意义为在程序编译以后会 产生一个与项目文件同名的资源文件，在这里为 PCUR.RES 文件, 这部分是自动产生的。          {$R hand.res}// 这部分是我们自己加入的自定义 资源文件，这两个资源文件（HAND.RES 和//PCUR.RES 中的资 源都会附加在可执行文件PCUR.EXE 的后面。 begin   Application.Initialize;   Application.CreateForm(TForm1, Form1);   Application.Run; end. 二、资源文件在编写动画程序中的应用          上面的例子使用的是在资源文件中存储的 CURSOR 资源，在下面的例子中我们将使用的是在资源 文件中提供的ICON 资源来编写一个小小的动画程序。 在这里动画的产生是利用定时器在一定的时间间隔 内产生TIMER 事件将存储在资源文件中的ICON 依次的绘 制在FORM 的同一处而产生的。这时要用到画布CANVAS  的DRAW 方法，其声明如下：          procedure Draw(X, Y: Integer; Graphic: TGraphic);          在这个方法当中的参数GRAPHIC 可以为：BITMAPS、 ICONS、METAFILES。具体的实现方法为：建立DEMO.RES 文件, 其中含有名为ICON1 —ICON6 的ICON。并将DEMO.RES 加到项目 原代码中去( 如: 上面例子的方法)。          动画程序的具体代码如下： unit donghua; interface         uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,   ExtCtrls; type   TForm1 ,lass(TForm)     Image1: TImage;     Timer1: TTimer;     procedure FormCreate(Sender: TObject);     procedure Timer1Timer(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end; var   Form1: TForm1; implementation var wicon:array[0..5]of Ticon;         // 建立TICON 类型的数组存储ICON 文件 idx:integer; {$R *.DFM} procedure TForm1.FormCreate(Sender: TObject); var iconname:string; piconame

char; begin piconame:齬alloc(7);           // 建立PCHAR 类型的字符串 for idx:餿o 5 do begin wicon[idx]:con.create;// 建立TICON 型对象 iconname:?on'+inttostr(idx); strpcopy(piconame,iconname);           // 将STRING 类型转换成PCHAR 类型 wicon[idx].handle:坅dicon(hinstance,piconame);             // 调用WINDOWS API 中的LOADICON 函数             // 载入资源中的ICON end; strdispose(piconame);//PCHAR 类型的删除 form1.canvas.draw(3,3,wicon[1]);          // 调用DRAW 的方法在FORM 上画出ICON1 idx: form1.setbounds(0,0,100,100);        // 固定FORM 的大小和位置 end; procedure TForm1.Timer1Timer(Sender: TObject);              // 形成动画的定时器事件 begin idx:Mx+1; if idx漢en idx: form1.canvas.draw(3,3,wicon[0]); form1.canvas.draw(3,3,wicon[idx]); end; end.          以上可以作为一个通用的动画程序，我们只 需要修改不同的ICON 以及增加IDX 的大小就可以编出不 同的动画应用（同样在资源中可以有其他形式的图 形如：BITMAPS 这时需要动态创建的是TBITMAPS 对象而不 是TICON 对象）。在两个例子中我们都用到了WINDOWS API 函数，这些函数在WINDOWS 单元中均有说明在这里不加 赘述。以上的两个例子只是资源文件的一点点应用， 要真正的掌握资源文件在程序设计中的强大作用， 还要靠自己在实践中不断的总结。          以上程序在WINDOWS95 下的DELPHI2.0 中编译通过。          作者：李旭东（李晓东）

sleepy · 1999-04-01

这篇文章我看到过,并没有回答俺的问题呀

wuyi · 1999-04-01

你现在的D4是不是UPDATE3的, 如是, 则在PROJECT菜单下有一个 RESOURCE 项 在那里, 你可以把图片加入. 如何调用, 我还没做过.

CJ · 1999-04-01

调出：LOADBITMAP 把图片输入资源：IMAGE EDIT，VISUAL STUDIO的资源编辑器都可以 找跟书看看吧，DELPHI 3从入门到精通中有详细论述

李璋琦 · 1999-04-01

写一个资源脚本文件（*.rc)列出位图及相应资源的名称   ..... A1 BITMAP "A1.BMP" A2 BITMAP "A2.BMP" A3 BITMAP "A3.BMP"  ..... 用BRCC32.EXE将其编译为res文件 在单元文件中加入 {$R *.dfm} {$R _____.res} 使用win api loadbitmap从资源中装入位图

sleepy · 1999-04-02

CJ大虾,请问可以不安装VStudio而只安装资源编辑器吗? Delphi3从入门到精通有电子书吗?谢谢!! 分太少,充分利用这次提问的机会,不好意思,嘻嘻~

redforks · 1999-04-02

如果觉得ImageEdit麻烦的化，就写RC，再用BRC32.exe编译成.res文件。 下面是程序。 ..... type   TForm1 = class(TForm)     Image1: TImage;     procedure FormCreate(Sender: TObject);     procedure FormDestroy(Sender: TObject);   private          bmp: TBitmap;   public     { Public declarations }   end; var   Form1: TForm1; implementation {$R *.DFM} {$R yourBmps.res} //必须和单元文件在同一目录下。 procedure TForm1.FormCreate(Sender: TObject); begin      bmp := TBitmap.Create;      bmp.LoadFromResourceName(HInstance, 'YOURBMP');      Image1.Picture.Bitmap := bmp; end; procedure TForm1.FormDestroy(Sender: TObject); begin      bmp.Free; end;

redforks · 1999-04-02

你现在的D4是不是UPDATE3的, 如是, 则在PROJECT菜单下有一个 RESOURCE 项                                                       ~~~~~ 我的D4是Update3，但是PROJECT菜单下没有找到RESOURCE项，是不是 我的UPDATE3和你的不同。

Jimchael Tsee · 1999-04-03

----images.rc---------- #include "images.pas" IDB_NA          BITMAP  DISCARDABLE     "NA.BMP" IDB_SLEEPING    BITMAP  DISCARDABLE     "SLEEPING.BMP" IDB_USING       BITMAP  DISCARDABLE     "USING.BMP" IDB_ALERTING    BITMAP  DISCARDABLE     "ALERTING.BMP" IDB_PAYING      BITMAP  DISCARDABLE     "PAYING.BMP" ----- images.ps ------------------ unit images; interface const   IDB_NA = 1;   IDB_SLEEPING = 2;   IDB_USING = 4;   IDB_ALERTING = 8;   IDB_PAYING = 16;   IDB_TRIGGER = 32; implementation end. 使用brcc32 images.rc 编译成images.res 在Delphi项目中(.dpr), 使用 {$R images.res}

zhouxiao · 1999-04-03

手工写一个文件（xxx.rc)如下： bmp_name1  BITMAP  c:/../*.bmp bmp_name2  BITMAP  c:/../*.bmp  .  . 其中bmp_name可以为任意，但实际的bmp文件名要加上路径。 用BRCC32.EXE将其编译为res文件 调用: 在 {$R *.dfm}下一行加上 {$R xxx.res} Image1.Picture.Bitmap.Handle:=LoadBitMap(HInstance,'bmp_name1'); 如果res文件内容有变化,你的project必须重新编译。

sleepy · 1999-04-03

多人接受答案了。

请问如何把大批图片放到资源文件中，如何调用？(100分)

sleepy

Unregistered / Unconfirmed

wuyi

Unregistered / Unconfirmed

sleepy

Unregistered / Unconfirmed

wuyi

Unregistered / Unconfirmed

CJ

Unregistered / Unconfirmed

李璋琦

Unregistered / Unconfirmed

sleepy

Unregistered / Unconfirmed

redforks

Unregistered / Unconfirmed

redforks

Unregistered / Unconfirmed

Jimchael Tsee

Unregistered / Unconfirmed

zhouxiao

Unregistered / Unconfirmed

sleepy

Unregistered / Unconfirmed

Similar threads