попробовал написать чат на delphi по этой инструкции
http://www.delphiplus.org/delphi-glazami-khakera/46-chat-dlya-lokalnoi-seti.html
немного доделал его (возможность вбить ник, порт и ip самостоятельно)
Запустил на 2-х компьютерах, вбил ip одного, оправляю сообщение, оно нормально приходит на тот компьютер к которому подключился.
Но при попытке отправить сообщение с компьютера, который выступает в роли сервера клиент его не показывает как можно исправить, что бы сервер пересылал все приходящие сообщения всем подключённым???
коды:
отправка (d-ник пользователя)
begin
IdUDPClient1.Send(d+Edit1.Text);
end;
приём:
begin
StringFormatedStream:=TStringStream.Create('');
StringFormatedStream.CopyFrom(AData, AData.Size);
Memo1.Lines.Text:=StringFormatedStream.DataString;
ABinding.SendTo(ABinding.PeerIP, ABinding.PeerPort, s, Length(s)); - вроде как должна переслать
StringFormatedStream.Free;
end;
если компьютеры поменять местами ничего не меняется
сервер-получает сообщения
клиент-нет
RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.
Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.
Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.