Поиск:

Ответ в темуСоздание новой темы Создание опроса
> запись картинки в Blob поле с помощью Insert, запись картинки в Blob поле с помощью In 
:(
    Опции темы
anton265
Дата 6.3.2011, 19:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 5
Регистрация: 4.12.2008

Репутация: нет
Всего: нет
Доброго времени суток!
Помогите разобраться пожалуйста:
Дано:
бд FireBird 
поле BLOB SUB_TYPE 0 SEGMENT SIZE 80
компоненты DB Express

Код:
DataModule1.SQLQuery1.SQL.Text:=(Insert into FOTO (a) Values ('+i1+',:B');
DataModule1.SQLQuery1.Params.ParseSQL(DataModule1.SQLQuery1.SQL.Text,True);
DataModule1.SQLQuery1.Params.ParamByName('B').LoadFromFile(''Путь_К_ФАЙЛУ'',ftBLOB);

Проблема:
Выдает ошибку: Undeclared identifier: 'ftBlob'
Что удалось понять мне:
TParam.LoadFromFile(string, TBlob Type)
Blob Type  - DB.Blob type

Пробовал указывать вместо ftBlob - ftMemo результат тот же

Как правильно указать параметры для LoadFromFile?
Какой Blob Type указывать для картинки *.jpg


Это сообщение отредактировал(а) anton265 - 6.3.2011, 19:35
PM MAIL   Вверх
Данкинг
Дата 6.3.2011, 21:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 35
Всего: 130
Запросом никак, только через .Edit.
Код

procedure FileToBlob(BlobField: TField; FileName: string);
var S : TStream;
    FileS : TFileStream;
begin
  S:=BlobField.DataSet.CreateBlobStream(BlobField, bmReadWrite);
  FileS:=TFileStream.Create(FileName, fmOpenRead);
  try
    S.CopyFrom(FileS, FileS.Size);
  finally
    FileS.Free;
    S.Free;
  end;
end;

IBTable.Edit;
FileToBlob(IBTable.FieldByName('pole_jpg'),'c:\file.jpg');
IBTable.Post;



--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
Akella
Дата 7.3.2011, 12:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 29
Всего: 329
anton265, погугли, я уверен, что уже есть готовые примеры.
PM MAIL   Вверх
anton265
Дата 13.3.2011, 00:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 5
Регистрация: 4.12.2008

Репутация: нет
Всего: нет
Разобрался. Нужно было указать в Uses указать DB и все заработало smile 
PM MAIL   Вверх
Akella
Дата 13.3.2011, 12:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 29
Всего: 329
Luke, use Ctrl+Shift+A
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Базы данных и репортинг"
Vit
Петрович

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами


Обязательно указание:

1. Базы данных (Paradox, Oracle и т.п.)

2. Способа доступа (ADO, BDE и т.д.)


  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • Вопросы по SQL и вопросы по базам данных не связанные с Дельфи задавать здесь

FAQ раздела лежит здесь!

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Vit, Петрович.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Базы данных и репортинг | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0436 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.