indy tcpclient tcpServer

procedure TForm1.FormCreate(Sender: TObject);
begin
  IdTCPServer1.DefaultPort := 7200;
  IdTCPServer1.Active := True;
end;

procedure TForm1.IdTCPServer1Connect(AThread: TIdPeerThread);
begin
  mmo1.Lines.Add(‘来自主机 ‘+ AThread.Connection.Socket.Binding.PeerIP
  + ‘ 的连接请求已被接纳！‘);
end;

procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
begin
  mmo1.Lines.Add(AThread.Connection.ReadLn());
end;

procedure TForm1.IdTCPServer1Disconnect(AThread: TIdPeerThread);
begin
  mmo1.Lines.Add(‘来自主机 ‘+ AThread.Connection.Socket.Binding.PeerIP
  + ‘ 的连接请求已被断开！‘);
end;





procedure TForm1.btnConnectClick(Sender: TObject);
begin
  //IdTCPClient1.Host := ‘127.0.0.1‘;
  IdTCPClient1.Host := ‘192.168.88.104‘;
  IdTCPClient1.Port := StrToInt(edt1.Text);
  mmo1.Lines.Add(‘正在连接 ‘ + edt1.Text + ‘...‘);
 IdTCPClient1.Connect(5000);
end;

procedure TForm1.btnDisconnectClick(Sender: TObject);
begin
  IdTCPClient1.Disconnect();
end;

procedure TForm1.btnSendClick(Sender: TObject);
begin
  IdTCPClient1.WriteLn(edt2.Text);
end;