FreePascal.ru

Та жа проблема.
Перенес свой код из 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 ...