Изменение картинки в dbimage при смене строки в dbgrid

@Iwan17 · Регистрация: 28.02.2016

Author24 — интернет-сервис помощи студентам

Как мне сделать в Delphi, чтобы при смени строки в dbgrid изменялась картинка в dbimage? База данных сделана в Paradox 7. Компоненты для соединения Table и DataSourse. Вот часть кода :

Delphi

procedure TForm1.Button3Click(Sender: TObject);
var
   fS: TFileStream;
begin
   if not OPD.Execute then Exit;
   fs:=TFileStream.Create(OPD.FileName, fmOpenRead);
   Table1.Edit;
   TBlobField(Table1.FieldByName('Photo')).LoadFromStream(fs);
   Table1.Post;
end;

Во вложения я прикрепил свою программу и базу.

@D1973 · 06.09.2017, 07:19

Iwan17, а чем Вам метод LoadFromFile() не угодил?

@Iwan17 · 06.09.2017, 09:14 **[ТС]**

Я не знаю как сделать, чтобы картинки уже были загружены в базе

@krapotkin · 06.09.2017, 15:38

ровно этот пример прямо в поставке прилагался
и картинки в базе там насколько я помню, тоже были
и доки по работе с этими картинками

@D1973 Модератор 9238 / 6021 / 2374 Регистрация: 21.01.2014 Сообщений: 25,730 Записей в блоге: 3
	06.09.2017, 07:19	2
	Iwan17, а чем Вам метод LoadFromFile() не угодил? 0

@Iwan17 0 / 0 / 0 Регистрация: 28.02.2016 Сообщений: 35
	06.09.2017, 09:14 [ТС]	3
	Я не знаю как сделать, чтобы картинки уже были загружены в базе 0

@krapotkin 5777 / 4520 / 1430 Регистрация: 14.04.2014 Сообщений: 20,143 Записей в блоге: 20
	06.09.2017, 15:38	4
	ровно этот пример прямо в поставке прилагался и картинки в базе там насколько я помню, тоже были и доки по работе с этими картинками 0

Опции темы