Здраствуйте, есть у меня вот такой код:
Код:
procedure TFrmMain.Button1Click(Sender: TObject);
var
jpg : pJpeg;
begin
jpg:=NewJpeg;
jpg.LoadFromFile('stas.jpg');
Image1.Width := jpg.Width ;
Image1.Height:= jpg.Height;
jpg.Draw(Image1.Canvas.Handle, 0, 0);
end;
На выделенной красным строке у меня выскакивает ошибка:
raised exception class EAccessViolation with message 'Access violation at addres 0046F33D in module Pr.exe '
в модуле KOL_ASM.inc в этой части :
Код:
function TBitmap.GetEmpty: Boolean;
asm
PUSH ECX
MOV ECX, [EAX].fWidth
JECXZ @@1
MOV ECX, [EAX].fHeight
@@1:TEST ECX, ECX
POP ECX
SETZ AL
end;
В чем тут дело?