Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.028 c