Delphi-网络编程-第一个网络方面作品(UDP聊天程序)

原作者: [db:作者] 来自: [db:来源] 收藏邀请

其实这不算是一个聊天程序，因为还不能实现双方互发信息，只有一方能发信息，呵呵

我以后再改进吧。。。。

服务端代码：

unit Unit1;
 
interface
 
uses

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

  Dialogs, IdBaseComponent, IdComponent, IdUDPBase, IdUDPServer, StdCtrls,

  ExtCtrls,IdSocketHandle;
 
type

  TCommBlock = record        // 通讯结构

  SenderName,              // 发信方名字

  Msg : string[100];  // 消息

  end;

  TForm1 = class(TForm)

    Memo1: TMemo;

    Panel1: TPanel;

    Memo2: TMemo;

    GroupBox1: TGroupBox;

    GroupBox2: TGroupBox;

    LabeledEdit1: TLabeledEdit;

    Button1: TButton;

    IdUDPServer1: TIdUDPServer;

    Button2: TButton;

    Button3: TButton;

    procedure IdUDPServer1UDPRead(Sender: TObject; AData: TStream;

      ABinding: TIdSocketHandle);

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;
 
var

  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.IdUDPServer1UDPRead(Sender: TObject; AData: TStream;

  ABinding: TIdSocketHandle);//客户端连接上后触发的事件
var

  Comm : TCommBlock;
begin

  AData.ReadBuffer(Comm,AData.Size);

  Memo1.Lines.Add(Comm.SenderName+'：'+Comm.Msg);

end;
 
procedure TForm1.Button1Click(Sender: TObject);//倾听
begin

  IdUDPServer1.DefaultPort := StrToInt(LabeledEdit1.Text);

  IdUDPServer1.Active := True;

  Button1.Enabled:=True;

end;
 
procedure TForm1.Button2Click(Sender: TObject);//清空记录
begin

Memo1.Clear;

end;
 
procedure TForm1.Button3Click(Sender: TObject);//关闭
begin
Close;

end;
 
end.

客户端代码：

unit Unit1;
 
interface
 
uses

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

  Dialogs, StdCtrls, ExtCtrls, IdBaseComponent, IdComponent, IdUDPBase,

  IdUDPClient;
 
type

  TCommBlock = record        // 通讯结构

    SenderName,              // 发信方名字

    Msg : string[100];  // 消息

  end;

  TForm1 = class(TForm)

    Panel2: TPanel;

    Memo2: TMemo;

    GroupBox1: TGroupBox;

    GroupBox2: TGroupBox;

    LabeledEdit1: TLabeledEdit;

    LabeledEdit2: TLabeledEdit;

    Button1: TButton;

    Button2: TButton;

    Memo1: TMemo;

    IdUDPClient1: TIdUDPClient;

    LabeledEdit3: TLabeledEdit;

    Button3: TButton;

    Button4: TButton;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure Button4Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;
 
var

  Form1: TForm1;
 
implementation
const

  RECIEVETIMEOUT = 5000; // 毫秒，连接等待
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);//连技
begin

  IdUDPClient1.Host:=LabeledEdit1.Text;

  IdUDPClient1.Port:=StrToInt(LabeledEdit2.Text);

  IdUDPClient1.ReceiveTimeout:=RECIEVETIMEOUT;

end;
 
procedure TForm1.Button2Click(Sender: TObject);//发送
var

  Comm:TCommBlock;
begin

  Comm.SenderName:=LabeledEdit3.Text;

  Comm.Msg:=Memo2.Lines.Text;

  Memo1.Lines.Add(Comm.SenderName+'：' + Comm.Msg);

  IdUDPClient1.SendBuffer(Comm,sizeof(Comm));

end;
 
procedure TForm1.Button3Click(Sender: TObject);//关闭
begin
Close;

end;
 
procedure TForm1.Button4Click(Sender: TObject);//清空记录
begin

Memo1.Clear;

end;
 
end.