Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Сети > TcpClient and socks

Автор: COOLHack 3.6.2009, 00:03

Как заставить работать TcpClient через Socks4/Socks5?

Автор: dvamaster 3.6.2009, 12:23

Переписать TTcpClient, добавив туда протокол соксов
Socks - это протокол оболочка для трафика

В Indy есть компонент IdSocksInfo

Автор: COOLHack 3.6.2009, 14:16

а подробнее

Автор: COOLHack 4.6.2009, 00:08

если в idhttp вписать ip и порт в прокси параметры должно работать? У меня в этом случае просто прога вылает с ошибкой сокета

Код


Переписать TTcpClient, добавив туда протокол соксов
Socks - это протокол оболочка для трафика

В Indy  есть компонент IdSocksInfo

А подробнее можно?

Автор: dvamaster 4.6.2009, 06:19

я использую Indy10. для него так:

кидаешь компонент протокола (например TIdHTTP)
затем TIOHandler (например TIdIOHandlerStack)
добавляешь TSocksInfo

Код


procedure TForm1.FormCreate(Sender: TObject);
begin
  IdHTTP1.IOHandler := IdIOHandlerStack1;
  IdIOHandlerStack1.TransparentProxy := IdSocksInfo1
end;

хотя эти свойства можешь и в инспекторе свойств заполнить

Добавлено через 2 минуты и 38 секунд
http://www.indyproject.org/KB/ - инфа по инди

Автор: COOLHack 4.6.2009, 11:38

поставил инди 10, сделал как сказано выше, потом делаю так:

Код


Form1.IdSocksInfo1.Host := u;
Form1.IdSocksInfo1.Port := p;
Form1.IdSocksInfo1.Version := svSocks4;

Правильно? или по другому нужно прописывать какой сокс юзать проге?

Автор: COOLHack 4.6.2009, 17:46

запрос до скрипта не доходит, при этом фаервол пишет "Пакет на закрытый порт"
Прога вылетает с ошибкой "Socks server did not respond"

Это проблема в соксах, или в криворукости?

Автор: Romikgy 4.6.2009, 22:37

Цитата(COOLHack @ 4.6.2009, 16:46

)

, при этом фаервол пишет "Пакет на закрытый порт"

Цитата(COOLHack @ 4.6.2009, 16:46

)

Это проблема в соксах, или в криворукости?

имхо в настройках файрвола

Автор: COOLHack 4.6.2009, 23:46

когда фаер ставлю в режим "отключить" то есть он просто смотрит что и где, но ничего не лочит, тож самое пи шет.

А вообще люди помогли, сделал уже всё