數據庫中存取圖片

//存數據

procedure TForm1.Button1Click(Sender: TObject);
var
  mm: TMemoryStream;
begin
  mm := TMemoryStream.Create;
  image1.Picture.Graphic.SaveToStream(mm);
  sqlQuery1.SQL.Clear;
  SQLQuery1.SQL.Add('insert into datasnap_test (id, des, img) values (2, :des, :img)');
  SQLquery1.ParamByName('des').Value := 'hello';
  SQLQuery1.ParamByName('img').LoadFromStream(mm, ftBlob);
  SQLQuery1.ExecSQL();
  mm.Free;
end;

//取數據
procedure TForm1.Button2Click(Sender: TObject);
var
  mm: TMemoryStream;
  JpegFile: TJpegImage;
begin
  mm := TmemoryStream.Create;
  JpegFile := TJpegImage.Create;
  SQLQuery1.SQL.Clear;
  SQLQuery1.SQL.Add('select * from datasnap_test where id=2');
  SQLQuery1.Open;
  TBlobField(SQLQuery1.FieldByName('img')).SaveToStream(mm);
  mm.Position := 0;
  jpegFile.LoadFromStream(mm);
  image2.Picture.Assign(JpegFile);
  mm.Free;
end;