Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.04.01;
Скачать: 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 вся ветка

Текущий архив: 2007.04.01;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.053 c
15-1172945888
Cyrax
2007-03-03 21:18
2007.04.01
Обзор генераторов отчётов для C++, Java и C#...


11-1140886672
ECM
2006-02-25 19:57
2007.04.01
Новости сайта kolnmck.ru


15-1173287735
svr
2007-03-07 20:15
2007.04.01
Как восстановить файл? Срочно надо поднять винду!


15-1173602438
$Pl@Sh
2007-03-11 11:40
2007.04.01
Где скачать?


2-1173747390
Ref
2007-03-13 03:56
2007.04.01
Защита от копирования