SQLServer - imagens

Top  Previous  Next

var

  od : TOpenDialog;

begin

   if fotografia.enabled=true then

   begin

     od := TOpenDialog.Create(Form2);

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

     od.Title := 'Localizar las fotografias de los Funcionários';

     if od.Execute then

     begin

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

         Fotografia.DataSource.Edit;

 

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

     Fotografia.LoadPicture;

     od.Free;

   end;

end