ACCESS数据库中如何保存图片

Question

ACCESS数据库中如何保存图片,在线，马上给分。

Answer 1

//保存
begin
  with ADOQuery1 do
  begin
    close;
    SQL.Text := 'select Image1 from t_1';
    Open;
    TBlobFile(Fields[0]).LoadFromFile('xxxx.bmp');
    Close;
  end;
end;//读取
begin
  with ADOQuery1 do
  begin
    close;
    SQL.Text := 'select Image1 from t_1';
    Open;
    TBlobFile(Fields[0]).SaveToFile('xxxx.bmp');
    Close;
  end;
end;