图象文件的保存

[我和我的蓝天白云]

想把多个图象文件保存到一个文件中，又能方便的单个读出，不想使用access数据库，因为在98下需要另外安装数据库驱动！！！请高手指点！

[GARNETT2183]

用一个文件来保存图片的位置信息,之后再根据位置信息来载入载出吧...

[kongguangming]

放到自定义的文件里。

[飞天揽月]

放在一个文件里使用资源文件

[飞天揽月]

几乎每个Windows应用程序都使用图标、图片、光标等资源。资源是程序的一部分，但是它是不可执行代码。下面我们就详细介绍资源文件在Delphi5中建立和使用方法。
1．把资源放到Exe文件的优点
由于定位资源比在磁盘中定位文件花费时间少，所以应用程序执行会更快。多种资源可以放在一个文件中，减少了图标、图片、光标等文件数量。保存资源文件时不要和工程名相同，因为Delphi创建工程时会自动创建一个和工程名相同的资源文件。并且最好将资源文件保存到和工程文件同一个文件夹中。
2．创建资源文件
首先创建一个.Rc的纯文本文件。格式如下：
资源标识符 + 关键字 + 资源文件名
① 资源标识符：程序中调用资源时的特殊标号；
② 关键字：标识资源文件类型；
Wave： 资源文件是声音文件；
RCDATA： JPEG文件；
AVI： AVI动画；
ICON： 图标文件；
BITMAP： 位图文件；
CURSOR： 光标文件；
资源文件名：资源文件名；
③ 资源文件名：编译的资源文件，比如动画、位图、光标等；
④ 如：MyWav WAVE "FileName.Wav"
使用Borland资源编译器（BRCC32.EXE）转化.Rc文件成.Res文件。在DOS命令行下输入下列命令：
Brcc32 FileName.Rc // Brcc32.Exe在Delphi5\Bin文件下。
3．在工程中引用资源文件
为了存取我们的资源文件，必须告诉Delphi链接我们的资源文件到应用程序中。因此我们可以在源代码中加入一条编译指令完成上述功能。这条指令必须紧跟在窗口指令后，如下形式：
{$R *.DFM} //Delphi自带编译指令
{$R FileName.Res}　//新加入的编译资源文件的指令。
不要删除{$R *.DFM}指令，因为这行代码告诉Delphi链接下面的资源到窗口的资源中。
4．调用资源文件
(1)存取资源文件中的位图(Bitmap)
程序中如果想存取资源，你必须调用一些Windows API函数。保存在资源文件中的位图、光标和图标可以通过调用LoadBitmap、LoadCursor和LoadIcon函数存取。
本例举例说明如何存取资源文件中位图并显示在Timage控件中。
procedure TfrMain.btnCanvasPic(Sender: TObject);
Image1.Picture.Bitmap.Handle :=LoadBitmap(hInstance, '资源标识符');
end;
注：如果位图没有装载成功，程序仍旧执行，但是Image将不再显示图片。你可以根据LoadBitmap函数的返回值判断是否装载成功，如果装载成功返回值是非0，如果装载失败返回值是0。
另外一个存取显示位图的方法如下
procedure TfrMain.btnLoadPicClick(Sender: TObject);
begin
Image1.Picture.Bitmap.LoadFromResourceName(hInstance, '资源标识符');
end;
(2)存取资源文件中的光标
Screen.Cursors[]是一个光标数组，使用光标文件我们可以将定制的光标加入到这个属性中。因为默认的光标在数组中索引值是0，所以除非想取代默认光标，最好将定制的光标索引值设为1。
procedure TfrMain.btnUseCursorClick(Sender: TObject);
begin
Screen.Cursors[1] :=LoadCursor(hInstance,'资源标识符');
Image1.Cursor :=1;
end;
(3)存取资源文件中的图标
将图标放在资源文件中，可以实现动态改变应用程序图标。
procedure TfrMain.LoadIconClick(Sender: TObject);
begin
Application.Icon.Handle := LoadIcon(hInstance, '资源标识符');
End;
(4)存取资源文件中的AVI
procedure TfrMain.LoadIconClick(Sender: TObject);
begin
Animate1.ResName :='MyAvi' ; //资源标识
Animate1.Active :=True ;
End ;
(5)存取资源文件中的JPEG
把jpeg单元加入到Interface的uses单元中。
procedure TForm1.LoadJPGClick(Sender: TObject);
var
Fjpg : TJpegImage ;
FStream :TResourceStream ;
begin
Fjpg :=TJpegImage.Create ;
FStream := TResourceStream.Create (Hinstance,'资源标识符',RT_RCDATA) ;
FJpg.LoadFromStream (FStream) ;
Image1.Picture.Bitmap.Assign (FJpg);
end;
(6)存取资源文件中的Wave
把MMSystem加入到Interface的uses单元中
procedure TForm1.LoadWaveClick(Sender: TObject);
begin
PlaySound('MyWav', HInstance, Snd_ASync or Snd_Memory or snd_Resource) ;
end;
5．结束语
　　位图、光标和图标、AVI动画、JPEG和Wave文件等可以放到资源文件中，上面我们介绍了如何将资源加入到资源文件中，并介绍了在Delphi中动态存取资源文件的方法。Delphi编译工程会自动创建一个和工程名相同的资源文件（如果没有其他的资源，主窗口的图标会放在这个资源文件中）。但是建议最好不要改变这个资源文件。

（出处：DelphiFans.com）

[我和我的蓝天白云]

如果使用数据库，使用什么类型的数据库发布时不需要另外安装驱动（win98)?

[我和我的蓝天白云]

谢谢各位的提示，不过我的图象文件是在不断变化的，不断的增加和删除，好象不适合放在资源文件中吧？请再给点建议啊！

[亮剑_]

还是放到数据库里比较方便；要不放到压缩包里，取出来也不是太方便的

[zousoft]

用ADO的都不用安环境吧，从win98第2版后，MDAC就被微软捆绑了。
用access数据库，我记得除了你的程序，带一个mdb文件一起发布就够了。

[zousoft]

另外自己建个二进制文件，把它们攒起来也可以啊。用read，seek，write那些函数。分隔标志可以是图形文件的文件头标志，实在不行在文件头或者尾再补上个说明列表。

[我和我的蓝天白云]

自己顶一下，盼回复

[仙侣步惊云]

当然是使用数据库，用Image类型字段保存，再用DBImage数据控件或第三方数据图像组件还原出来。
建议你用Sybase SQLAnywhere 8+ADO，该数据库只须拷一个exe文件，三个dll文件，无须安装驱动程序。

[我和我的蓝天白云]

access数据库需要定期压缩，不然体积会很大，还有更好的方法吗

[chenzunshi2]

http://www.somade.com/是个很专业的技术社区,去那里找找吧,或许有你要的答案~