怎样从数据库中读取Image类型的数据？？

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

二进制字段
各两种方式
保存：
(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 2

var  graphic1:TGraphic;
　　begin
      graphic1:=TGraphic.Create;
    　graphic1.loadfromfile(opendialog1.filename);
  　　table1.insert;
  　　table1.fieldbyname('name').asstring:=edit1.text;
  　　table1.fields[1].assign(graphic1);
  　　table1.post;
  　　graphic1.free;
　　end;

Answer 3

你用什么方式存的。 就用什么方式取出来。比例说你是loadfromfile  那你就用savetofile('c:\a.txt')

Answer 4

var
  FN:String
  BS:TADOBlobStream;
begin
  BS:=TADOBlobStream.Create(TBlobField(ADOQuery1.FieldByName('字段名')),bmRead);
  Try
    FN:=ExtractFilePath(Application.ExeName)+ADOQuery1.Fieldbyname('文件名').asstring;
    FN:=FN+'.'+ADOQuery1.Fieldbyname('文件类型').asstring;
    BS.SaveToFile(FN);
  Finally
    BS.Free;
  End;
end;

Answer 5

用TDBImage直接读取图象就可以了！

Answer 6

首先用语句查找指定[文件名]和指定[文件类型]的记录.
定位后,按楼上的思想变可将文件存到硬盘上.也可用DBImage空件.
DBImage1.Picture.SaveToFile('c:\文件名');

Answer 7

和一般的数据不一样吗，就是不用DBGRID用DBIMAGE