Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

DBImage: как вывести в него JPEG ;или чем заменить? [D5, MSSQL]


kserg@ukr.net ©   (2002-05-29 10:22:00) 

Спасибо


Black Cat   (2002-05-29 11:13:00) [1]

Сходи на http://www.utilmind.com, там нечто было


kserg@ukr.net   (2002-05-29 10:59:00) [2]

>Black Cat © (29.05.02 10:47)
признаюсь, у меня "ума далеко не палата", чтоб таким заниматься

народ, мне бы попроще...


Black Cat   (2002-05-29 10:47:00) [3]


> vasilly ©
Можно пойти дальше, по первым символам определять тип рисунка. Я себе замастырил т.о. поддержку гифов,икон,вмф,бмп,jpg


Lusha   (2002-05-29 10:39:00) [4]

Переопределить TDBImage.Paint...


kserg@ukr.net   (2002-05-29 10:36:00) [5]

>vasilly © (29.05.02 10:26)
спасибо, принято

какие вар-ты есть ещё? :)


vasilly   (2002-05-29 10:26:00) [6]

Не используя DBImage:

Q:TQuery; //Запрос с Blob полем
BS:TStream;
Jpi:TJPEGImage;
Image:TImage;

BS:=Q.CreateBlobStream(TBlobField(Q.FieldByName("PICTURE")),bmRead);
try
if BS.Size<>0 then
begin
Jpi:=TJpegImage.Create;
Jpi.LoadFromStream(BS);
Jpi.DIBNeeded;
Image.Picture.Bitmap.Assign(Jpi);
Jpi.Free;
end;
finally
BS.Free;
end;


Наверх

Титульная страница Поиск, карта сайта Написать письмо