Fórum fotos no banco de dados #245206

procedure TForm1.EscolheImagem(Imagem: TDBImage); 
var 
  oJPEG: TJPEGImage; 
  oDialogo: TOpenPictureDialog; 
  oPicture: TPicture; 
begin 
  if not Assigned(Imagem) then 
    Exit; 

  if (not Assigned(Imagem.DataSource)) or (Imagem.DataField = ´´) then 
    Exit; 

  if not Assigned(Imagem.DataSource.DataSet) then 
    Exit; 

  if not (Imagem.DataSource.DataSet.Active) then 
    Exit; 
      
  oDialogo := TOpenPictureDialog.Create(nil); 
  try 
    oDialogo.Options := [ofOverwritePrompt, ofHideReadOnly, ofEnableSizing]; 
    oDialogo.Filter := ´Imagens (*.jpg;*.jpeg;*.bmp)|*.jpg;*.jpeg;*.bmp´; 
    oPicture := TPicture.Create; 
    try 
      oJPEG := TJPEGImage.Create; 
      try 
        if oDialogo.Execute then 
        begin 
          oPicture.LoadFromFile(oDialogo.FileName); 
          oJPEG.Assign(oPicture.Graphic); 
          if not (Imagem.DataSource.DataSet.State in dsEditModes) then 
            Imagem.DataSource.DataSet.Edit; 
          Imagem.Picture.Graphic.Assign(oJPEG); 
        end; 
      finally 
        FreeAndNil(oJPEG); 
      end; 
    finally 
      FreeAndNil(oPicture); 
    end; 
  finally 
    FreeAndNil(oDialogo); 
  end; 
end; 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  EscolheImagem(DBImage1); 
end;