Цитата:
Сообщение от alexteam
в чем заключается некорректность ?
|
например при таком тесте он вываливает ошибку
b9 - MyTargetSelected
begin
if FromServer and (pck[1]=#$b9) then
begin
buf:=#$14;
SendToServer;
end;
end.
на двух машинах тестила... ОС w7max_64 и wxpsp3_32
на первой проц i5 на второй athlon 64 x2 4800+
клиент GOD Tauti PTS
пишет ошибку
Access violation at address 132A61E9 in module 'myph.exe'. Read of address 00000000.
лог ассемблера
132A61C9 lea edx, [ebp-$10]
132A61CC mov ecx, [eax]
132A61CE call dword ptr [ecx+$08]
132A61D1 lea eax, [ebp-$10]
132A61D4 call -$001504FD
132A61D9 mov edi, eax
132A61DB lea eax, [ebp-$14]
132A61DE lea edx, [ebx+$50]
132A61E1 call -$0014DB96
132A61E6 mov eax, [ebp-$14]
132A61E9 movzx eax, byte ptr [eax+edi-$01] ; <-- EXCEPTION
132A61EE mov [ebp-$17], al
132A61F1 mov byte ptr [ebp-$18], $01
или такой тест... просто уходит в бесконечный цикл...
Var a:Integer;
begin
a:=1;
While a<2 do
begin
if FromServer and (ReadC(1)=185) then
begin
buf:=#$14;
SendToServer;
a:=2;
end;
end;
end.