Programme Winsock reste en mémoire !

HeavenForsaker Messages postés 223 Date d'inscription mercredi 13 juillet 2005 Statut Membre Dernière intervention 8 août 2011 - 3 janv. 2006 à 18:34
HeavenForsaker Messages postés 223 Date d'inscription mercredi 13 juillet 2005 Statut Membre Dernière intervention 8 août 2011 - 4 janv. 2006 à 01:00
j'ai fait un code simple juste pour tester le problème ça donne ça :



------------------------------------------------------------------------------------------



Private Sub ConnectButton_Click()



'On met en écoute le port 6666.

Winsock1.LocalPort = 6666

Winsock1.Listen



End Sub



Private Sub QuitButton_Click()



'Fermeture du socket.


Winsock1.Close

'On appel la procédure QueryUnload.


Unload Me




End Sub



Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)



'On ferme le socket si il ne l'est pas déjà.

If Winsock1.State <> sckClosed Then

Winsock1.Close

'On décharge la feuille ce qui va appeller la procédure QueryUnload.

Unload Me

End If



End Sub





------------------------------------------------------------------------------------------



3 fonctions, 1 bouton Connect (ConnectButton) et un bouton Quit (QuitButton).



Quand on lance le programme et qu'on le quitte directement sans avoir
appuyé sur "Connect" ,le programme se décharge correctement
. Par contre si on se connect et qu'on quitte ensuite, la le programme
reste en mémoire avec un "pas de réponse" dans le gestionnaire des
tâches.

C'est étrange d'autant plus que j'utilise bien le "Unload Me".

Je précise qu j'utilise Microsoft Winsock Control 6.0 (SP6), le fichier est MSWINSCK.OCX en version 6.1.97.82

21 réponses

HeavenForsaker Messages postés 223 Date d'inscription mercredi 13 juillet 2005 Statut Membre Dernière intervention 8 août 2011
4 janv. 2006 à 01:00
MDRRR bon demain je réinstall ce foutu VB sans le service pack dans un
premier temps pour voir ce que ça donne et ensuite je le mettrais à
jour. Si ça marche toujours pas je dégage cette daube de VB et je
retourne sur c++ builer !
0
Rejoignez-nous