Модераторы: Snowy, Poseidon, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Выключение прокси сервера, TIdHTTPProxyServer 
:(
    Опции темы
Letov
Дата 29.4.2008, 14:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: 4
Исползую TIdHTTPProxySerevr. Для запуска сервера использую 
Код

Server.Active:=true;

А вот как остановить (выключить) прокси сервер. Я использую 
Код

Server.Active:=false

но если к серверу подсоединен хотябы один клиент, сервер не выключается, а программа зависает. Если подключения отсутствуют, сервер выключается нормально.
Как сделать, чтобы сервер не зависал при отключении, описанном в первом случае?
Заранее благодарен.


--------------------
Не бывает плохих языков программирования. Бывают плохие программисты...
PM MAIL   Вверх
SneG0K
Дата 29.4.2008, 14:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Max Mara
***


Профиль
Группа: Завсегдатай
Сообщений: 1887
Регистрация: 1.12.2007
Где: Wis Dells

Репутация: 2
Всего: 54
Код

Server.DiskonnectAll; //Или как0то так... я уже не помню точно
server.Active:=false;
PM WWW Skype   Вверх
Letov
Дата 29.4.2008, 14:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: 4
В том то вся и проблемма... Нету Server.Diskonnec

На запрос Server.Dis Delphi выдает только Server.Dispatch(); , на это вроде не то.


--------------------
Не бывает плохих языков программирования. Бывают плохие программисты...
PM MAIL   Вверх
Ortho
Дата 2.6.2008, 14:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: 1
Всего: 1
Тож помучался... но нашел... вот здесь: http://www.delphikingdom.ru/asp/answer.asp?IDAnswer=46801
PM MAIL   Вверх
Igor22
Дата 18.12.2010, 10:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Код

var i: Integer;
      List: TList;
begin
    try
      List := idServer.Contexts.LockList;
      for i := 0 to List.Count - 1 do begin
          TIdContext(List.Items[i]).Connection.Socket.Close;
      end; //for
      idServer.Contexts.UnlockList;
      Log('Все клиенты отключены');
      idServer.Active := False;
      Log('Сокет остановлен');
    except
    end;
end;
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Сети"
Snowy
Poseidon
MetalFan

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делится вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Snowy, Poseidon, MetalFan.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Сети | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0586 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.