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

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

Как реализовать "ретранслятор" запросов через сокеты?


Kanaris ©   (2009-12-04 16:03:00) 

Задача такова. Хочу написать программу, которая посредством TClientSocket и TServerSocket будет пропускать через себя запрос и ответ таким образом:

1) программа висит на каком-нибудь порту (например 888) в режиме сервера (принимает запросы);
2) пользователь в браузере заходит на адрес http://localhost:888/(т.е. браузер посылает запрос в программу);
3) программа получила запрос от браузера, и отправила его на сайт (например htmlbook.ru), поменяв в запросе строчку "Host: localhost:888" на "Host: htmlbook.ru";
4) дождавшись ответа от htmlbook.ru, программа в точности передает его в браузер.

Т.е. получается, что пишешь в браузере http://localhost:888и тебе открывается сайт htmlbook.ru. Т.е. выполняется "ретрансляция" запроса. Должно поддерживаться несколько соединений (т.к. браузер открывает сразу несколько запросов с сервером). Как это реализовать?

(прокси не предлагайте, это не совсем то)


DVM   (2009-12-05 00:18:00) [1]


> Kanaris

Вообще твоя задача довольно легко решается с помощью связки TidHTTPServer и TIdHTTPClient. Многопоточность TidHTTPServer обеспечит сам.

Грубо говоря все выглядит так:
1) TidHTTPServer ждет соединений на нужном порту
2) Клиент подключается к нему с запросом
3) В обработчике сервера OnCommandGet ты получаешь всю информацию о запросе клиента, в том числе заголовок запроса и т.д.
4) Динамически создаешь TIdHTTPClient, передаешь ему все что нужно и получаешь страницу
5) Отдаешь страницу клиенту.

вуаля.


Сергей М.   (2009-12-05 00:14:00) [2]


> Попробовал реализовать через TIdMappedPortTCP


Только не говори что это не прокси.


> как подменить адрес в запросе?


зачем ?)


DVM   (2009-12-05 00:11:00) [3]


> Kanaris   (05.12.09 00:05) [9]


> TIdMappedPortTCP

Это несколько для другого. Для создания HTTP proxy он не годится.


Kanaris   (2009-12-05 00:05:00) [4]

Попробовал реализовать через TIdMappedPortTCP. Здесь вообще все просто, выполняется тоже самое. Но как подменить адрес в запросе?


Сергей М.   (2009-12-04 21:44:00) [5]


> прокси не предлагайте, это не совсем то


Гупости.
Прокси - это как раз то самое и есть.


Сергей М.   (2009-12-04 21:42:00) [6]


> Kanaris   (04.12.09 16:57) [4]


Ты студень что ли ?)
Та "пара строк" - это для препода ?


DVM   (2009-12-04 18:53:00) [7]


> Kanaris   (04.12.09 16:57) [4]

вот еще

http://forum.sources.ru/index.php?showtopic=135857&view=showall


DVM   (2009-12-04 18:51:00) [8]


> Kanaris   (04.12.09 16:57) [4]

может подойдет после небольшой модификации http://www.delphisources.ru/pages/sources/internet/2006_year/tgphttp_proxy.html

а еще есть TIdHTTPProxy


Kanaris   (2009-12-04 16:57:00) [9]

Если не сложно, пожалуйста наваяйте пару строк, как это сделать, самое главное, чтобы поддерживалось несколько соединений (именно с этим у меня ничего не получается).


Anatoly Podgoretsky   (2009-12-04 16:48:00) [10]

> Kanaris  (04.12.2009 16:03:00)  [0]

Да типичное это прокси, только у тебя оно наверняка нелегальное


Медвежонок Пятачок   (2009-12-04 16:41:00) [11]

Как это реализовать?

ты же сам все рассказал как:

программа получила запрос от браузера, и отправила его на сайт (например htmlbook.ru), поменяв в запросе строчку "Host: localhost:888" на "Host: htmlbook.ru";
4) дождавшись ответа от htmlbook.ru, программа в точности передает его в браузер.


Медвежонок Пятачок   (2009-12-04 16:38:00) [12]

и в чем смысл?


Наверх

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