Здравствуйте, у меня возникала странная проблема:
Пытаюсь сделать сервер на основе компонента 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
Параметры запроса:
Ах да, еще если отсылать запросы, когда сервер выключен (в смысле переходить по ссылке в браузере), то при включении сервера запрос все-таки приходит. Но это ведь так и должно быть, да?
Из браузеров проверял хром и файрфокс, без разницы вообще.
В чем может быть проблема???