Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

webserver


MNNN ©   (2008-01-10 19:18:00) 

каким образом можно сделать простейший web сервер ?
указать компоненту путь на локальном диске где лежат index.htm
и тому подобное (без всяких скриптов)


Джо   (2008-01-10 23:01:00) [1]

> [6] MNNN   (10.01.08 22:58)
> Спс нашел
> а то обыскал все в AResponseInfo....
> в поисках запрашиваемого имени

Request — запрос
Response — ответ

:)


MNNN   (2008-01-10 22:58:00) [2]

Спс нашел
а то обыскал все в AResponseInfo....
в поисках запрашиваемого имени


Джо   (2008-01-10 22:44:00) [3]

> [4] MNNN   (10.01.08 22:37)

А с какого перепугу он будет выдавать c.html, если ты ему собственноручно index.html выдаешь? Гм.
Анализируй ARequestInfo.Document и выдавай нужный файл.


MNNN   (2008-01-10 22:37:00) [4]

мне как раз обратное надо

ввожу в Opera http://192.168.1.2как раз загружает с:\index.htm
что и должно быть

ввожу в Opera http://192.168.1.2/c.htmмол на ссылку нажали,
грузится с:\index.htm а не с:\с.htm который там есть

ясное дело я сказал ServeFile(AThread,AResponseInfo, ' c:\index.htm');

а как бы сказать грузи по имени файла
http://192.168.1.2/c.htm = с:\с.htm
http://192.168.1.2/test.htm = с:\test.htm

глянул ParseParam - но это работает с строками вида test.htm?color=blueи в добавок  в другом классе TIdCustomHTTPServer, а не в имеющимся TIdHTTPServer


Джо   (2008-01-10 22:13:00) [5]

Если написать
 AResponseInfo.ServeFile(AContext,'с:\index.html')
в обработчике
IdHTTPServer1CommandGet(AContext: TIdContext;

то ВСЕГДА будет выдавать c:\index.html, вне завивисимости от того, что ты там запросил.


MNNN   (2008-01-10 21:50:00) [6]

Спс , поставил Indy и закладка появилась,
но в их папках нет примеров готового сервака

делаю так

procedure TForm1.IdHTTPServer1CommandGet(
IdHTTPServer1.ServeFile(AThread,AResponseInfo, 'c:\index.htm');

а дальше затык работает только для одной страницы
при обращении к f.htm пишет Cannot open file c:\index.htm


Джо   (2008-01-10 19:28:00) [7]

См. стандартный компонент TIdHTTPServer, вкладка Indy Servers.


Наверх

Титульная страница Поиск, карта сайта Написать письмо