jpeg

[hinst]

Простите, не могу разобраться, как подключить в lazarus поддержку загрузки jpeg в TPicture. Подскадите плз.

[Максим]

Версия Lazarus? В 0.9.26 и выше всё должно работать из коробки.

[hinst]

у меня 0.9.26. нифига не работает. пробовал TPicture.LoadFromFile('image.jpeg'); - не робiт

[Максим]

пробовал TPicture.LoadFromFile('image.jpeg'); - не робiт

Вызов метода таким образом работать не будет. Так что свою Access Violation вы имеете вполне закономерно.

[ktdn]

Та жа проблема.
Перенес свой код из DELPHI.


function DRWJPGINT(Im1:TImage;s:string):boolean;
var
t:TJPEGIMAGE;
r:TBitmap;
q1,q2,q3,q4:integer;
q5,q6:real;
re:boolean;
begin
t:=TJPEGIMAGE.create;
r:=TBitmap.Create;
t.loadfromfile(s);
q1:=t.width;
q2:=t.Height;
r.assign(t);
t.DIBNeeded;
Im1.picture.bitmap:=r;
r.Destroy;
t.destroy;
end;

Не проходит
t.DIBNeeded;