Создание чата длялокальной сети


The Presentation inside:

Slide 0

Создание чата для локальной сети Ермаков Дмитрий 10 “А” класс


Slide 1

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


Slide 2

Программа чата создана в среде программирования Boland Delphi


Slide 3

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


Slide 4

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


Slide 5

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


Slide 6

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


Slide 7

Фрагмент исходного кода: 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;


Slide 8

Приятного Вам общения в сети!


×

HTML:





Ссылка: