|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Проблемы с TIdHTTPServer
Здравствуйте, у меня возникала странная проблема:
Пытаюсь сделать сервер на основе компонента TIdHTTPServer. Настройки компонента не менял, кроме порта. В событии IdHTTPServer1CommandGet написал следующее: Код:
procedure TForm1.IdHTTPServer1CommandGet(AContext: TIdContext; ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo); begin showmessage ('1'); end; Помимо сообщений, пробовал выводить в ListBox параметры запроса. Вот что получается в таком случае: Код:
procedure TForm1.IdHTTPServer1CommandGet(AContext: TIdContext; ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo); begin Log ('Входящий запрос от: ' + ARequestInfo.RemoteIP + #10#13 + 'Параметры запроса: ' + ARequestInfo.UnparsedParams); end; Код:
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 Параметры запроса: Ах да, еще если отсылать запросы, когда сервер выключен (в смысле переходить по ссылке в браузере), то при включении сервера запрос все-таки приходит. Но это ведь так и должно быть, да? Из браузеров проверял хром и файрфокс, без разницы вообще. В чем может быть проблема??? |
#2
|
||||
|
||||
Можно ли увидеть весь код?
Самые сильные программисты были на заре компьютеризации. И чем дольше я программист, тем больше это понимаю - мы до сих пор поддерживаем их код... |
#3
|
||||
|
||||
ну так смотри что браузер запрашивает:
Код:
ARequestInfo.Command+ARequestInfo.Document+ARequestInfo.Params.Text Цитата:
Цитата:
Пишу программы за еду. __________________ |
#4
|
|||
|
|||
Спасибо Всем, решил проблему вот так
Код:
procedure TFormAdminPanel.IdHTTPServer1CommandGet(AContext: TIdContext; ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo); begin if ARequestInfo.UnparsedParams.Length > 0 then begin // тут уже код end; end; Работает нормально, так как мне все равно только запросы с параметрами надо обрабатывать. |