External exception C000001D

← →
Cosinus © (2004-09-08 16:25) [0]

Где имеенно оно вылетает, хз... Локализовать по моему очень трудоемко.
Вот код...
try GetMem(buffer,$1000); Gauge1.MaxValue:=BlockCount; Mem.Seek($10000,soFromBeginning); for t:=0 to BlockCount-1 do begin Mem.ReadBuffer(buffer^,$1000); addr:=copy(HexToStrN(IntToHex($10000+t*$1000,8)),2,3); Str:=""; for i:=0 to $fff do str:=str+chr(ord(buffer[i])); DatStr:=addr+#$10+#$00+str; PortInit(WrCommCrc(DatStr,true),PortBd);//запись в СОМ-порт If not ReadAnswer(4,1500) then //Если нет ответа, то... begin Log(clRed,"Error with ErrorCode 1 [timeout]",false); mem.Free; FreeMem(buffer); beep(2000,1000); exit; end; end; Log(clLime,"Writing memory OK",true); finally mem.Free; FreeMem(buffer); end;
Вылетает в самом конце (видимо с освобождением что то не то). Есть идеи? :)

← →
Cosinus © (2004-09-08 16:26) [1]

Забыл...
Я нашел, что C000001D - это STATUS_ILLEGAL_INSTRUCTION. В MSDN про нее написано - "Attempting to execute an instruction code not defined by the processor"

← →
MU © (2004-09-08 16:34) [2]

If not ReadAnswer(4,1500) then //Если нет ответа, то...
begin
Log(clRed,"Error with ErrorCode 1 [timeout]",false);
mem.Free;
FreeMem(buffer);
beep(2000,1000);
exit; end;
end;
Log(clLime,"Writing memory OK",true);
finally
mem.Free;
FreeMem(buffer);
end;

finally ВСЕ РАВНО ОТРАБОТАЕТ при выходе по EXIT

← →
Cosinus © (2004-09-08 16:43) [3]

Угу... Но все равно - молодец

External exception C000001D Найти похожие ветки