TCP聊天工具的实现

　　由于本人天生愚钝，所以关于聊天工具的编程一直都没学会，尽管网上教程一大堆，但是关于IdTCPClient  IdTCPServer 的不多，今天终于学会一些，分享给像我一样纠结的小伙伴，下一步学习多线程的聊天工具！

　　界面如图：memo 2个  button 3个  labelEdit 3个 IdTCPClient  1个   IdTCPServer 1个　

　

　代码如下：

　

 unit Unit1;

 interface

 uses
   Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
   Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.StdCtrls,
   IdCustomTCPServer, IdTCPServer, IdBaseComponent, IdComponent, IdTCPConnection,
   IdTCPClient, IdContext,IdGlobal;

 type
   TForm1 = class(TForm)
     Memo1: TMemo;
     GroupBox1: TGroupBox;
     LabeledEdit1: TLabeledEdit;
     LabeledEdit2: TLabeledEdit;
     Button2: TButton;
     Button3: TButton;
     Label1: TLabel;
     Memo2: TMemo;
     IdTCPClient1: TIdTCPClient;
     IdTCPServer1: TIdTCPServer;
     GroupBox2: TGroupBox;
     LabeledEdit3: TLabeledEdit;
     Button1: TButton;
     procedure Button1Click(Sender: TObject);
     procedure Button2Click(Sender: TObject);
     procedure IdTCPServer1Connect(AContext: TIdContext);
     procedure Button3Click(Sender: TObject);
     procedure IdTCPServer1Execute(AContext: TIdContext);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
   private
     { Private declarations }
   public
     { Public declarations }
   end;

 var
   Form1: TForm1;

 implementation

 {$R *.dfm}

 procedure TForm1.Button1Click(Sender: TObject);  //监听
 begin
   IdTCPServer1.DefaultPort := StrToInt(LabeledEdit3.Text); //本地端口
   IdTCPServer1.Active := True;                             //打开监听
 end;

 procedure TForm1.Button2Click(Sender: TObject);   //远程连接
 begin
   if not IdTcpClient1.Connected then
   begin
   IdTCPClient1.Host := LabeledEdit1.Text;
   IdTCPClient1.Port := StrToInt(LabeledEdit2.Text);
   IdTCPClient1.Connect;
   IdTCPClient1.IOHandler.DefStringEncoding := IndyTextEncoding_UTF8(); //中文处理   uses   IdGlobal;
   end;
 end;

 procedure TForm1.IdTCPServer1Connect(AContext: TIdContext);   //有用户连接时候通知
 begin
   Memo1.Lines.Add('有朋友连接：');
   Memo1.Lines.Add('  ');
   AContext.Connection.IOHandler.DefStringEncoding := IndyTextEncoding_UTF8(); //中文处理    uses   IdGlobal;
 end;

 procedure TForm1.Button3Click(Sender: TObject);   //发送信息
 begin
   IdTCPClient1.IOHandler.writeln('皮皮说：'+ Memo2.Text);
 end;

 procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); //关闭时断开连接
 begin
   IdTcpClient1.Disconnect;
 end;

 procedure TForm1.IdTCPServer1Execute(AContext: TIdContext);  //接收信息
 var
   recstr:string;
 begin
   recstr := AContext.Connection.IOHandler.ReadLn;
   Memo1.Lines.Add(recstr);
 end;

 end.