Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2015.09.10;
Скачать: [xml.tar.bz2];

Вниз

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;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.46 MB
Время: 0.044 c
15-1417463414
Kerk
2014-12-01 22:50
2015.09.10
Java => Delphi


15-1415815791
alexdn
2014-11-12 21:09
2015.09.10
Вопрос по wordpress


15-1417707045
Дмитрий С
2014-12-04 18:30
2015.09.10
Получить все открытые документы Excel


2-1392732185
Alex_C
2014-02-18 18:03
2015.09.10
Событие OnPaint для компонентов


2-1393187843
Novicer
2014-02-24 00:37
2015.09.10
Как сохранить картинку в поле BLOB БД Firebird?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский