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

Вниз

idtcpserver как разослать сообщение всем клиентам   Найти похожие ветки 

 
ppgrachev ©   (2010-07-21 23:42) [0]

Написал простой чат для сети
но не получаеться разослать полученое сообщения от одного клиента всем(присылается только ему)
Что вы можете посоветоватьprocedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
var
s:string;
begin
s:=AThread.Connection.readln;
AThread.Connection.writeln(s)
edit1.text:="";
memo1.Lines.Append(s);
end;


 
Медвежонок Пятачок ©   (2010-07-22 13:02) [1]

посылаешь одному - вот и "присылается" только одному.
посоветуем тебе посылать всем, если хочешь, что бы получили все.


 
ppgrachev ©   (2010-07-26 00:05) [2]

Как всем послать


 
Медвежонок Пятачок ©   (2010-07-26 10:21) [3]

всем - это когда не только конкретному AThread"у:

IdTCPServer1Execute(AThread: TIdPeerThread);

а всем активным средам сервера.


 
ppgrachev ©   (2010-07-26 15:57) [4]

ну а как все активным то


 
Сергей М. ©   (2010-07-26 16:24) [5]

http://delphimaster.net/view/6-1276752299/


 
Медвежонок Пятачок ©   (2010-07-27 12:07) [6]

ну а как все активным то

всем - это значит каждому.
берешь список всех и засылаешь каждому. ферштейн?


 
ppgrachev ©   (2010-07-27 18:09) [7]

Неа



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

Форум: "Сети";
Текущий архив: 2016.07.24;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.46 MB
Время: 0.005 c
2-1415676362
SKIPtr
2014-11-11 06:26
2016.07.24
определение положение формы


2-1413238792
Германн
2014-10-14 02:19
2016.07.24
Где кликнули правой кнопкой мыши вызывая попап меню?


15-1444838876
aka
2015-10-14 19:07
2016.07.24
Топологическая сортировка


2-1416740909
Banana
2014-11-23 14:08
2016.07.24
Delphi 7 Юникод на печать


2-1414037154
Drowsy
2014-10-23 08:05
2016.07.24
Unit не дебажится.





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский