UDP聊天工具的实现

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

　     　

　　　　代码如下：

 1 unit Unit1;
 2 
 3 interface
 4 
 5 uses
 6   Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
 7   Vcl.Controls, Vcl.Forms, Vcl.Dialogs, IdUDPServer, IdBaseComponent,
 8   IdComponent, IdUDPBase, IdUDPClient, Vcl.ExtCtrls, Vcl.StdCtrls,IdGlobal,
 9   IdSocketHandle;
10 type
11   TForm1 = class(TForm)
12     Memo1: TMemo;
13     Memo2: TMemo;
14     GroupBox1: TGroupBox;
15     Button1: TButton;
16     LabeledEdit1: TLabeledEdit;
17     Button2: TButton;
18     LabeledEdit3: TLabeledEdit;
19     LabeledEdit4: TLabeledEdit;
20     Button3: TButton;
21     IdUDPClient1: TIdUDPClient;
22     IdUDPServer1: TIdUDPServer;
23     procedure Button2Click(Sender: TObject);
24     procedure Button3Click(Sender: TObject);
25     procedure Button1Click(Sender: TObject);
26     procedure IdUDPServer1UDPRead(AThread: TIdUDPListenerThread;
27       const AData: TIdBytes; ABinding: TIdSocketHandle);
28   private
29     { Private declarations }
30   public
31     { Public declarations }
32   end;
33 
34 var
35   Form1: TForm1;
36 
37 implementation
38 
39 {$R *.dfm}
40 procedure TForm1.Button2Click(Sender: TObject);       //监听
41 begin
42   IdUDPServer1.DefaultPort := StrToInt(LabeledEdit1.Text);
43   IdUDPServer1.Active := True;
44 end;
45 
46 procedure TForm1.Button3Click(Sender: TObject);       //假装连接
47 begin
48   IdUDPClient1.Host := LabeledEdit3.Text;
49   IdUDPClient1.Port := StrToInt(LabeledEdit4.Text);
50 end;
51 
52 procedure TForm1.Button1Click(Sender: TObject);     //发送
53 begin
54   idUDPClient1.Send(memo2.Text);
55 end;
56 
57 procedure TForm1.IdUDPServer1UDPRead(AThread: TIdUDPListenerThread;   //接收
58   const AData: TIdBytes; ABinding: TIdSocketHandle);
59 var
60   str:string;
61 begin
62  //str:= IdUDPServer1.ReceiveString();     或者
63  //Memo1.Lines.Add(str);
64  str:= BytesToString(AData);
65  Memo1.Lines.Add(str);
66 end;
67 
68 end.

 

转载于:https://www.cnblogs.com/zty123/p/6807112.html