Buscar por:

Dbimagem - como incluir uma imagem no banco de dados adaptando a imagem ao tamanho do campo

Código

Coloque no Form: 1 DBImagem, 1 Botão, 1 OpenPictureDialog.

Clique 2 vezes no botão para abrir o editor de codigo, depois he só digitar esse codigo na procedure do botão, e pronto.

OpenPictureDialog1.Execute;

Table1.Edit;

DbImage1.Picture.LoadFromFile(OpenPictureDialog1.Filename);

Vai ficar assim:

procedure TForm1.SpeedButton24Click(Sender: TObject);

begin

OpenPictureDialog1.Execute;

Table1.Edit;

DbImage1.Picture.LoadFromFile(OpenPictureDialog1.Filename);

DBImage1.Stretch := true;

DBImage1.Refresh;

end;