Показать сообщение отдельно
  #1  
Старый 05.01.2015, 21:06
Slechtvalk_ Slechtvalk_ вне форума
Прохожий
 
Регистрация: 05.01.2015
Сообщения: 2
Версия Delphi: Delphi XE5
Репутация: 10
По умолчанию Проблемы с TIdHTTPServer

Здравствуйте, у меня возникала странная проблема:
Пытаюсь сделать сервер на основе компонента TIdHTTPServer.
Настройки компонента не менял, кроме порта.
В событии IdHTTPServer1CommandGet написал следующее:
Код:
procedure TForm1.IdHTTPServer1CommandGet(AContext: TIdContext;
  ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
begin
  showmessage ('1');
end;
Проблема в том, что при переходе по ссылке localhost:11111 сообщение выводится 3 (!!!) раза вместо 1. Причем сначала сообщение выводится нормальным шрифтом, а потом 2 раза жирным.
Помимо сообщений, пробовал выводить в ListBox параметры запроса. Вот что получается в таком случае:
Код:
procedure TForm1.IdHTTPServer1CommandGet(AContext: TIdContext;
  ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
begin
  Log ('Входящий запрос от: ' + ARequestInfo.RemoteIP + #10#13 + 'Параметры запроса: '
  + ARequestInfo.UnparsedParams);
end;
А в ListBox пишет следующее:
Код:
05.01.2015 21:05:00:   Входящий запрос от: 127.0.0.1
Параметры запроса: a=a&b=123
05.01.2015 21:05:01:   Входящий запрос от: 127.0.0.1
Параметры запроса: 
05.01.2015 21:05:01:   Входящий запрос от: 127.0.0.1
Параметры запроса: 

Ах да, еще если отсылать запросы, когда сервер выключен (в смысле переходить по ссылке в браузере), то при включении сервера запрос все-таки приходит. Но это ведь так и должно быть, да?

Из браузеров проверял хром и файрфокс, без разницы вообще.

В чем может быть проблема???
Ответить с цитированием