Чат по сети

end.

     Листинг программы “отправить по сети”

unit Unit5; 

interface 

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdUDPBase, IdUDPClient; 

type

  TForm5 = class(TForm)

    Label1: TLabel;

    Edit1: TEdit;

    Button1: TButton;

    Button2: TButton;

    IdUDPClient1: TIdUDPClient;

    Edit2: TEdit;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Edit1Change(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end; 

var

  Form5: TForm5; 

implementation 

uses Unit1; 

{$R *.dfm} 

procedure TForm5.Button1Click(Sender: TObject);

begin

edit2.Text:=form1.memo1.Lines.CommaText;

idudpclient1.Send(edit2.Text);

end; 

procedure TForm5.Button2Click(Sender: TObject);

begin

close;

end; 

procedure TForm5.Edit1Change(Sender: TObject);

begin

idudpclient1.Host:=edit1.Text;

end;

end. 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

     Результат работы программы 

 
 
 
 

     Вывод

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

     Список  используемой литературы

1. Методическое пособие по вычислительным процессам
2. Delphi глазами программиста
3. Библия Delphi
4. Delphi для начинающих