Соединение 2х сокетов

[Maxxxtri23]

В программе на Delphi есть ClientSocket1 и ClientSocket2. Как перенаправить данные приходяшие данные на 1 сокет во 2й на оборот. То есть должно получиться что-то вроде туннеля.
Попытаюсь объяснить на схеме:

[Лубышев]

А если сделать наоборот? пусть сервера юзают ClientSocket а клиент ServerSocket??? разницы то ни какой по сути

[Maxxxtri23]

Нужно именно так как на схеме

[Лубышев]

Дело в том что ServerSocket имеет набор сокетов а клиент тока один
но можно сделать так - по событию приема пакета с первого клиентсокета хватать то что пришло и тут же отправлять вторым клиент сокетом

[Maxxxtri23]

Да это понятно. Я думаю что тут как надо сделать чтобы данные приходящие на 1 сокет клались куда то в буфер или память и из неё пересылались уже 2м сокетом, вот только как это сделать я не знаю

[Лубышев]

Пакеты фиксированной длинны? есть структура у пакета иль просто набор битовый? ото у меня примерно такая же загвозга получается в теме что по соседству)
там есть примерное решение - но оно критует) если проблема у меня там решится то у тебя тут тоже автоматически решится)

[Maxxxtri23]

Нет пакеты все разные

[Лубышев]

Может как то так получится

procedure TForm1.ClientRead(Sender: TObject; Socket: TCustomWinSocket);
var buf:TmemoryStream;
size:integer;
begin
buf:=Tmemorystream.Create;
size:= Socket.ReceiveLength;
Socket.ReceiveBuf(buf,size);
form1.Client2.Socket.SendBuf(buf,size);//тута наверное крит получишь
//возможно надо сдвинуть позицию курсора на начало buf.position:=0; но мне эт не помогло

хотя я думаю что кританет. я что то видел в одной из тем сдесь что лучше в качестве буффера глобальную переменную юзать - тока ее над наверное постоянно чистить после передачи пакета... ото будет забиваться

[Пепел Феникса]

в обработчике OnRead первого сокета пишем примерно это:

var buf:array of byte;
begin
 SetLength(buf,Socket.RecieveLength);
 Socket.RecieveBuf(buf[0],Length(buf));
 ClientSocket2.Socket.SendBuf(buf[0],Length(buf));

аналогичное у второго сокета.

хотя я думаю что кританет

кританет?
более похоже на всяких игр.

AV вылетит, ибо вы переписываете обьект, а не его данные.

[Лубышев]

О... в моем проблеме http://www.programmersforum.ru/showthread.php?t=191132 возможно это тоже поможет. спасибо большое. тогда вот вопросик такой: а как из этого массива прочитать в переменную некого типа данных