Ермаков Дмитрий 10 А класс

В локальной сети между пользователями, без подключения к глобальной компьютерной сети, возникает проблема общения. Известно, что без подключения к Интернету сложно организовать как голосовую конференцию, так и обмена сообщениями. Сейчас вы узнаете как можно это реализовать.

Программа состоит из двух основных окон : Главное окно программы Интерфейс настройки программы

Поле ввода сообщения История сообщений Настройка чата

IP адрес общего шлюза Порт для общения (можно создавать много комнат ) Ник пользователя в чате

Edit – поле ввода сообщения Button – кнопка для отправки сообщения Memo – поле вывода сообщений UDPServer – создание сервера UDPClient – возможность подключения к серверу

procedure TForm1.Button1Click(Sender: TObject); begin IdUDPClient1.Send(Settings.nick.Text+': '+Form1.Edit1.Text); Form1.Edit1.Text:=' '; end; procedure TFormaSocketHandle); var StringFormatedStream: TStringStream; s: String; begin StringFormatedStream := TStringStream.Create(' '); StringFormatedStream.CopyFrom(AData, AData.Size); Memo1.Lines.Add(' '+StringFormatedStream.DataString); ABinding.SendTo(ABinding.PeerIP, ABinding.PeerPort, s[1], Length(s)); StringFormatedStream.Free; end;