Код:
...
Procedure OnTimer01;
begin
buf := HStr(Хх);
SendToServerEx(ConnectName);
pck:='';
end;
begin
if FromServer and (pck[1]=#$00) then
begin
Aa := ReadD(12);
Bb := ReadH(20);
if ((Aa/Bb)=Сс) then
begin
Kill
end;
end;
end;
...
как то так
__________________
Никого нельзя ничему научить,
но всему можно научиться
народная мудрость
"Если любишь в жизни риск - форматируй жесткий диск!"
|