Скачать: CL | DM;

БД Paradox7 and JPEG   Найти похожие ветки 

← →
ronyn   (2006-08-16 23:38) [0]

Почему БМП тока отображаются?

---

← →
D@Nger ©   (2006-08-17 08:19) [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;


---

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

Скачать: CL | DM;



Память: 0.44 MB
Время: -0.972 c