图片(非bmp格式)用Timage控件插入access数据库中的问题 ( 积分: 50 )

我用
Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
载入图片,然后用
FieldByName('Images1').Assign(Image1.Picture.Bitmap);
保存在数据库中,如果载入的图片格式是bmp则一切正常,但是如果是其它格式,Image1控件可以显示,但是无法插入到数据库中,请问怎么才能在保存的时候自动的换为bmp格式,或者要怎样保存在数据库中?
谢谢

三、 程序代码（首先在单元文件接口部分的uses语句中添入JPEG单元引用）

1. 图像数据的选择及保存
procedure TForm1.selectimageClick(Sender: TObject); //选择图像
begin
if OpenPictureDialog1.Execute then
Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName );
end;

procedure TForm1.savetodbClick(Sender: TObject); //保存图像
var
strm: TMemoryStream;
ext: String;
begin
if image1.picture.Graphic <> nil then //避免image1中无图像保存出错
begin
ext:=extractfileext(openpicturedialog1.FileName ); //取出文件的扩展名
strm := tmemorystream.Create ;
try
image1.Picture.Graphic.SaveToStream(strm);
adotable1.Edit ;
strm.Position :=0;
tblobfield(adotable1.FieldByName('myimage')).LoadFromStream(strm);
//如需直接由文件保存可采用如下注释行
//TBlobField(adotable1.FieldByName('myimage')).LoadFromFile
(OpenPictureDialog1.FileName);
//以下记录保存到数据库的图像格式
if uppercase(ext) = '.BMP' then
adotable1.FieldByName('isbmp').Value := 1 //BMP型图像数据
else
if (uppercase(ext) = '.JPG') OR ( uppercase(ext) = '.JPEG') Then
adotable1.FieldByName('isbmp').Value := 0; //JPEG型图像数据
adotable1.Post ;
finally
strm.Free ; //笔者发现如strm采用tblobstream类，程序运行到该语句会出现问题
end;
end;
end;

2. 图像数据的读取及显示
从数据库图像字段中读取数据然后在Image1中把图像显示出来的程序代码，笔者先尝试在Datasource1的OnDataChange事件中来完成，但会出错，后改写在adotable1的afterscroll事件中顺利完成。

procedure TForm1.adoTable1AfterScroll(DataSet: TDataSet); //显示图像
var
strm: TADOBlobStream;
JpegImage: TJpegImage;
Bitmap: TBitmap;
begin
strm := tadoblobstream.Create(tblobfield(adotable1.fieldbyname('MYIMAGE')),bmread);
try //try1
strm.position :=0;
image1.Picture.Graphic := nil; //清除图像
// BMP、JPEG两种图像数据必需分别处理
if adotable1.fieldbyname('isbmp').asstring ='1' then //BMP型图像数据
begin //begin11
bitmap := tbitmap.Create ;
try //try11
bitmap.LoadFromStream(strm);
image1.Picture.Graphic := bitmap;
finally
bitmap.Free;
end; //end try11
end //end begin11
else
if adotable1.fieldbyname('isbmp').asstring ='0' then //JPEG型图像数据
begin //begin12
jpegimage := tjpegimage.Create ;
try //try12
jpegimage.LoadFromStream(strm);
image1.Picture.Graphic := jpegimage;
finally
jpegimage.Free ;
end; //end try12
end; //end begin12
finally
strm.Free ;
end; //end try1
end;

如果你想将数据库中的图像导出到外部文件中可采用如下关键语句：
Image1.Picture.SaveToFile(FileName);

以上程序代码不但适用于SQL数据库，而且完全适用于ACCESS数据库，但创建ACCESS数据库时应注意图像字段的数据类型应为OLE型，数据库创建完成之后再将Adoconnection1连接到该ACCESS数据库即可运行。欲知详细情况，请索取源程序。以上提供了DELPHI利用Tsteam类存取JPEG、BMP图像到数据库的一种解决方案，笔者争取下文介绍DELPHI利用ASSIGN方法存取JPEG、BMP图像到数据库的另一解决方案。

uses
JPEG;
...
var
jpg: TJPEGImage;
...
jpg:= TJPEGImage.Create;
try
jpg.LoadFromFile('c:/abc.jpg');
Image1.Picture.Bitmap.Assign(jpg);//???
with ADOQuery1 do
begin
CLose;
Connection:= ADOConnection1;
SQL.Clear;
SQL.Add('select * from photos');
Open;
Append;
FieldByName('Images1').Assign(Image1.Picture.Bitmap);
Post;
end;

finally
jpg.free;
end;

不明白为什么非要把图像存储到数据库？
你只放一个相对路径不就行了，如果说文件移动了，你就明确告诉用户，图像文件发生改变无法定位就行了，如果要自己移程序下的目录，那是客户造成的错误，你不可能都处理的了的
图像都放到数据库里，移动什么的是方便，可是如果有几百，几千，几万张图像，ACCESS文件还安全不，一但出错，什么都没有了，如果是用目录存储图像的话，MDB文件就不会太大，备份什么的都容易点