各位高手请进来，数据库图片问题！

Question

请问把数据库里的图片（IMAGE格式）导出成图片格式，有什么方法？谁有没现成的工具？

Answer 1

举例:
将数据表中XP这个字段(IMAGE格式)导出为JPG文件: if SaveDialog1.Execute then
  if not ADOQuery1.fieldbyname('xp').IsNull then
  TBlobField(ADOQuery1.fieldbyname('xp')).savetofile(SaveDialog1.FileName);

Answer 2

Image1.Picture.Graphic.loadfromstream(ms);
写入:
//************************************
var 
  MS: TMemoryStream; 
begin 
  MS:=TMemoryStream.create; 
  Image1.Picture.Graphic.SaveToStream(MS); 
  MS.Position:=0; 
  Table1.Append;    
 //在数据库中添加一条记录 
  TBlobField(Table1.FieldbyName 
('image')).LoadFromStream(MS); 
  Table1.Post;        
//将所作的更新写入数据库 
end;
//**************************
读出:
//*************************
var 
  MS: TStream; 
begin 
  with Table1 do 
  MS:=CreateBlobStream 
(FieldbyName('image'),bmRead); 
  Image1.Picture.Graphic. 
LoadFromStream(MS); 
  MS.Free; 
end;