БД Paradox7 and JPEG [D7, D2005, XP, 2003]
ronyn © (2006-08-16 23:38:00)
Почему БМП тока отображаются?
D@Nger (2006-08-17 08:19:00) [1]
А ты через что отображаешь? Если через TImage, то он только
BMP понимает. Если хочешь отображать Jpeg надо подключать модуль
jpeg.
Вот попробуй эту процедуру:
procedure showpic;
var bs:TBlobStream;
jp:TJPEGIMAGE;
begin
Bs :=
TBlobStream.Create(fmain.sotrud_tbl.fieldbyname('foto') as
TblobField, bmRead);
jp:=TJPEGImage.Create;
if bs.Size<>0 then jp.LoadFromStream(bs) else
jp:=nil;
Image1.Picture.Graphic:=jp;
jp.Free;
if bs.Size=0 then Image1.Canvas.TextOut(15,60,'нет
изображения');
bs.Free;
end;
Наверх 
ЧАТ |
Орешник |
|
