UDP聊天工具的实现

　　　　利用TIdUDPClient;   TIdUDPServer;  实现聊天，其实很不爽，没有解决中文乱码问题，以后补充吧！

　     　

　　　　代码如下：

 unit Unit1;

 interface

 uses
   Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
   Vcl.Controls, Vcl.Forms, Vcl.Dialogs, IdUDPServer, IdBaseComponent,
   IdComponent, IdUDPBase, IdUDPClient, Vcl.ExtCtrls, Vcl.StdCtrls,IdGlobal,
   IdSocketHandle;
 type
   TForm1 = class(TForm)
     Memo1: TMemo;
     Memo2: TMemo;
     GroupBox1: TGroupBox;
     Button1: TButton;
     LabeledEdit1: TLabeledEdit;
     Button2: TButton;
     LabeledEdit3: TLabeledEdit;
     LabeledEdit4: TLabeledEdit;
     Button3: TButton;
     IdUDPClient1: TIdUDPClient;
     IdUDPServer1: TIdUDPServer;
     procedure Button2Click(Sender: TObject);
     procedure Button3Click(Sender: TObject);
     procedure Button1Click(Sender: TObject);
     procedure IdUDPServer1UDPRead(AThread: TIdUDPListenerThread;
       const AData: TIdBytes; ABinding: TIdSocketHandle);
   private
     { Private declarations }
   public
     { Public declarations }
   end;

 var
   Form1: TForm1;

 implementation

 {$R *.dfm}
 procedure TForm1.Button2Click(Sender: TObject);       //监听
 begin
   IdUDPServer1.DefaultPort := StrToInt(LabeledEdit1.Text);
   IdUDPServer1.Active := True;
 end;

 procedure TForm1.Button3Click(Sender: TObject);       //假装连接
 begin
   IdUDPClient1.Host := LabeledEdit3.Text;
   IdUDPClient1.Port := StrToInt(LabeledEdit4.Text);
 end;

 procedure TForm1.Button1Click(Sender: TObject);     //发送
 begin
   idUDPClient1.Send(memo2.Text);
 end;

 procedure TForm1.IdUDPServer1UDPRead(AThread: TIdUDPListenerThread;   //接收
   const AData: TIdBytes; ABinding: TIdSocketHandle);
 var
   str:string;
 begin
  //str:= IdUDPServer1.ReceiveString();     或者
  //Memo1.Lines.Add(str);
  str:= BytesToString(AData);
  Memo1.Lines.Add(str);
 end;

 end.