| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

root ©   (2006-10-15 14:29:00) 

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

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

---

Орион   (2006-10-16 19:06:00) [1]

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

---

Ketmar   (2006-10-16 18:11:00) [2]

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

---

Сергей М.   (2006-10-16 12:54:00) [3]

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


Судя по


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


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

---

root   (2006-10-16 12:48:00) [4]

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

---

Сергей М.   (2006-10-16 12:46:00) [5]

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

---

root   (2006-10-16 12:28:00) [6]

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

---

umbra   (2006-10-16 11:35:00) [7]

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

---

Орион   (2006-10-15 14:37:00) [8]

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

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

---

Наверх