Текущий архив: 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.47 MB
Время: 0.049 c
