Необходимо брать картинки через opendialog и по нажатию на кнопку записывать файлик в blob
-поле базы Firebird
. В отсутствии должного опыта не могу сообразить и подправить код для себя (в тех примерах которые видел). На сколько я понял все стоит делать через поток, а эта тема особенно дремучая для меня ... Кому не сложно, подскажите
IBQuery2.Open;
IBQuery2.Active:=false;
IBQuery2.Edit;
IBQuery2.SQL.Add('insert into MainTable (img) VALUES (?img)');
(IBQuery1.FieldByName('IMG') as TBlobField).LoadFromFile(OpenDialog1.FileName);
IBQuery2.Active:=true;
IBQuery2.ExecSQL;
IBQuery1 имеет запрос на выборку всех полей, т.е. он отображает мне все что надо при запуске приложения. IBQuery2, запрос в нем не прописан, использую его для задания запроса на создания новой строки в базе, а дальше по задумке в Blob-поле надо записать картиночку.
Использую стандартные компоненты Delphi 7 - с вкладки Interbase, Lazarus - с вкладки SQLdb
delphi 7 / lazarus