![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
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;