Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > БД в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 24.05.2016, 16:59   #1
Skittlies
Новичок
Джуниор
 
Регистрация: 22.02.2016
Сообщений: 2
Восклицание Помогите с открытием изображений в Delphi из Access

Вот как сохранять изображения в access я нашёл но как потом отобразить
его на форме? То есть чтобы при переходе между записями в DBGrid отображалась соответствующая картинка. Вроде можно как-то отобразить
картинку DBImage, пробовал не отображается не пойму почему.

Код:
procedure TForm3.Button1Click(Sender: TObject);
begin
  if OpenPictureDialog1.Execute then
  begin
    JPEG := TJPEGImage.Create;
    bmp := TBitmap.Create;
    try
      JPEG.LoadFromFile(OpenPictureDialog1.FileName);
      bmp.Assign(JPEG);
      Image5.Picture.LoadFromFile(OpenPictureDialog1.FileName);
      DataModule1.ADOTableEmployee.Edit; // режим редактирования
      DataModule1.ADOTableEmployee.FieldByName('Фото').Assign(bmp);
      // загрузка фото
      DataModule1.ADOTableEmployee.Post; // сохраняем данные
    finally
      JPEG.Free;
      bmp.Free;
    end;
  end;

end;
Skittlies вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
WPF + C# Подгрузка изображений в память, без блокирования файлов изображений fezilk25 C# (си шарп) 0 02.01.2014 11:28
создание модуля Delphi для поворота растровых изображений.delphi Romka62 Помощь студентам 1 18.11.2012 15:22
ПОМОГИТЕ ПРОБЛЕМА С ОТКРЫТИЕМ ФАЙЛОВ EXCEL Vilson85 Microsoft Office Excel 11 28.10.2009 12:15
Помогите с автоматическим открытием файлов Maladoj Общие вопросы .NET 5 03.04.2009 00:40