Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Image из BLOB поля в Delphi 2009 
V
    Опции темы
alisa7
Дата 26.2.2010, 14:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Доброе время суток!
Работаю в Delphi 2009. В таблице Firebird есть поле типа blob.
Как можно отобразить в Image картинку в формате .jpg из этого поля.
Может кто-то сталкивался, помогите плз!
PM MAIL   Вверх
Данкинг
Дата 26.2.2010, 20:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


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

Репутация: 35
Всего: 130
Сохраняем картинку в файл:
Код

procedure tform1.Load_pic;
var S : TStream;
    FileS : TFileStream;
    FileName:string;
begin
  filename:='c:\temp.jpg';
  if zapros_ib2.FieldByName('jpg').IsNull then Exit;
  S:=zapros_ib2.FieldByName('jpg').DataSet.CreateBlobStream(zapros_ib2.FieldByName('jpg'), bmRead);
  if FileExists(FileName) then
    FileS:=TFileStream.Create(FileName, fmOpenWrite)
  else
    FileS:=TFileStream.Create(FileName, fmCreate);
  try
    FileS.CopyFrom(S, S.Size);
  finally
    S.Free;
    FileS.Free;
  end;
end;

filename - имя файла, в котором сохранится картинка, zapros_ib2 - IBQuery, 'jpg' - название BLOB-поля.


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


Новичок



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

Репутация: нет
Всего: нет
Данкинг, ответ конечно хорош, но это ответ НЕ на заданный вопрос. Человек спрашивает "Как можно отобразить в Image картинку", а вы рассказываете, как сохранить картинку в файл. В файл то сохранить нетрудно. И загрузить из файла нетрудно. Только устраивать временный файл для загрузки из базы ОЧЕНЬ некрасиво (еще некрасивее делать это через клипборд). Хотелось бы грузить картинку напрямую (из блоб-стрима). Только вот у TImage.Picture метод LoadFromFile есть, а вот LoadFromStream нету. Как быть? Вот в чем трудность то....  
PM MAIL   Вверх
AndreyIQ
Дата 11.10.2011, 14:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: 1
Всего: 8
Цитата(boojum @ 11.10.2011,  14:21)
Только вот у TImage.Picture метод LoadFromFile есть, а вот LoadFromStream нету. Как быть? Вот в чем трудность то....

У TJPEGImage есть LoadFromStream.
PM MAIL   Вверх
Данкинг
Дата 11.10.2011, 15:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


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

Репутация: 35
Всего: 130
boojum, главное - вовремя отреагировать. smile 
Решение есть? Есть. А выбирает пусть каждый сам. А если кому-то кажется, что создавать временные файлы - это некрасиво, пусть и виндой тогда не пользуется.

Это сообщение отредактировал(а) Данкинг - 11.10.2011, 15:08


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "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.0417 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


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

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