TidTCPServer的获得客户端IP地址或机器名字

[holyten]

想知道每一个连接的具体ip地址或机器名字，但是发现在TidTCPServer的ServerConnect事件中使用AThread.Connection.LocalName 出来的总是服务器的名字，怎么样知道客户机的名字或IP地址呢？

[holyten]

自己知道了问了，^_^，原来indy给的demo也是有错的。。。
AThread.Connection.Socket.Binding.PeerIP 就是连接客户机的IP地址了.

[chenpengfeifei]

学习一下。

[smilelhh]

呵呵，进来了，就UP吧。

[tongjigao]

up

[sxy_9761]

呵呵，进来了，就UP吧

[wolf2005]

indy做没有界面的东东还以，不然经常出现程序未响应，深受其苦

[kldlu123]

up

[flyingIam]

写在线程里面就不会出现程序未响应了！！

[aiirii]

http://borland.mblogger.cn/aiirii/posts/4852.aspx

[getit911]

procedure TPWVDServer.ServerConnect(AThread: TidPeerThread);
var
sport:integer;
sip:string;

dport:integer;
dip:string;
begin
with AThread as TIdPeerThread do
begin
sIP := TIdIOHandlerSocket(AThread.Connection.IOHandler).Binding.PeerIP;
//客户IP
sport:=TIdIOHandlerSocket(AThread.Connection.IOHandler).Binding.PeerPort;
//客户端口

dIP := TIdIOHandlerSocket(AThread.Connection.IOHandler).Binding.IP;
dport:=TIdIOHandlerSocket(AThread.Connection.IOHandler).Binding.Port;

end;
end;
今天第二个人问这个问题

[zhenshunli]

既然解决了，就走了

[ly_liuyang]

没什么好补充的了

[hylmail]

感谢！

[hylmail]

感谢getit911！