Buscar por:

Fotos no delphi

Código

Pressupondo que vc já tem a foto armazenada em disco e no formato .BMP, insira um componente DBImage no form e, por exemplo, no evento OnDblClick deste DBImage: 

var 

od : TOpenDialog; 

begin 

od := TOpenDialog.Create(Form1); 

od.Filter := 'Bitmaps (*.bmp)|*.bmp'; 

od.Title := 'Localizar a foto para inserir no cadastro'; 

if od.Execute then 

begin 

if not (DBImage1.DataSource.State in [dsEdit,dsInsert]) then 

begin 

DBImage1.DataSource.Edit; 

end; 

(DBImage1.Field as TBlobField).LoadFromFile(od.FileName); 

DBImage1.LoadPicture; 

od.Free; 

end; a imagem .bmp que vc escolher estará no DBImage do registro atual.