Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Работа с сетью в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 15.11.2007, 14:04   #1
vitek123
Новичок
Джуниор
 
Регистрация: 15.11.2007
Сообщений: 2
По умолчанию TidHTTPServer не многозадачный?

При написании веб-сервера, используя компонент TidHTTPServer, на событие OnCommandGet я ставлю паузу 10 секунд с помощью команды Sleep(10000) и вывожу текущее время. Запускаю три эксплоурера с одним и тем же адресом....
и с интервалом 1 секунду из обновляю... Первые два работают одновременно, а третий ждёт первый, то есть запускается после выпонения первого... Как сделать многозадачность???

вот код:

procedure TForm1.Button1Click(Sender: TObject);
begin
Self.IdHTTPServer1.Active:=True;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
Self.IdHTTPServer1.Active:=False;
end;

procedure TForm1.IdHTTPServer1CommandGet(AThr ead: TIdPeerThread;
ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
begin
Sleep(10000);
AResponseInfo.ContentText := TimeToStr(Now);
end;
vitek123 вне форума Ответить с цитированием
Старый 15.11.2007, 16:32   #2
Квэнди
Старожил
 
Аватар для Квэнди
 
Регистрация: 13.12.2006
Сообщений: 3,859
По умолчанию

maxconnections ?
ICQ не для вопросов, а для предложений. Для вопросов используйте форум
IRC канал клуба программистов|Мои статьи
Квэнди вне форума Ответить с цитированием
Старый 16.11.2007, 08:32   #3
vitek123
Новичок
Джуниор
 
Регистрация: 15.11.2007
Сообщений: 2
По умолчанию

Цитата:
Сообщение от Квэнди Посмотреть сообщение
maxconnections ?
maxconnection тут не причём... maxconnection = 0, то есть без ограничений...

оказывается это с одного компа не работает...
запускаем с нескольких - нет проблем...
vitek123 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Непонятка или ошибка TIdHTTPServer Vovkin Работа с сетью в Delphi 7 09.01.2007 16:15