Buscar por:

Gravar imagem no bd. ( jpg - jpeg - bmp )

Código

//Uso o Firebird. Coloquei um campo blob tipo binario no banco.

//A foto sera gravada neste campo blob.

procedure TFrmClientes.DBImage1Click(Sender: TObject);

var

{cria um opendialog em runtime. Pode-se usar tb o opendialog da paleta dialog, desta forma nao precisariamos da variavel.}

  Diag : TOpenDialog; 

begin

  Diag := TOpenDialog.Create(FrmClientes);

  with diag do

  if Execute then

  DBImage1.Picture.LoadFromFile(FileName);

  DBImage1.PasteFromClipboard;

end;

{Vc tb pode atribuir filtros para o opendialog caso queira limitar o tipo de fotos a ser incluso no bd. Qualquer duvida entre em contato}