accept出现10038错误.An operation was attempted on something that is not a socket ( 积

accept出现10038错误.An operation was attempted on something that is not a socket ( 积分: 100 )<br />我的程式以前都可正常工作的,现在有时会是出这个错.且一出现了后,
循环下一次的Accept必定又是这个错误,这样我的程式便无法工作了.
MyInitSock();
sListen:=MyBindListen(SERVER_IP,iPort);
while not ExitListen do begin
sAccept:=Accept(sListen,cli,iLen);
if sAccept=INVALID_SOCKET then begin
error:=wsagetlasterror(); //10038
CloseSocket(sAccept);
Continue;
end;
MyRecv(sAccept,Cli,CompletionPort);
end;

我的程式以前都可正常工作的,现在有时会是出这个错.且一出现了后,
循环下一次的Accept必定又是这个错误,这样我的程式便无法工作了.
MyInitSock();
sListen:=MyBindListen(SERVER_IP,iPort);
while not ExitListen do begin
sAccept:=Accept(sListen,cli,iLen);
if sAccept=INVALID_SOCKET then begin
error:=wsagetlasterror(); //10038
CloseSocket(sAccept);
Continue;
end;
MyRecv(sAccept,Cli,CompletionPort);
end;