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.
Sivaller - Cewod Bewod emulateur 80186 + X.M Lanceur de systéme DOS