Как прослушивать и переназначать соединения tcp в delphi?

Question

У меня есть TCP-соединение (прокси), которое подключается через socks4-5 и отправляет через него HTTP/https/DNS-трафик. мне нужно что-то поделиться, что-то HTTP/HTTPS и т.д. прошел через TCP соединение 1 и DNS-разрешения через соединение TCP 2

Я попытался создать IdTCPServer1 (Но я не уверен, что по праву трек), он соединяется, но ничего не посылает. Кроме того, он зависает, пока ReadLn не будет записанных данных, и это недопустимо.

procedure TForm1.IdTCPServer1Execute(AContext: TIdContext); 
var str_str:String; 
begin 
    str_str:=AContext.Connection.Socket.ReadLn(); 
    if(str_str<>'') then Memo1.Lines.Add('#TCP_SERVER: EXECUTE: '+str_str); 

Answer 1

Вам нужно обрабатывать (осуществлять) socks4/5 на стороне сервера протокола (см http://tools.ietf.org/rfc/rfc1928.txt). В запросе вы можете перехватить номер порта, чтобы узнать, есть ли он http, dns или что-то еще. Затем вы пересылаете соединение в соответствии с ним.