Winsock TCPIP

Question

Bonjour à vous tous,

Je rencontre un pb. avec Winsock et VB6. Je souhaiterai savoir si quelqu'un pouvait m'indiquer une solution ou une piste.

Voilà, j'ai développé une appli. VB (sur PC) qui dialogue avec un hôte (Vax développement en Fortran sous TCPIP).
Tout fonctionne bien. Les échanges de messages se passent très bien.

Mon problème survient lorsque j'arrête mon appli VB. 
Si je la relance dans la foulée, je récupère l'erreur suivante :
Number : 10048
Description : Adresse en utilisation
Source : c:\winnt\system32\mswinsck.ocx

Cela donne l'impression que même après fermeture de l'application, le lien réseau est toujours en activité. Il faut que j'attende entre 3 et 5 minutes pour ne plus avoir cette erreur.

J'attends avec impatience vos lumières sur ce pb. gênant.

Merci.
SLTS. Laurent

man15372 · Answer

Supposons que ton ocx winsock s'appel wsk alors il faut procéder ainsi : Avant d'etablir une connexion: while wsk.state<>sckClosed wsk.close loop ou alors cette solution plus simple : if wsk.state<>sckClosed then wsk.close Dans les 2 cas si ta connexion est encore active alors cela va la fermer. Voila tu n'a plus qu'a essayer mais cela doit fonctionner. man15372

cs_MicLau · Answer

Salut,

Je te remercie pour ta réponse.

Il s'avère que le Winsock est fermé au moment de la relance de l'application, mais quelque part l'état de la liaison est encore active.

Le lien IP entre les 2 machines restent actives et pour l'instant, je n'arrive pas à trouver pourquoi.

Par contre, si je ferme en 1er mon appli Fortran, je ne rencontre pas de pb. pour relancer mon appli Vb immédiatement.

Ca donne l'impression que Visual Basic ferme très mal les connexions TCPIP.

@+. Miclau

cs_MicLau · Answer

J'ai trouvé la solution.

Afin d'en faire profiter tout le monde, voilà la réponse :

Il suffit de mettre le "Local Port" du contrôle Winsock à 0. Par exemple :     TcpClient.LocalPort = 0

Et cela avant le connect.

Référence Windows : http://support.microsoft.com/?kbid=173619

Voilà.
@+. Miclau.

kimmelf2 · Answer

le principe du if sck.state<>sckclosed then sck.close est bon, mais il ne faut pas le mettre avant de se connecter mais au moment ou tu desire fermer le socket (en quittant l'appli, en cliquant sur un bouton ....) au demarrage : tu as deja un socket qui tourne sur un port P. ton pgm cree un nouveau socket (donc differnet de celui qui a ete mal ferme) que tu initialise sur le meme port P. etant donne que ce ne sont pas les meme socket, ca ne sert a rien de fermer le tien, c'est pas lui qui est ouvert Il faut aussi que tu gere la deconnection par le poste distant : private sub ton_sicket_close() if ton_socket.starte<>sckclosed then ton_socket.close end sub car sinon, la connection est fermee de l'autre cote, mais toujours ouverte sur ton poste ce qui t'empeche -1- d'accepter une nouvelle connection (serveur) -2- de la reouvrir(client)

blinnit · Answer

le .close ne resout en rien ce probl&#234;me.
En fait, il faut attendre 1 ou 2 minute avant de pouvoir utilis&#233; le m&#234;me port local, et je ne sais pas si &#231;a vient de windows ou du serveur.
Alors la solution du "0" comme port est bien car elle attribue un port local different &#224; chaque tentative de connection, mais ce n'est pas pratique pour certains routeurs et firewall.
Pour ma part, pour etre sure que ca marche chez tout le monde, j'utilise une tranche de port configurable et choisi en random avant chaque connection.
Exemple :

    MinPort = 8000
    MaxPort = 8000
    Randomize
    Winsock.LocalPort = (Rnd * Int((MaxPort - MinPort))) + MinPort
    Winsock.Connect ...

Voila si &#231;a peut aider...

Winsock TCPIP

5 réponses

Discussions similaires