[Slechtvalk_]

Здравствуйте, у меня возникала странная проблема:
Пытаюсь сделать сервер на основе компонента 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
Параметры запроса: 

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

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

В чем может быть проблема???

[Alex_4444]

Можно ли увидеть весь код?

[NumLock]

ну так смотри что браузер запрашивает:

Код:

ARequestInfo.Command+ARequestInfo.Document+ARequestInfo.Params.Text

/

/favicon.ico

[Slechtvalk_]

Спасибо Всем, решил проблему вот так

Код:

procedure TFormAdminPanel.IdHTTPServer1CommandGet(AContext: TIdContext;
  ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
begin
  if ARequestInfo.UnparsedParams.Length > 0 then
  begin
      // тут уже код
  end;
end;

Работает нормально, так как мне все равно только запросы с параметрами надо обрабатывать.