Помогите сделать локальный чат, если можно исходник

← →
Vzlom (2003-02-01 12:35) [0]

Проблема в том что надо сделать одно приложение, а потом разослать его на 10 машин, чтобы все могли в нем сидет!?

← →
Evgeniy_k (2003-02-01 12:45) [1]

Есть серверный! Т.е. одна машина - сервер. Остальные - клиенты. Серверная машина может быть паралельно и клиентом. Пиши на e-mail.

Было в каком-то из номеров Хакера :-) -распределённый чат(бессерверный)-кидаешь на форму TidUDPServer иTidUDPClient -Indy не обязательно, но на мой взгляд удобнее.
Задаёшь им порты(все одинаковые), напр. 3666, и клиенту ставишь эхо-адрес( твой айпи, но с 255 на конце, если у вас один байт на подсеть или больше- тогда два байта 255 и т п) НО!!! если у вас в локалке на выбранном тобой порту что-то полезное висит, то ты рискуешь... а дальше ловишь server.onclientwrite, чтобы получать сообщения и client.writestring чтобы сообщения отправлять.
далее- RTFM. и еще: в папке Delphi\examples\indy\ или examples\internet поищи -есть пара-тройка примеров на эту тему.

Помогите сделать локальный чат, если можно исходник Найти похожие ветки