define external stream function TCPConnectionGetPeerIP
        value TCPConnection this-TCPConnection
  as TCPConnectionGetPeerIP

This function is used to determine the IP address of the peer host on the other side of the connection. The IP is returned in dotted decimal format (for example, "127.0.0.1").

If the passed TCP connection object is closed or was never connected, this function returns a distinct value that doesn't look like a valid peer IP, and causes the TCP connection to be in error.

Argument:

• "this-TCPConnection" is an opaque object of type TCPConnection.

Example:

  local TCPService omdemo-service
  local TCPConnection client

  set omdemo-service to TCPServiceOpen at 5600

  repeat
     set client to TCPServiceAcceptConnection omdemo-service
     output "Request from " || "g"% TCPConnectionGetPeerIP client || "%n"
     ;process request
  again