Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Еще раз про DBImage и Bitmap is ... 
:(
    Опции темы
Vladimit
  Дата 9.7.2005, 18:26 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Сразу прошу прощения за этот вопрос, который много раз везде всплывал, но разобраться все равно не могу. Вообщем пытаюсь загрузить картинку из базы Access через поток. Вот найденный мной примерчик :
Код

procedure TDataModule1.ADOTable1AfterScroll(DataSet: TDataSet);
var
Bitmap: TBitmap;
BS: TADOBlobStream;
begin
try
BS:= TADOBlobStream.Create(ADOTable1.FieldByName('картинка'), bmRead); //***
BS.Seek(78, soFromBeginning);
Bitmap:= TBitmap.Create;
Bitmap.LoadFromStream(BS);
DBImage1.Picture.Graphic:= Bitmap;
finally
Bitmap.Free;
BS.Free;
end;
end;


но на строчку *** дельфя ругается : Incompatible types: 'TBlobField' and 'TField'
(что вполне оправдано)

подскажите плиз как решить проблему .


  Вверх
offline
Дата 9.7.2005, 18:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 7
Всего: 7
http://forum.vingrad.ru/index.php?showtopi...=0&#entry369819
PM MAIL   Вверх
Vladimit
Дата 9.7.2005, 22:03 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
по ходу надо было писать
BS:= TADOBlobStream.Create(TBlobField(ADOTable1.FieldByName('картинка')), bmRead);

все компилится, но при запуске выводит ошибку переполнения стека smile
  Вверх
Vladimit
Дата 10.7.2005, 12:36 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
-> kirilllius
Можешь на почту [email protected] выслать рабочий пример работы с Jpeg ?
(загрузка и выгрузка из база Access )
  Вверх
offline
Дата 10.7.2005, 17:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 7
Всего: 7
сейчас найду и отправлю
PM MAIL   Вверх
offline
Дата 10.7.2005, 17:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 7
Всего: 7
Пример отправил smile
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Базы данных и репортинг"
Vit
Петрович

Запрещено:

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

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


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

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

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


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

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

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

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


 




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


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

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