Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.07.18;
Скачать: CL | DM;

Вниз

измученный вопрос про "jpg"   Найти похожие ветки 

 
mike(c) ©   (2005-06-09 11:33) [0]

Спасибо что заглянули... Тема такая: делаю простенькую БД содержащую изображения (BLOB). С загрузкой картинок в БД проблем нет, а вот с отображением в TImage есть. С bmp работает нормально, но они слишком много место занимают, поэтому необходимо сделать Jpeg. При попытке отобразить выскакивает ошибка "Bitmap image is not valid".
Вот как я делал:
Image1.Picture.Assign(TJPEGImage(TBLOBField(DataSource1.DataSet.FieldByName("rosp"))));

а еще пробовал так:
Image1.Picture.Assign(TBLOBField(DataSource1.DataSet.FieldByName("rosp")));

Модуль Jpeg прописан.
Уже долго бьюсь над этим местом, найти пока нигде не смог, поэтому пишу. А может загружать картинки в БД как то по особенному надо?...
Подскажите пожалуйста, буду очень признателен!


 
Desdechado ©   (2005-06-09 11:37) [1]

   oS := qryGraf.CreateBlobStream( qryGraf.FieldByName( "PICT_BLOB" ), bmRead );
   if( oS.Size > 0 ) then begin
     case( cExt[ 1 ] ) of
       "B":
         Image1.Picture.Bitmap.LoadFromStream( oS );
       "I":
         Image1.Picture.Icon.LoadFromStream( oS );
       "J":
         begin
           oJPG := TJPEGImage.Create;
           oJPG.LoadFromStream( oS );
           oJPG.DIBNeeded;
           Image1.Picture.Bitmap.Assign( oJPG );
           oJPG.Free;
         end;
       "E", "W":
         Image1.Picture.Metafile.LoadFromStream( oS );
     end; // case



Страницы: 1 вся ветка

Текущий архив: 2005.07.18;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.085 c
3-1118205610
Ярослав
2005-06-08 08:40
2005.07.18
Диалог создания строки соеденения в ADOConnection


3-1117710292
MakNik
2005-06-02 15:04
2005.07.18
Шлюз для обмена данными между информационными системами


14-1119899162
Константинов
2005-06-27 23:06
2005.07.18
AVAST Кто что может сказать по сабжу. Стоящая вещь или...


8-1111596976
BAK
2005-03-23 19:56
2005.07.18
Какие возможности в Delphi работы со звуком?


14-1119789328
Chuvak
2005-06-26 16:35
2005.07.18
DVD+-RW?