Мини-прокси: Фильтровщик пакетов

[JoLan]

Добрый день. Задача следующая: организовать между готовым клиент-серверным приложением своё, которое будет принимать пакеты от клиента и посылать серверу. Для этого на форму было положено TServerSocket и TClientSocket.

procedure TForm1.servClientRead(Sender: TObject; Socket: TCustomWinSocket);
var buf: Array [0..MAX_PACKET_SIZE-1] of Byte;
    len2: Integer;
begin
  if client.Active then begin
    len2 := Socket.ReceiveBuf(buf[0], MAX_PACKET_SIZE);
    client.Socket.SendBuf(Pointer(@buf)^, len2);
  end;
end;

procedure TForm1.clientRead(Sender: TObject; Socket: TCustomWinSocket);
var buf: Array [0..MAX_PACKET_SIZE-1] of Byte;
    len2: Integer;
begin
  if serv.Active then begin
    len2 := Socket.ReceiveBuf(buf[0], MAX_PACKET_SIZE);
    Socket.SendBuf(Pointer(@buf)^, len2);
  end;
end;

В процедуре servClientRead при попытке отослать данные после нескольких секунд теряется соединение. Что я делаю не так?

[Slym]

Пример простого портмапа
второй архив - некоторые разновидности портмапа

[JoLan]

Огромное спасибо, а можно на примере TClientSocket и TServerSocket?

[Slym]

Это именно на них, а именно на TServerWinSocket и TClientWinSocket...
внутри TClientSocket и TServerSocket используются они
все это из одного модуля ScktComp.pas

можно без потерь и с минимальными переделками заменить одно на другое

[JoLan]

{$IFDEF VCLSock}ScktComp{$ELSE}BlockScktComp{$ENDIF};

Ругается на BlockScktComp, что нет такого модуля.

[Slym]

в каком модуле?
в начале проблемного модуля вставь
{$DEFINE VCLSock}

[JoLan]

Помогло, спасибо