Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как сохранить картинку в поле BLOB БД Firebird?

Страницы: < 1 2 3
Novicer © (2014-02-24 00:37:00)
Доброго времени суток! Собственно сабж :) Нашел пример тут: http://programmersforum.ru/showthread.php?t=190609Как уверяли работающий, но у меня с ним возникли проблемы... Создал BLOB-поле PHOTO1 в БД длинной 16384(подтип текст,WIN1251) Через OpenPictureDialog добавил в Image1 фото,затем пробую сохранить в БД так как сделано в примере и получаю такую ошибку: http://s52.radikal.ru/i138/1402/93/f8e9724cdcf3.jpg
В чем засада непонятно... :(

Novicer (2014-02-24 14:37:00) [41]
С трудом но удалось записать в BLOB-поле PHOTO таблицы фото. В IBExpert можно просмотреть содержимое, а вот как теперь его отобразить в программе незнаю. Пробовал использовать DBImage, указал DataSource а вот в перечне Field моего BLOB-поля PHOTO нет :( Пробовал в поток читать так:
var
Ss : TStringStream;
St : string;
begin
st := IBQuery1.FieldByName('PHOTO').AsString;
Ss := TStringStream.Create(st);
if Ss.Size > 0 then
begin
Image1.Picture.Bitmap.LoadFromStream(Ss);
end;
Ss.Free;
end;
При выполнении вылетает ошибка что нет поля PHOTO, хотя курсор на той записи где есть и поле и картинка в нем. В чем трабла непонятно... :(

Novicer (2014-02-24 11:07:00) [42]
В D2010 нет папки Samples\ Delphi... :(

Inovet (2014-02-24 10:03:00) [43]
> [4] Inovet © (24.02.14 08:46)
> дальше смотреть не стал

Посмотрел, что там в dfm. Естественно, никаких TIBTabel в реальном проекте не должно быть, уже говорили об этом.

Novicer (2014-02-24 09:47:00) [44]
Спасибо за помощь!

Inovet (2014-02-24 08:53:00) [45]
И в 100500 раз ты, конечно, снова проигнорируешь, но вдруг
http://ibase.ru/ibfaq.htm#blob

Inovet (2014-02-24 08:46:00) [46]
1 минута поиска в примерах привела к
...\Samples\Delphi\Database\IBX\FishFact\Readme.htm"
дальше смотреть не стал

Novicer (2014-02-24 01:55:00) [47]
Забыл сказать что строку DM.qrTree.ParamByName('Pict').AsBlob := Ss.DataString; изменил на DM.qrTree.ParamByName('Pict').AsBlob := Ss.Bytes;
Иначе компилятор ругается... :(

Novicer (2014-02-24 00:54:00) [48]
Изменил подтип поля на 0(Binary), но ошибка при сохранении фотки всеравно вылетает... :(

Novicer (2014-02-24 00:50:00) [49]
Думается мне что подтип неверный... Но какой задать при создании поля непонятно,они там все цифирками обозначены... :( Чтение онлайн-мануала к IBExperty http://ibexpert.net/ibe/index.php?n=Doc.DefinitionBlob#Subtypeясности не внесли :(

Страницы: < 1 2 3

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »