在部件中添加Microsoft Winsock Control 6.0
 调用它的方法
 Winsock1.LocalIP 取本地IP
 Winsock1.LocalPort 取本地端口

解决方案 »

  1.   

    Winsock1.LocalIP 取本地IP
     Winsock1.LocalPort 取本地端口
      

  2.   

    如果你要点对点的通讯,前提就是有一方知道另一方的ip,然后用这个ip和一个指定的端口去连接。而不可能在什么读没有的情况下去获得别人的ip的。给你一个建议:
    编2个程序,当然可以将2和合为1
    1。一个服务端:
        指定一个端口,比如4000,用listen方法去监听这个端口。
    2。客户端。
        指定一个ip,这个ip除了你自己去问人家或用什么黑客软件之外是得不到。
        用connect方法去连接指定的4000端口。
    当连上了以后。你就可以知道对方的ip了。
        winsock.remoteip就是对方的ip 了