Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.02.04;
Скачать: CL | DM;

Вниз

idHTTPServer - документ по умолчанию   Найти похожие ветки 

 
BFG9k ©   (2006-08-24 16:45) [0]

При обращению к IdHTTPServer"у необходимо, чтобы он выдавал страницу по умолчанию - Index.html.


procedure TForm1.IdHTTPServer1CommandGet(AThread: TIdPeerThread;
 ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
begin
 idHTTPServer1.ServeFile(AThread,AResponseInfo,"c:\www\Index.html");
end;


В результате страница Index.html загружается при каждом переходе :( Есть ли документация на русском или примеры работы с idHTTPserver ?


 
Reindeer Moss Eater ©   (2006-08-24 17:52) [1]

При обращению к IdHTTPServer"у необходимо, чтобы он выдавал страницу по умолчанию - Index.html.
....
В результате страница Index.html загружается при каждом переходе

Получил же что хотел.


 
Отец Кондратий   (2006-08-25 11:00) [2]


> procedure TForm1.IdHTTPServer1CommandGet(AThread: TIdPeerThread;
>   ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
>

Вот он тебе на каждую команду и выдает, что написАл!
Там на другой Event надо index.html выдавать... На OnConnect хоть, что-ли... :-)
P.S. Спасибо, развлёк, старика...


 
Орион ©   (2006-08-25 13:21) [3]


> Там на другой Event надо index.html выдавать... На OnConnect
> хоть, что-ли... :-)

Спасибо, развлек, старика...

BFG9k,
проверяй ARequestInfo.Document, если оно "/" значит браузер стучится в корень и выдавай ему страницу по умолчанию.


 
BFG9k ©   (2006-08-25 15:22) [4]

Сам допер. Орион - спасибо. Тема закрыта...


 
Slym ©   (2006-08-28 06:45) [5]

Лучше так:
if RequestInfo.Document="/" then
begin
 ResponseInfo.Redirect("Index.html");
 exit;
end;


 
Орион ©   (2006-08-28 12:11) [6]

> [5] Slym ©   (28.08.06 06:45)

А чем лучше?
Наоборот приходиться еще одну транзакцию совершать, что в данном конкретном случае имхо бессмысленно.



Страницы: 1 вся ветка

Текущий архив: 2007.02.04;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.078 c
15-1169022430
shikitomedo2
2007-01-17 11:27
2007.02.04
Как распознать на собеседовании неадекватного работодателя?


2-1168951673
RomanH
2007-01-16 15:47
2007.02.04
Fast Report для FIBPlus


2-1169193508
J_SABER
2007-01-19 10:58
2007.02.04
Побитовое считывание файла


2-1169063960
Pasha L
2007-01-17 22:59
2007.02.04
overload или ещё чт-то нужно?


2-1169115980
dsa256
2007-01-18 13:26
2007.02.04
Контекстное меню TWebBrowser