用listen监听后如何关闭重新监听

[cym830313]

在用listen(bindserver,5);监听后如何
关闭
再重新监听端口

初始代码
wversion:=MAKEWORD(2,2);
yz:=WSASTARTUP(wversion,wsadata);
////////////////////////////////////////////////
bindserver:=socket(AF_INET,SOCK_STREAM,0);
addrserver.sin_family:=AF_INET;
addrserver.sin_port:=htons(port);//监听的端口
addrserver.sin_addr.S_addr:=INADDR_ANY;
setsockopt(bindserver,SOL_SOCKET,SO_RCVTIMEO,timeout,sizeof(timeout)); //设置超时时间
bind(bindserver,addrserver,sizeof(addrserver)); //绑定
yz:=listen(bindserver,5); //监听
writeln('Listen .......... OK!');
在进行若干操作后如何关闭这个监听再重新进入监听端口的状态

我用这段代码关闭后
WSACleanup();
closesocket(getclient);
closesocket(bindserver);

再调用开始的初始化代码不能重新监听
yz:=listen(bindserver,5); 它返回-1不能创建监听

请高手给予指点

[gwolf]

//WSACleanup();
把它注掉试试

[cym830313]

也试过了,不行,再次调用listen失败