我用IdTCPClient，总提示：Connection timed out
我用IdTCPClient和IdTCPserver通讯，在客户端连接的时候，总提示：Connection timed out，这是咋回事了？
我的客户端代码：
client
procedure TForm1.Button1Click(Sender: TObject);
begin
IdTCPClient1.Host:=Edit1.Text;// 我机器IP为：134.160.170.117，因此我在这里都分别用过134.160.170.117和127.0.0.1
IdTCPClient1.Port:=strtoint(Edit2.text); //端口我用8001
IdTCPClient1.Connect;
if IdTCPClient1.Connected then
IdTCPClient1.WriteLn('aa');
end;

server端代码
procedure TForm1.Button1Click(Sender: TObject);
begin
IdTCPServer1.defaultport:='8001';
IdTCPServer1.Active:=true;
end;
procedure TForm1.IdTCPServer1Connect(AThread: TIdPeerThread);
var
ls_str:string;
begin
Memo1.Lines.Add(AThread.Connection.ReadLn);
end;

[解决办法]
说明你连不上，核对ip，port，检查防火墙
[解决办法]
设置Host和Port就行了
不过你的这个IP好像外网的一样; 改用你本机的,比如什么192.168.0.123
[解决办法]
内网最好用192.168.XXXXX什么的 127.0.0.1好像有时是不行