Delphi dicas

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

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;

por : Rogério Accorsi Machado