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

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

← →
root ©   (2006-10-15 14:29) [0]

Господа подскажите такая ситуация есть TIdTCPServer и два клиента
один 192.168.1.2
второй 192.168.1.3

как через TIdTCPServer передать от первого клиента ко второму клиенту данные (строку, буфер итд)
за ранее спасибо

---

← →
Орион ©   (2006-10-15 14:37) [1]

> [0] root ©   (15.10.06 14:29)

я вопроса не понял. Что именно тебе не понятно?

---

← →
umbra ©   (2006-10-16 11:35) [2]

первый клиент шлет серверу данные и имя второго клиента. Сервер шлет данные второму клиенту. (Например)

---

← →
root ©   (2006-10-16 12:28) [3]

дайте код???
или пример???

---

← →
Сергей М. ©   (2006-10-16 12:46) [4]

Чат сотворяешь ?)

---

← →
root ©   (2006-10-16 12:48) [5]

не пытаюсь сделать роут
все входящие данные на порт с апи одного передать на другой апи известный порт

---

← →
Сергей М. ©   (2006-10-16 12:54) [6]

> root ©   (16.10.06 12:48) [5]
>
> пытаюсь сделать роут


Судя по


> TIdTCPServer и два клиента


роутом здесь и не пахнет.

---

← →
Ketmar ©   (2006-10-16 18:11) [7]

>[5] root(c) 16-Oct-2006, 12:48
>не пытаюсь сделать роут
врёшь. обыкновенный port mapping, судя по всему.

---

← →
Орион ©   (2006-10-16 19:06) [8]

> [0] root ©   (15.10.06 14:29)

Что-то вроде:

procedure TForm1.ServerExecute(AContext: TIdContext);
var
 Data: string;
 i: Integer;
 List: TList;
begin
 Data:=AContext.Connection.IOHandler.ReadLn;
 List:=Server.Contexts.LockList;
 try
   for i:=0 to List.Count-1 do
     if TIdContext(List.Items[i]).Connection.Socket.Binding.PeerIP="192.168.1.3" then
     begin
       TIdContext(List.Items[i]).Connection.IOHandler.WriteLn(Data);
       Break;
     end;
 finally
  Server.Contexts.UnlockList;
 end;
end;
end;

---

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

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



Память: 0.46 MB
Время: 0.032 c