VPF::Проблема с TIdHTTP - Форум программистов

DeltaX

Дата 24.11.2006, 21:04 (ссылка)

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

Загрузка ...

Новичок

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

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

Решил написать вещь типа прокси, На форме TIdHTTPServer i TIdHTTP:

Код


procedure TForm1.IdHTTPServer1CommandGet(AContext: TIdContext;
  ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
var
    s: string;
begin
    s := ARequestInfo.RawHTTPCommand;   // 'GET xxxxxxxxxx HTTP 1.1/v..';
    Delete(s, 1, 4);  Delete(s, Length(s)-8, 9);
    AResponseInfo.ContentText := IdHTTP1.Get(s);
end;

Коннектюсь на прокси, отправляет только текстовые данные (это я понел smile

), но я хотел бы написать полноценную прокси, используя при этом TIdHTTPServer i TIdHTTP. Помогите.

Xотел бы чуточку пояснить, на комп1 (без интернета) стоит стандартный браузер (ИЕхплорeр, Опера ...), а на комп2 (с интернетом) запускаю эту прогу. Как можно сделать чтоб комп1 тоже мог полноценно работать в интернете?

Это сообщение отредактировал(а) DeltaX - 24.11.2006, 21:23

Snowy

Дата 24.11.2006, 22:44 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

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

А смысл?
Разве нельзя взять готовый прокси?
Ну если уж так хочется мудрить, то проще сделать каскадный прокси на TIdTCPMappedPort
Настраиваешь его на любой анонимный прокси в инете - прокси готов smile

DeltaX

Дата 24.11.2006, 23:12 (ссылка)

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

Загрузка ...

Новичок

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

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

Ладно..., обясняю чтобы не возврашатся к вопросу "надо? не надо?". В локалке у админа (то есть у меня) доступ в интернет, а другие компы без инета. Так вот хочу сделать что то вроде usergate, и распределить интернет в локалке. Usergate или wingate не надо, надо альтернативу создать. Помогите.

Snowy

Дата 24.11.2006, 23:33 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

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

Вариант 1 - каскадный прокси - я про него уже написал (TIdTCPMappedPort) - просто передаёт запросы на другой прокси (например анонимный в инете).
Вариант 2 - в Indy 10 есть готовый TIdHTTPProxyServer.
Вариант №3 - поставить готовый прокси. Бесплатные тоже существуют - не юзергейтами едиными живёт инет smile

DeltaX

Дата 27.11.2006, 09:24 (ссылка)

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

Загрузка ...

Новичок

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

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

Snowy, спасибо тебе. Вариант 3 для меня отпадает. Вариант 1, тоже не подходит, поскольку отправлять его на еще один прокси в моем случай бесcмысленно. А вот вариант 2 интересный. Пример, можеш покозать smile

, пожалуйста?

Это сообщение отредактировал(а) DeltaX - 27.11.2006, 09:27

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