bmp图片从数据库读取到指定文件夹

Question

请问各位高手，如何将存在oracle中的bmp图片读取到指定文件夹中，多谢指教！！

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
begin
  DBImage1.Picture.SaveToFile('图片名.bmp');
end;

Answer 2

我不想用DBImage控件，请问有没有其他的办法，用Image控件行不行啊

Answer 3

没试过，这样看看行否。
Query1.Open;
....//循环保存
TBlobField(Query1.FieldByName('pic')).SaveToFile(...);
Query1.Next;
.....
Query1.Close;
///////////////////
如果不行，这样一定行
Query1.Open
.......
    fsTemp:=TFileStream.Create('aa.txt');
    TBlobField(Query1.FieldByName('pic')).SaveToStream(fsTemp);
    fsTemp.Destroy;
    Query1.Next;
........
Query1.Close;