Сообщение от
Дмитрий Артюховский
Да че спорить то? сделайте так чтобы при старте программы один раз выполнялось то что ниже и все... относитесь к этому как к наступлению зимы )))
SysSockClose( 1 ); (* ЗАКРЫТЬ СОКЕТ *)
SysSockClose( 2 ); (* ЗАКРЫТЬ СОКЕТ *)
SysSockClose( 3 ); (* ЗАКРЫТЬ СОКЕТ *)
SysSockClose( 4 ); (* ЗАКРЫТЬ СОКЕТ *)
SysSockClose( 5 ); (* ЗАКРЫТЬ СОКЕТ *)
Не помогает классическое в теле программы:
Код:
IF NOT _INIT THEN
SysSockClose ( 1 ) ;
SysSockClose ( 2 ) ;
SysSockClose ( 3 ) ;
SysSockClose ( 4 ) ;
SysSockClose ( 5 ) ;
SysSockClose ( 6 ) ;
SysSockClose ( 7 ) ;
SysSockClose ( 8 ) ;
SysSockClose ( 9 ) ;
SysSockClose ( 10 ) ;
SysSockClose ( 11 ) ;
SysSockClose ( 12 ) ;
SysSockClose ( 13 ) ;
_INIT := TRUE ;
END_IF
Может надо было продолжить и добавить еще с десяток? ))