VPF::Как правильно отключить клиентов (Indy10)

salik

Дата 19.2.2011, 10:44 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 74
Регистрация: 28.1.2011

Репутация: 1
Всего: 1

Доброго времени суток коллеги.
Есть сервер (IdcmdTcpServer), к которому подключаются клиенты по Telnet. Подключения и отлючения проходят без ошибок, фиксируются в логах - все замечательно.
В определенный момент возникает необходимость отключить клиентов (я делаю это кнопкой в событии OnClick).

Код


procedure TForm2.Button2Click(Sender: TObject);
var
 List : TList;
 I: Integer;
begin
 List := Srv.Contexts.LockList;
 try
   for i := 0 to List.Count-1 do
   with TIdContext(Srv.Contexts.LockList.Items[I]).Connection do
   Disconnect;
 finally
   Srv.Contexts.UnlockList;
 end;
end;

Клиенты отлючаются, но вот в чем подвох - сервер виснет при отключении

Код


procedure TForm2.Button3Click(Sender: TObject);
begin
 Srv.Active := False;
end;

PS: DelphiXE Indy10.5.7

salik

Дата 19.2.2011, 21:40 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 74
Регистрация: 28.1.2011

Репутация: 1
Всего: 1

Проблема оказалась в конфликте компонентов IdcmdTcpServer и IdServerInterceptLogEvent.
Во время отлючения какой-то поток или ресурс был не освобожден и при выключении сервера они не могли самостоятельно завершиться.
После удаления компонента IdServerInterceptLogEvent сервер завершает свою работу без проблем.

Код отключения

Код


procedure TForm2.Button2Click(Sender: TObject);
var
  I: Integer;
begin
  try
    with Srv.Contexts.LockList do for I := 0 to Count-1 do
    TIdContext(Items[I]).Connection.Disconnect;
  finally
    Srv.Contexts.UnlockList;
  end;
end;

Это сообщение отредактировал(а) salik - 19.2.2011, 21:43

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »