destructor THITCP_Server.Destroy;
begin
Sock.Close; // это добавлено для закрытия при уничтожении
Sock.OnConnect := nil;
Sock.OnDisconnect := nil;
Sock.OnRead := nil;
Sock.OnClientConnect := nil;
Sock.OnClientDisconnect := nil;
//Sock.Destroy;
inherited;
end;|
Разработчик
Ответов: 26163
Рейтинг: 2127
|
|||
|
Используя компонент TCP_Server в мультике, я заметил, что при уничтожении мультика по ##clear, и повторном создании мультика по ##add, сокет не работает, так как не закрывается при уничтожении компонента. Немного подправив код мне удалось убрать этот баг, и сокет стал нормально открываться при пересоздании мультика
|
|||
| карма: 22 |
|
Поиск
Друзья
Администрация