Fórum Salvar imagem no banco de dados Access #341891

procedure TForm1.Button2Click(Sender: TObject);
var imagem: Tpicture;
   F: file of Byte;
begin
{No caso aqui, estou editando um regitro salvo} 
ADOTable1.Edit;

{Aqui verifica se a tabela esta sendo editada, se for no modo de inserção, este campo recebe "DsInsert"} 
if ADOTable1.State=DsEdit then
begin
if OpenPictureDialog1.Execute then
begin
imagem:= Tpicture.Create();
imagem.LoadFromFile(OpenPictureDialog1.FileName);
    AssignFile(F, OpenPictureDialog1.FileName);
    Reset(F);
    try
      if FileSize(F) > 15707 then
        ShowMessage(´O arquivo não pode ser maior que 15kb!´)
      else
        clipboard.Assign(imagem);
        DBImage1.PasteFromClipboard;
        imagem.Free;
    finally
      CloseFile(f);
    end;
end;
end
else
Showmessage(´Falta editar a tabela´);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if OpenPictureDialog1.Execute then
    try
      ClientDataSet1.Edit;
      ClientDataSet1Imagem.LoadFromFile(OpenPictureDialog1.FileName);
      if (ClientDataSet1Imagem.Size > 15707) then
        raise Exception.Create(´O arquivo não pode ser maior que 15kb!´);

      ClientDataSet1.Post;
    except
      ClientDataSet1.Cancel;
      raise;
    end;
end;

procedure TForm1.ClientDataSet1AfterScroll(DataSet: TDataSet);
var
  jpg: TJPegImage;
  bs: TStream;
begin
  jpg := TJPegImage.Create;
  bs := ClientDataSet1.CreateBlobStream(ClientDataSet1Imagem, bmRead);
  try
    jpg.LoadFromStream(bs);
    Image1.Picture.Assign(jpg);
  finally
    bs.Free;
    jpg.Free;
  end;
end;