Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2015.09.10;
Скачать: CL | DM;

Вниз

Delphi. Загрузка фото в поле BLOB (IBQuery)   Найти похожие ветки 

 
Надежда   (2014-04-15 23:19) [0]

Всем привет, мучаюсь вторую неделю, решила просить помощи тут.
В общем, есть Удаленная БД, таблицы сделаны в IBConsol. Есть ФИО то да се, и поле BLOB для фото.
[B][COLOR="Blue"]Как через кнопку загрузить фото в это поле и показать его соответственно в DBImage1 на форме.[/COLOR][/B]
Если [I][B]раньше в локальной БД[/B][/I] все работало вот так:

[CODE]procedure TForm1.BitBtnADDPICTUREClick(Sender: TObject);  //кнопка добавить картинку
var Fname:string;
begin
if OpenPictureDialog1.Execute then begin
Fname := ExtractFilePath(Application.ExeName) + "photo\" + ExtractFileName(OpenPictureDialog1.FileName); //указана папка, где хранятся фото
DataModule2.Table2.Edit;
DataModule2.Table2Photo_Zdanija_ATC.LoadFromFile(Fname);
DataModule2.Table2.Post;
end;
end;[/CODE]

То сейчас мы работаем с [B][I][U]Удаленной БД[/U][/I][/B] и вместо Table2 используем [B]IBQuery2[/B] (именно во второй таблице у меня поле BLOB).
Но есть одно НО, у меня ругается на

[CODE]procedure TForm1.BitBtnADDPICTUREClick(Sender: TObject);
var Fname:string;
begin
if openpicturedialog1.Execute then
Fname := ExtractFilePath(Application.ExeName) + "photo\" + ExtractFileName(OpenPictureDialog1.FileName);
DataModule2.IBQuery2.Edit;
DataModule2.IBQuery2[B][COLOR="Red"]РУГАЕТСЯТУТ[/COLOR][/B]Photo_Zdanija_ATC.LoadFromFile(Fname);  //ругается при соединении IBQuery2 и Photo_Zdanija_ATC, где Photo_Zdanija_ATC - название поля(столбца) BLOB
DataModule2.IBQuery2.Post;
end;[/CODE]

Подскажите, может кто знает - если я где-то ошиблась - укажите место, если нужен немного другой подход - как лучше сделать?


 
Dennis I. Komarov ©   (2014-04-15 23:22) [1]

Ну что за нелепый Copy-Paste???


 
Надежда   (2014-04-15 23:24) [2]

извините, с редактором беда. вот без него:
-----------------------------------------------------------------
Всем привет, мучаюсь вторую неделю, решила просить помощи тут.
В общем, есть Удаленная БД, таблицы сделаны в IBConsol. Есть ФИО то да се, и поле BLOB для фото.
Как через кнопку загрузить фото в это поле и показать его соответственно в DBImage1 на форме.
Если раньше в локальной БД все работало вот так:

procedure TForm1.BitBtnADDPICTUREClick(Sender: TObject);  //кнопка добавить картинку
var Fname:string;
begin
if OpenPictureDialog1.Execute then begin
Fname := ExtractFilePath(Application.ExeName) + "photo\" + ExtractFileName(OpenPictureDialog1.FileName); //указана папка, где хранятся фото
DataModule2.Table2.Edit;
DataModule2.Table2Photo_Zdanija_ATC.LoadFromFile(Fname);
DataModule2.Table2.Post;
end;
end;


То сейчас мы работаем с Удаленной БД и вместо Table2 используем IBQuery2 (именно во второй таблице у меня поле BLOB).
Но есть одно НО, у меня ругается на

procedure TForm1.BitBtnADDPICTUREClick(Sender: TObject);
var Fname:string;
begin
if openpicturedialog1.Execute then
Fname := ExtractFilePath(Application.ExeName) + "photo\" + ExtractFileName(OpenPictureDialog1.FileName);
DataModule2.IBQuery2.Edit;
DataModule2.IBQuery2РУГАЕТСЯТУТPhoto_Zdanija_ATC.LoadFromFile(Fname);  //ругается при соединении IBQuery2 и Photo_Zdanija_ATC, где Photo_Zdanija_ATC - название поля(столбца) BLOB
DataModule2.IBQuery2.Post;
end;

Подскажите, может кто знает - если я где-то ошиблась - укажите место, если нужен немного другой подход - как лучше сделать?


 
Dennis I. Komarov ©   (2014-04-15 23:41) [3]

Сильно сомнительно, в плане обращения к полю...


 
Плохиш ©   (2014-04-16 01:49) [4]


> ругается при соединении IBQuery2 и Photo_Zdanija_ATC, где
> Photo_Zdanija_ATC - название поля(столбца) BLOB

Блин, ещё одна партизанша. Ты ему верь, он не обманывает.


 
имя   (2014-04-16 02:45) [5]

Удалено модератором


 
Надежда   (2014-04-16 03:38) [6]

-----------------------------ОТВЕТ НАЙДЕН!------------------------------
Вспомнила, что в прошлом году делали.
Необходимо в компоненте IBQuery нужной нам таблицы с полем фото (в моем примере выше IBQuery2) правым кликом зайти в Fields editor ==> add all fields (добавить все поля). Тогда ошибку слитного написания IBQuery2Photo выдавать не будет.
Ну и поставить некоторые дополнительные компоненты ^^ и обязательно настроить Update. Всем споки))


 
macrodens ©   (2014-04-16 10:20) [7]

еще можно без создания всех полей в Fields editor
обратится к полю так

DataModule2.IBQuery2.FieldByName("<ИМЯ_ПОЛЯ>")



Страницы: 1 вся ветка

Текущий архив: 2015.09.10;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.042 c
15-1416917657
AndrewAndrey
2014-11-25 15:14
2015.09.10
Размер шрифта при печати


2-1393319059
Novicer
2014-02-25 13:04
2015.09.10
Ошибка при удалении записей таблицы Firebird


2-1394538433
Ce4kok
2014-03-11 15:47
2015.09.10
Разложение в ряд функции


15-1420061401
Юрий
2015-01-01 00:30
2015.09.10
С днем рождения ! 1 января 2015 четверг


15-1420234204
Юрий
2015-01-03 00:30
2015.09.10
С днем рождения ! 3 января 2015 суббота