Delphi dicas

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

//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}

por : Jaber S. C. Lima