VPF::Не получается сделать прокси используя сокеты.

RaIDeR

Дата 1.8.2005, 16:50 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 116
Регистрация: 20.6.2005

Репутация: 1
Всего: 4

Вобщем на форме лежат 2 компонента TServerSocket и TClientSocket, у
TServerSocket'а такие настройки:

Port := 8080;
ServerType := stNonBlocking;

Я обрабатываю событие OnClientRead у TServerSocket'а, и получаю
к примеру такой запрос:

Цитата

GET http://ya.ru/ HTTP/1.1
Host: ya.ru
User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; ru-RU; rv:1.7.8) Gecko/20050511 Firefox/1.0.4
Accept: text/xml,application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/png,*/*;q=0.5
Accept-Language: ru-ru,ru;q=0.5
Accept-Encoding: gzip,deflate
Accept-Charset: windows-1251,utf-8;q=0.7,*;q=0.7
Keep-Alive: 300
Proxy-Connection: keep-alive

После Я определяю url, и пытаюсь установить коннект TClientSocket'ом
таким образом:

Код


ClientSocket2.ClientType := ctNonBlocking;
ClientSocket1.Service := 'http';
ClientSocket2.Port := 80;
ClientSocket2.Host := 'http://ya.ru';
ClientSocket2.Open;

Но тут происходитят разные исключения, что Я делаю не так ?

ps
я знаю про компонент TGpHTTPProxy, просто хочеться узнать как
организовать прокси используя стандартные сокеты smile

Archon7th

Дата 2.8.2005, 12:24 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 107
Регистрация: 22.4.2005
Где: Витебск Белорусия

Репутация: нет
Всего: нет

я пробовал написать проксю на сокетах .... неполучиться ...

... долго обьяснять почему ... хочешь посмотри сам, ... работает частично и с ошибками ... версия старая, новее ненашел .... некоторые ошибки у меня уже были исправлены ... работает только как "подпрокси" ... но легко переделать под dialup ... если разберешься

... я пришел к тому что нужно работать TidTCP или TTCP Client/Server

Присоединённый файл ( Кол-во скачиваний: 31 )

stealth.zip 40,85 Kb

--------------------

CPU not found. Running software emulation.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »