Double socket

Bonjour,

Bonjour,

Il y a quelque chose que je ne comprend pas,
j'ai conçu un projet Client/Server , et
le programme client utilise 2 sockets TCP (un pour les requete distante) , l'autre pour les messages (message administratives,message arret serveur,message deconnexion). Le programme client se connecte 2 fois et meme port pour avoir 2 sockets.

Ce que je ne comprend pas Winsock retourne au niveau du serveur une erreur comme quoi le socket distance à été déconnecté et que ce n'est pas le cas.

Pourtant les 2 sockets sont en mode keep-alive au client et serveur.
Dans le programme client j'utilise ioctlsocket et recv pour recevoir les données et au serveur j'utilise wsaasyncselect.

Programme client :

Code :
int connectserver(char* host)
{
sockaddr_in skaddr;
tv.tv_sec = 30000; /* 30 Secs Timeout */
int hsocket;
hsocket=socket(Internet,Stream,0);
if (hsocket!=-1)
{
ZeroMemory(&skaddr,sizeof(skaddr));
skaddr.sin_family=Internet;
skaddr.sin_port=swap(1002);
unsigned long l=HostToLong(host);
skaddr.sin_addr.S_un.S_addr=l;
if (connect(hsocket,(sockaddr*)&skaddr,sizeof skaddr)!=0)
{
closesocket(hsocket);

return 0;
}

setsockopt(hsocket, SOL_SOCKET, SO_RCVTIMEO,(const char*)&tv,sizeof(struct timeval));
setsockopt(hsocket, SOL_SOCKET, SO_SNDTIMEO,(const char*)&tv,sizeof(struct timeval));

BOOL bOptVal = TRUE;
int bOptLen = sizeof(BOOL);
int iOptVal;
int iOptLen = sizeof(int);
setsockopt(hsocket, SOL_SOCKET, SO_KEEPALIVE, (char*)&bOptVal, bOptLen);


return hsocket;
}
return 0;
}

Programme serveur en Pascal

Code :
case msg.lParam of
FD_ACCEPT: begin
// log('Demande de connexion');
//if (nombreconnection+1<=nombreconnectionmax) then begin
// inc(nombreconnection);
scknew := accept(msg.wparam,0,0);
setcode(scknew,$4555);
i := getcode(scknew);;
// sendbuf(msg.wparam,@i,2);
WSAASyncSelect(scknew,principale.Handle,WM_USER,FD_CLOSE or FD_CONNECT or FD_ACCEPT or FD_READ);
tv.tv_sec := 5000;
tv.tv_usec := 500;
setsockopt(scknew, SOL_SOCKET, SO_RCVTIMEO,@tv,sizeof(tv));
setsockopt(scknew, SOL_SOCKET, SO_SNDTIMEO,@tv,sizeof(tv));
bk := true;
setsockopt(scknew, SOL_SOCKET, SO_KEEPALIVE, @bk, 1);
//end else
// closesocket(msg.WParam);


end;
FD_CONNECT:begin
// nombreconnection := nombreconnection;

end;

Je ne comprend pas pourquoi ca deconnecte au niveau du client pourtant je ne ferme pas le socket.

Merci de votre aide.