IdTCPClient和IdTCPServer怎样建立连接

Question

为什么IdTCPClient和IdTCPServer一建立连接就断开了.
代码如下,procedure TForm1.Button1Click(Sender: TObject);
begin
  TC.Host:=Edit1.Text;
  TC.Port:=StrToInt(Edit2.Text);
  try
    TC.Connect(5000);
  except
    MessageBox(Application.Handle,'连接服务器出错!','错误',16);
  end;
end;应该怎样写才会不断开?

Answer 1

IdTCPServer先要监听，才接受客户端的连接

Answer 2

服务器端要先启动进行监听：procedure TForm1.Button1Click(Sender: TObject);
begin
  IdTCPServer1.DefaultPort := StrToInt(edit1.Text);
  IdTCPServer1.Active := True;
  self.Button1.Enabled := False;
  self.Button2.Enabled := True;
  self.ListBox1.Items.Add('服务器已成功启动！');
end;procedure TForm1.Button2Click(Sender: TObject);
begin
  IdTCPServer1.Active := False;
  self.Button1.Enabled := True;
  self.Button2.Enabled := False;
  self.ListBox1.Items.Add('服务器已成功停止！');
end;

Answer 3

一连接上后,最好马上给服务端发个消息
不然
你这么写TC.Connect(5000);
5秒就会断开的