Скачать: CL | DM;

Надо написать прокси на один порт и хост.   Найти похожие ветки 

← →
xrip ©   (2003-02-13 22:17) [0]

Суть задачи в следующем: я коннекчюсь по сети к одной машине, к одному порту, а она в свою очередь коннектится к еще одной машине по другому порту.
Надо:
реализовать следующую схему
1й комп -> 2й комп -> 3й комп
3й комп -> 2й комп -> 1й комп

т.е. практически однохостовая прокси на одного клиента.
Пытался создавать на второй машине
TServerSocket, затем при подключении к этому сервер сокету первой машины создавать опять на второй машине TClientSocket и подключать его к третей. Затем пытался делать так
procedure TForm1.ServerSocket1ClientWrite(Sender: TObject;
Socket: TCustomWinSocket);
var
buf : Array[0..65535] of byte;
count : integer;
begin
count := Socket.ReceiveLength;
Socket.ReceiveBuf(buf, count);
ClientSocket1.Socket.SendBuf(buf,count);
end;

данные проходили.
затем, когда от третей машины мы получаем ответ делал так:
procedure TForm1.ClientSocket1Read(Sender: TObject;
Socket: TCustomWinSocket);
var
buf : Array[0..65535] of byte;
count : integer;
begin
count := Socket.ReceiveLength;
Socket.ReceiveBuf(buf, count);
ServerSocket1.Socket.SendBuf(buf,count);
//
end;
но эта процедура вобще не вызывалась :(

пытался при открытие клиентского сокета на второй машине сделать переназначение путем процедур Read и Write у обеих сокетов но там вобще ноль эмоций что туда что обратно.

Подскажите, как сделать нормально???

---

← →
Slym ©   (2003-02-14 08:49) [1]

D6 INDY > TTunelSocket или что-то похожее

---

← →
apple1   (2003-02-14 08:59) [2]

Так лучше:
ServerSocket1.Socket.Connections[0].SendBuf(buf,count);

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.016 c