Topic: Выгрузить картинку из базы

Доброе время суток,

подскажите, пожалуйста, как показать картинку в форме из базы данных

у меня есть такой скрипт

procedure ImgView (Sender: TObject; Action: string);

var img: string;

begin
      img := SQLExecute('SELECT img FROM Maslo WHERE id ='+ IntToStr(Masla.tblMasla.dbItemID));
      Masla.DBImage1.Picture.LoadFromFile(img);
   
end;

begin

end.

Но в img ничего не попадает
если я прописываю в обращении поле img_namefile все работает

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

отвечаю на вопрос почему я это делаю через скрипт

у меня идет в таблице перечень товаров.Задумка в том , что при нажатии на товар рядом появляется его картинка

2 (edited by derek 2019-12-06 19:43:56)

Re: Выгрузить картинку из базы

Здравствуй Maksim,
Возможно, попробуйте это так (см. Прилагаемый пример) и посмотрите на скриншот, который показывает
1. как использовать опцию 'linkfile'
2. Как указать папку 'copy to' в вашем приложении (я использую / gallery), чтобы при переносе приложения на другой компьютер фотографии не терялись.
Я считаю, что это самый простой способ
Derek.

Post's attachments

Attachment icon planes.zip 1.86 mb, 291 downloads since 2019-12-06 

Re: Выгрузить картинку из базы

спасибо, помогло
а где можно почитать об этом form1.dbimage1.loadfromdatabase

Re: Выгрузить картинку из базы

еще вопрос

var name:string;

begin
name := SQLExecute('SELECT en_name,id FROM Maslo WHERE id ='+ IntToStr(Masla.tblMasla.dbItemID));

Masla.edNameEn.Value := name;  // double

end;

как мне конвертировать string to double ??

Re: Выгрузить картинку из базы

разобрался

поменял
Masla.edNameEn.Value
на
Masla.edNameEn.Text

Re: Выгрузить картинку из базы

Здравствуй Maksim,
Если вы заглянули в Справку MVD - DBImage, там есть информация - http://myvisualdatabase.com/help_ru/
Тогда я просто пробую разные вещи, пока не получится так, как я хочу!
Derek.