IdTCPClien连接不了

Question

IdTCPClient1.Host:=edit1.Text;
      IdTCPClient1.Port:=1053;//端口
      IdTCPClient1.Connect;//建立连接我本意是用客户端执行这段代码，然后在服务器端
    Athread.Connection.Socket.Binding.PeerIP
获得客户端的IP
但是总报异常。请大虾告诉我一下出错的原因，有关于这些网络编程的资料发给我看下

Answer 1

请问Athread 是什么？
在哪里报异常？这样是没问题的：procedure TForm1.tcpServerExecute(AContext: TIdContext);
begin
  mmo1.Lines.Add(AContext.Connection.Socket.Binding.PeerIP);
end;

Answer 2

Athread.Connection.Socket.Binding.PeerIP你的代码放在哪个事件，应是afterconnect 里面吧

Answer 3

呵呵~~
Athread.Connection.Socket.Binding.PeerIP放在afterconnect 里面