[Jeneckiy]

Помогите разобраться!
В консоле настроен веб-сервер. Использую idhttpserver. Прослушивается 81 порт. Если в браузере ввожу http://127.0.0.1:81/, то commandGet вызывается дважды!!! как этого избежать?

Код:

procedure Tserver.CommandGet(AContext: TIdContext;
  ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);

begin
showmessage('Сообщение нужно вывести один раз!');
end;

все началось с того,что мне нужно было проверить правильность передаваемых параметров в URL, но шоумесаги вылетают по два раза.

Хелп,даже не пойму где искать выход.

[lmikle]

А что в ARequestInfo?
Это может быть и "залипуха" браузера. Особенно, если он идет на эту страницу не первый раз.

[Jeneckiy]

Ну я запускаю сервер,потом просто вписываю в браузере адрес и нажима энтер. все. а комадгет прокручивает вызов метода дважды.

[lmikle]

Сообщение от Jeneckiy

Ну я запускаю сервер,потом просто вписываю в браузере адрес и нажима энтер. все. а комадгет прокручивает вызов метода дважды.

Я же говорю, это может быть сначала запрос на проверку, что страница изменилась, а потом запрос самой страницы.

Подключись руками из Telnet'а и посмотри сколько вызовов будет тогда.

[Jeneckiy]

Код:

begin 
 IdTelnet1.Host := 'localhost'; 
 IdTelnet1.port := 81; 
 if not(idTelnet1.Connected) then 
  try 
    IdTelnet1.Connect;       
  except 
    ShowMessage('not connect'); 
  end;

так?
после коннекта ничего не происходит,вообще(

как же добиться разового вызова командгета? или команда должна вызываться два раза: на изменение и на сам запрос?