solaris中bind为何失败

gulu

程序如下：
端口没有被占用！

sockaddr_in ListenAddr;

SocketId = socket (AF_INET, SOCK_STREAM, 0);
if (SocketId < 0)
return false;

memset (&ListenAddr, 0, sizeof (ListenAddr));
ListenAddr.sin_family = AF_INET;
ListenAddr.sin_port = htons (4000);
ListenAddr.sin_addr.s_addr = htonl (INADDR_ANY);

if ( bind (SocketId, (struct sockaddr *) &ListenAddr, sizeof ListenAddr)))
goto error_parse;

if (listen (SocketId, BackLog))
goto error_parse;
return true;

error_parse:
close(SocketId);
return false;