как передать данные

← →
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]

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

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

Судя по

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

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

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

> [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;

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