Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Сети";
Текущий архив: 2007.04.01;
Скачать: [xml.tar.bz2];

Вниз

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

 
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;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.46 MB
Время: 0.038 c
2-1173691444
kyn66
2007-03-12 12:24
2007.04.01
Выбор "горичих" клавиш


15-1173046966
kaif
2007-03-05 01:22
2007.04.01
Изображая жертву


15-1173157995
eXPell
2007-03-06 08:13
2007.04.01
Подскажите софт, пожалуйста


2-1173788444
masha179
2007-03-13 15:20
2007.04.01
очистка


15-1173445639
oldman
2007-03-09 16:07
2007.04.01
Как хорошая идея становиться кривой...





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский