getpeername PB如何使用啊就是想得到远程连接ip地址

getpeername PB怎么使用啊,就是想得到远程连接ip地址
老是-1,大虾们给个实例看看咯
其它方法也性

------解决方案--------------------
该函数要在建立tcp连接以后才能使用~~
------解决方案--------------------
if iret = ws.SOCKET_ERROR then
iErr = ws.WSAGetLastError()
choose case iErr
case ws.WSAEWOULDBLOCK
return 1
case ws.WSAETIMEDOUT
MessageBox('错误','通讯端口超时!')
ParentWin.CloseUserObject(this)
case ws.WSAENOTSOCK
MessageBox('错误','通讯端口没有SOCKET!')
ParentWin.CloseUserObject(this)
case ws.WSAENOPROTOOPT
MessageBox('错误','系统没有安装TCPIP协议!')
ParentWin.CloseUserObject(this)
case ws.WSAENETDOWN
Messagebox('错误','通讯网络有故障!')
ParentWin.CloseUserObject(this)
case ws.WSAECONNREFUSED
Messagebox('错误','通讯连接被拒绝,对方服务有故障!')
ParentWin.CloseUserObject(this)
case else
Messagebox('错误','通讯网络有故障!'+string(iErr))
ParentWin.CloseUserObject(this)
end choose
return -1
end if
看看都是什么错误