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

[Kanaris]

Задача такова. Хочу написать программу, которая посредством 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. Т.е. выполняется "ретрансляция" запроса. Должно поддерживаться несколько соединений (т.к. браузер открывает сразу несколько запросов с сервером). Как это реализовать?

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

[russian-stalker]

Задача не очень сложная, у вас даже алгоритм уже записан. Наработки имеются?
Попробуйте так:

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
begin
socket.SendText(idhttp1.Get('http://url/'));
end;

[Kanaris]

Имеются, но на Indy, и то очень кривые. Во-первых, асинхронно, как-то непоследовательно посылается запрос и ответ, во-вторых, только одно соединение, в третьих, мне сказали, что лучше реализовать через TClientSocket и TServerSocket. Но у меня уже мозг пухнет от чтения документации и разборки примеров. Если не сложно, пожалуйста наваяйте пару строк, как это сделать через сокеты, самое главное, чтобы поддерживалось несколько соединений (именно с этим у меня ничего не получается).

Вот мои попытки:

// открыть сервер на 888 порту при нажатии кнопки "старт"
procedure TForm1.Button1Click(Sender: TObject);
begin
  ServerSocket1.Port := 888;
  ServerSocket1.Open;
end;

// стоп
procedure TForm1.Button2Click(Sender: TObject);
begin
      {Останавливаем сервер}
      ServerSocket1.Active := False;
end;

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
begin
      {От клиента получено сообщение - выводим его в Memo1}
      Memo1.Lines.Insert(0,'Message received from client');
      text:=Socket.ReceiveText;
      Memo1.Lines.Insert(0,'> '+text);

      ClientSocket1.Host := 'htmlbook.ru';
      ClientSocket1.Port := 80;
      ClientSocket1.Open;
end;

procedure TForm1.ClientSocket1Connect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
// отрпавляет текст на сайт
  Socket.sendtext(text);
//  listbox1.items.add('< hello!');
end;

procedure TForm1.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
begin
// получает ответ с сервера
  text2:=PChar(Socket.ReceiveText);
  ShowMessage('read result '+text2);

  Memo1.Lines.Insert(0,'> '+text2);
  // ClientSocket1.Close;
end;

procedure TForm1.ServerSocket1ClientWrite(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  // ShowMessage('lol '+text2);
    Socket.SendText(text2);
      Memo1.Lines.Insert(0,'> '+text2);
end;

[russian-stalker]

Надо на ServerSocket1ClientRead отправлять