能否向asscess添加图像字段，如果可以，那么要怎样写入和读出，请各位关注

Question

二进制字段
保存：
(query1.FieldByName('img') as TBlobField).LoadFromFile('e:\temp.bmp');
TBlobField(Table1.FieldByName('Image')).Assign(Image1.Picture.Bitmap);
取出：
(query1.FieldByName('img') as TBlobField).Savetofile('e:\temp.bmp');
Image1.Picture.Bitmap.assign(TBlobField(Table1.FieldByName('Image')));

Answer 1

CSDN - 专家门诊 - Delphi问题  
 回复 | 推荐 | 收藏 | 专题 | 公告 | 管理 | 关闭窗口  
 
 
 
主　　题：  能否向asscess添加图像字段，如果可以，那么要怎样写入和读出，请各位关注 
作　　者：  gan973236 (飞虎)  
等　　级：    
信 誉 值：  97 
所属论坛：  Delphi 
问题点数：  100 
回复次数：  3 
发表时间：  2002-06-14 13:16:00 
   
 
   
如题所示：怎样才能够向asscess添加图型和读出图型
  
 
 
 回复人： scripting(scripting) (  ) 信誉：100  2002-06-14 13:15:00  得分:0  
 
 
  ole字段
用Tblobfield方法
  
 
Top 
 
 回复人： netlib(河外孤星) (  ) 信誉：105  2002-06-14 13:15:00  得分:0  
 
 
  二进制字段
保存：
(query1.FieldByName('img') as TBlobField).LoadFromFile('e:\temp.bmp');
TBlobField(Table1.FieldByName('Image')).Assign(Image1.Picture.Bitmap);
取出：
(query1.FieldByName('img') as TBlobField).Savetofile('e:\temp.bmp');
Image1.Picture.Bitmap.assign(TBlobField(Table1.FieldByName('Image')));支持jpg吗？？？？？
支持jpg吗？？？？？
支持jpg吗？？？？？ 

Answer 2

CSDN - 专家门诊 - Delphi问题  
 回复 | 推荐 | 收藏 | 专题 | 公告 | 管理 | 关闭窗口  
 
 
 
主　　题：  能否向asscess添加图像字段，如果可以，那么要怎样写入和读出，请各位关注 
作　　者：  gan973236 (飞虎)  
等　　级：    
信 誉 值：  97 
所属论坛：  Delphi 
问题点数：  100 
回复次数：  3 
发表时间：  2002-06-14 13:16:00 
   
 
   
如题所示：怎样才能够向asscess添加图型和读出图型
  
 
 
 回复人： scripting(scripting) (  ) 信誉：100  2002-06-14 13:15:00  得分:0  
 
 
  ole字段
用Tblobfield方法
  
 
Top 
 
 回复人： netlib(河外孤星) (  ) 信誉：105  2002-06-14 13:15:00  得分:0  
 
 
  二进制字段
保存：
(query1.FieldByName('img') as TBlobField).LoadFromFile('e:\temp.bmp');
TBlobField(Table1.FieldByName('Image')).Assign(Image1.Picture.Bitmap);
取出：
(query1.FieldByName('img') as TBlobField).Savetofile('e:\temp.bmp');
Image1.Picture.Bitmap.assign(TBlobField(Table1.FieldByName('Image')));支持jpg吗？？？？？
支持jpg吗？？？？？
支持jpg吗？？？？？ 

Answer 3

都支持，他只解决stream或者说二进制数据的存储，存什么，拿出来怎么用不关它的事。

Answer 4

ADOQuery1.SQL.Clear;
 ADOQuery1.SQL.Add('insert into tb(tb1)') ;
 ADOQuery1.SQL.Add('values(:ImageParam1)');
 ADOQuery1.Parameters.ParamByName('ImageParam1').LoadFromFile(ImageFileNamestr,ftgraphic);
 ADOQuery1.ExecSQL;
 ADOQuery1.Close;
tb为一个表，tb1为字段类型为OLE对象