я про то что
delphi Код:
if (FromServer) then
if (pck[1]=#$4A) then
if (ReadD(6) = 2) then
begin
//тут вылетать не может, ибо мы только что получили пакет от сервера, т.е. сокет еще существует.
buf:=#$1B;
WriteD(12);
SendToServerEx(CHAR_NAME);
end;
if (FromClient) then
if (pck[1]=#$6F) then
begin
//аналогично предыдущему но наоборот.
pck:='';
buf:=#$7E;
SendToClientEx(CHAR_NAME);
end;
если конечно на момент обработки пакета пх одна из сторон была отключена. вероятность этого очень мизерна. да и если бы такое произошло. то ошибка бы высветилась единожды.
т.е. либо существуют места с "произвольной" отсылкой пакета на сервер при приходе от клиента либо с отсылкой на клиент при приходе от сервера.
либо глюк сокетного движка в ревизии 83, честно, с этим, разбираться не особо хочеться т.к. единожды уже пришлось переписывать его практически полностью.