Fermer sur un Thread principal une fenêtre ouverte (form) sur un autre thread (Timer)

Version imprimable

Bonjour,

J'ai fait plusieurs essais pour fermer une fenêtre d'information d'attente d'un thread principal qui est lancé au démarrage d'une instance.

La fenêtre d'information d'attente est ouverte avec l'événement System.Timers.Elapsed.

J'ai donc utilisé un Timer pour différer l'ouverture du message d'attente au cas ou le serveur est "busy".

Mais cette fenêtre ne peut plus être fermée avec un simple Form.Close(). La commande est bien parcourue au débogage mais

celle-ci refuse de se fermer.

Ok, j'ai lu que le Timer s’exécute sur un autre Thread donc comme c'est "Cloisonné" pas d'issue possible.

J'ai essayé ensuite d'utiliser la méthode Invoke avec Delegate mais je ne suis pas du tout satisfait du résultat car avec la récursivité du Sub, la fenêtre "mouline" et se ferme enfin quand même au bout de 20 à 30 s : cela fait un peu tâche !

J'ai de nouveau essayé avec le lancement de la commande Application.Run(New Form). La fenêtre d'attente s'ouvre bien à

l'aide du Timer. Et Surprise, lorsque je lance la commande Application.Exit() : je reste sur le Thread principal, la fenêtre

se ferme tout de suite et tout fonctionne bien mais je ne sais pas plus pourquoi et si la méthode est "propre" ?

Premier code avec la fenêtre qui ne se ferme pas du tout (Je n'ai pas mis de code pour la "form" Proxytest car elle ne

fait qu'afficher un bandeau et du texte dans un label pour l'attente:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
Imports System.Timers

Module Routine

Private Temps As Timer
Private ProxTim as boolean

Public Function IntProx() As Boolean
  Dim adrtest As String = "http://www.example.com"        
  Try
     prox = WebRequest.GetSystemWebProxy()
     AdrProxy = prox.GetProxy(New Uri(adrtest))
     proxyObject = New WebProxy(AdrProxy, True)
     proxyObject.UseDefaultCredentials = True
     request = WebRequest.Create(adrtest)
     request.Timeout = 60000
     request.Proxy = proxyObject
     ProxTim= True
     Temps = New Timer()
     Temps.Interval = 1500
     Temps.Enabled = True
     Temps.Start()
     AddHandler Temps.Elapsed, AddressOf OnTimedEvent
     ReponseReq = CType(request.GetResponse, HttpWebResponse)
     If ReponseReq.StatusCode = HttpStatusCode.OK Then
           Temps.Enabled = False
           Temps.Dispose()
           Return False
     End If
Catch ex As WebException       
      If CType(ex.Response, HttpWebResponse).StatusCode = HttpStatusCode.ProxyAuthenticationRequired Then
           temps2.Enabled = False : temps2.Dispose()
           Return True                 
       End If
Finally
      If Not ProxTim Then Proxytest.close()      
End Try      
End Function

Public Sub OnTimedEvent(source As Object, e As System.Timers.ElapsedEventArgs)
        If ProxTim Then
            ProxTim =False
	    Temps.Stop()
            ProxyTest.Show()
            ProxyTest.Refresh()
        End If     
End Sub
End Module

Public Class ProxyTest
    ' Il n'y a pas de code utilisateur dans la classe ce n'est que de l'affichage de textes"
End Class

Deuxième essai après le premier essai qui ne permet pas la fermeture de la fenêtre d'information ProxyTest en essayant de
déléguer la fermeture :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
Imports System.Timers

Module Routine

Private Temps As Timer
Private ProxTim as boolean

Public Function IntProx() As Boolean
  Dim adrtest As String = "http://www.example.com"        
  Try
     prox = WebRequest.GetSystemWebProxy()
     AdrProxy = prox.GetProxy(New Uri(adrtest))
     proxyObject = New WebProxy(AdrProxy, True)
     proxyObject.UseDefaultCredentials = True
     request = WebRequest.Create(adrtest)
     request.Timeout = 60000
     request.Proxy = proxyObject
     ProxTim= True
     Temps = New Timer()
     Temps.Interval = 1500
     Temps.Enabled = True
     Temps.Start()
     AddHandler Temps.Elapsed, AddressOf OnTimedEvent
     ReponseReq = CType(request.GetResponse, HttpWebResponse)
     If ReponseReq.StatusCode = HttpStatusCode.OK Then
           Temps.Enabled = False
           Temps.Dispose()
           Return False
     End If
Catch ex As WebException       
      If CType(ex.Response, HttpWebResponse).StatusCode = HttpStatusCode.ProxyAuthenticationRequired Then
           temps2.Enabled = False : temps2.Dispose()
           Return True                 
       End If
Finally
       If Not ProxTim Then Proxytest.CloseForm()
      
End Try      
End Function

Public Sub OnTimedEvent(source As Object, e As System.Timers.ElapsedEventArgs)
        If ProxTim Then
            ProxTim =False
	    Temps.Stop()
            ProxyTest.Show()
            ProxyTest.Refresh()
        End If     
End Sub
End Module


Public Class ProxyTest
    Private Delegate Sub Clsfrm() 
    Public Sub CloseForm()
        If Me.InvokeRequired Then
            Me.Invoke(New Clsfrm(AddressOf CloseForm), New Object() {})
        Else
            Me.Close()
        End If
    End Sub
End Class

Et enfin, le dernier essai qui semble fonctionner parfaitement ? :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
Imports System.Timers

Module Routine

Private Temps As Timer
Private ProxTim as boolean

Public Function IntProx() As Boolean
  Dim adrtestAs String = "http://www.example.com"        
  Try
     prox = WebRequest.GetSystemWebProxy()
     AdrProxy = prox.GetProxy(New Uri(adrtest))
     proxyObject = New WebProxy(AdrProxy, True)
     proxyObject.UseDefaultCredentials = True
     request = WebRequest.Create(adrtest)
     request.Timeout = 60000
     request.Proxy = proxyObject
     ProxTim= True
     Temps = New Timer()
     Temps.Interval = 1500
     Temps.Enabled = True
     Temps.Start()
     AddHandler Temps.Elapsed, AddressOf OnTimedEvent
     ReponseReq = CType(request.GetResponse, HttpWebResponse)
     If ReponseReq.StatusCode = HttpStatusCode.OK Then
           Temps.Enabled = False
           Temps.Dispose()
           Return False
     End If
Catch ex As WebException       
      If CType(ex.Response, HttpWebResponse).StatusCode = HttpStatusCode.ProxyAuthenticationRequired Then
           temps2.Enabled = False : temps2.Dispose()
           Return True                 
       End If
Finally     
      If Not ProxTim Then Application.Exit()
      
End Try      
End Function

Public Sub OnTimedEvent(source As Object, e As System.Timers.ElapsedEventArgs)
        If ProxTim Then
            ProxTim =False
	    Temps.Stop()
            Application.Run(New ProxyTest)
        End If     
End Sub
End Module


Public Class ProxyTest
End Class

Désolé pour mon message un peu long avec les trois "codes" mais je voulais mettre les trois variantes pour être le plus clair possible.

Merci d'avance pour votre aide !

19/06/2017, 18h33
Pol63

rien compris
tu es sur un projet de type windows forms avec un sub main en démarrage ?
19/06/2017, 18h52
Pascal_F

Bonjour,

Oui, je lance mon instance avec un Sub Main au démarrage (sans form) et suis sous Windows Form.
Je dois tester si la connexion du logiciel passe par un proxy pour ouvrir ensuite si nécessaire la fenêtre d'authentification (login et password).

Je lance donc un thread principal (Module) au démarrage qui appelle une fonction de test pour savoir si il y a un proxy derrière la connexion internet.
Si le proxy ne nécessité pas d'authentification, je ne veux pas qu'une fenêtre de message d'infos s'ouvre puis se ferme rapidement.
C'est pourquoi j'ai mis un timer qui se charge d'ouvrir la fenêtre d'info (message d'attente) seulement si la réponse du serveur est lente.

Comme je l'ai dit , avec le timer pas de Form.Close() possible car la "Form" a été ouverte via l'événement Timer.Elapsed donc à priori sur le thread Timer.
La méthode Invoke ne fonctionne pas bien.
Il n'y a que la troisième méthode qui fonctionne bien ?

Comment faire avec la méthode Invoque + Delegate car ça rame et c'est non satisfaisant.

J'ai oublié de dire que la fenêtre principal du logiciel s'ouvre après les test au lancement à l"aide de la commande Application.Run(Fenêtre principale)

Merci pour ton aide
19/06/2017, 20h12
Pol63

je pourrais t'expliquer tout ça, mais le plus simple serait que tu démarres sur un splashscreen, à savoir un form qui affiche d'attendre pendant que tu testes la connexion, et après tu passes sur telle ou telle fenetre
20/06/2017, 05h39
Pascal_F

Citation:

Envoyé par Pol63

je pourrais t'expliquer tout ça, mais le plus simple serait que tu démarres sur un splashscreen, à savoir un form qui affiche d'attendre pendant que tu testes la connexion, et après tu passes sur telle ou telle fenetre

Merci Pol63 de t’intéresser à mon problème.

J'ai épuré un peu le code dans les 3 cas sur le premier message et mis en caractères gras les trois méthodes citées ( Simple Form.Close de la même fenêtre ouverte à l'aide d'un événement Timer.Elapsed),
Utilisation d'une méthode Invoke et enfin ouverture par Application.Run(New Form) puis Application.Exit.

J'ai déjà un Splashcreen qui se ferme automatiquement en fin de chargement de ma procédure principale avec un SplashScreen.Close() dans un événement timer du SplashScreen .

S'il n'y a pas de Proxy, je n'ai pas besoin de réaliser l'affichage du message d'attente.
Mon test au démarrage consiste donc à savoir si la connexion passe par un serveur Proxy et si il y a nécessité pour l'utilisateur de s'authentifier sur le Proxy.
Si il y a un Proxy mais sans authentification nécessaire, Charger systématiquement le message d'attente le fait se fermer tout de suite si la connexion au Proxy est rapide (Ce n'est pas très "propre").
Je dois absolument tester le Proxy car sinon la lecture des informations sur internet via des "BackgroundWorker" sera refusée par le serveur.

Donc, je veux n'afficher ce message d'attente qu'au bout de 1 à 1,5 secondes pour le cas ou la connexion au Proxy est lente.
J'aimerai bien faire fonctionner proprement la deuxième méthode (Invoke) car même si la troisième fonctionne très bien,
je ne comprends pas le schéma suivant sur la troisième méthode:
- Dans la procédure principale, si fenêtre de message, on ouvre Application.Run(New Form) (message d'attente) via un événement Timer.elapsed
- Puis Fermeture de cette fenêtre par Application.exit() mais comment être sur que dans certains cas mon programme ne va pas s'arrêter puisque j'utilise l'instruction Application.Exit.
L'instruction Application.Exit() ne me permet pas directement de dire qu'il faut fermer le message d'attente (si il y a des surcharges je ne les connais pas)
- Enfin Mon logiciel se lance Application.Run (Ma fenêtre MDI Principale).
Le logiciel se fermera complètement avec aussi avec Application.Exit() sachant que le message d'attente s'il a été ouvert aura été fermé au lancement après connexion au Proxy.
20/06/2017, 09h01
Pol63

pas mieux compris
je pense que tu te compliques la vie pour rien
je vais te donner quelques infos quand même, à voir si tu arrives à corriger ton code avec ...

on ne ferme pas une fenetre avec application.Exit, mais .close (ou .dispose qui libère la mémoire non managée en plus de close)
application.Exit doit forcer l'arrêt de tous les threads

avec le sub main l'appli démarre sur un thread
l'appli se ferme quand tous les threads sont terminés (y a une option dans le projet aussi qui est fermer l'appli à la fermeture de la fenetre principale, à éviter, mettre toutes les fenetres)
un thread se termine en fin de sub

.show sur une fenetre l'affiche mais ne bloque pas l'exécution, aussi un .show dans le sub main fait que l'appli s'arrête et on ne voit la fenêtre qu'une fraction de seconde

application.run est une instruction bloquante, ca ne passe à la ligne de code après tant que la fenetre est ouverte
elle est souvent utilisée dans un sub main, ca démarre une pompe à message sur le thread actuel, ce thread est alors le seul autorisé à modifier des controles
quand la fenetre se ferme ca passe à la ligne d'après, et donc l'appli peut se fermer
si tu veux rouvrir une autre fenetre il faut alors réutiliser application.run
il n'est pas possible de faire un autre run en même temps sur le même thread (avant que la fenetre soit fermée)
il est possible de faire un run après un run sur le même thread
il est possible de faire un autre run sur un autre thread (ce nouveau thread devient alors le thread principal pour cette fenetre, différent de celui de l'autre fenetre)

quand on veut modifier un controle (ou fermer une fenetre) depuis un autre thread que celui qui a créé la fenetre, il faut passer par un délégué
pour ca on utilise la fenetre ou un controle de celle ci pour vérifier qu'on est sur un autre thread si on est pas sûr (.invokerequired), et pour demander l'invoke

Code:

instanceform.invoke(()=>instanceform.close());

un truc comme ca devrait marcher
utiliser invoke sur un controle fait que la méthode que tu veux exécuter sera mise sur la pile, l'exécution attendra donc que plus rien ne s'exécute sur son thread
aussi si tu es en train de faire un traitement long (ce qui est à éviter vu que le thread de ce form sert aussi au rafraichissement de l'interface) il faudra annuler ce traitement

quand on démarrre un thread, on peut lui dire IsBackground = true, ce qui fait que quand le thread l'ayant démarré s'arrête, le thread enfant s'arrête aussi

utiliser des timers dans tout ça n'est pas une bonne idée je pense, parce que le thread d'un timer va devenir lié au form, qui bloque le thread via la pompe à message
l'asynchronisme, des threads, des .sleep, et ca devrait aller

mais comme je disais je pense que tu te compliques la vie
si tu as une fenetre de démarrage qui contient tout le code de ton main et tous les tests à faire alors ca sera plus simple, tu peux fermer cette fenetre quand tu veux, tu peux repartir sur une autre quand c'est bon
et le contenu de cette fenetre peut changer, si tu vois que tu as besoin d'infos tu peux faire apparaitre des textboxes ou autre (via un usercontrol si nécessaire)
20/06/2017, 10h43
Pascal_F

Re,

Merci pour tes réponses.

J'ai essayé à partir de mon module Main de lancer ma fenêtre principale (qui d'ailleurs bloquante ou pas est la fenêtre Mdi de mon logiciel) via MdiForm.Show.
Elle ne reste pas active à partir de mon thread principal appelé "Main". En faisant Application.Run (Ma Form MDI), il n'y a pas de problème.
Je stoppe le logiciel avec .close et Application.Exit sans erreur ou Exception levée.

La méthode InvoKe ne fonctionne pas comme je le veux, si comme tu l'as dit, on n'utilise pas Me.invoked mais elle boucle (traitement de la pile comme tu disais) : donc
ce n'est pas satisfaisant. La commande Invoke lève une exception car le Handle de la fenêtre n'est pas soit-disant créé alors qu'elle est bien affichée et que
je bataille pour la fermer proprement. Avec .Invoked plus d'exception mais ça rame ...

Je vais donc me contenter (et ne plus me casser la tête après une semaine de tests infructueux et de multiples essais) d'un Thread.sleep(1000) si il y a un proxy pour éviter l'ouverture et la fermeture instantanée de la fenêtre de message (cela fait désordre). Au moins, il y aura ouverture même rapide d'une fenêtre même sans possibilité de texture mais sans s'apparenter à une fenêtre fantôme qui ressemblerait à un bogue.

Et enfin, sans abuser de ton précieux temps, j'avais posté sur ce forum une question relative aux Sockets :
https://www.developpez.net/forums/d1...hentification/

Je n'ai eu aucun début de réponse ? Les sockets passent donc à travers un serveur Proxy comme Squid ?
Squid avec authentification est totalement bipassé et mon logiciel peut aller sur des serveurs de temps (protocole Udp) sans problèmes particuliers
Je n'ai d'ailleurs rien trouver comme commande pour l'authentification via sockets comme pour les pages http (Tcp).
20/06/2017, 11h13
Pol63

Citation:

Envoyé par Pascal_F

La commande Invoke lève une exception car le Handle de la fenêtre n'est pas soit-disant créé alors qu'elle est bien affichée et que
je bataille pour la fermer proprement. Avec .Invoked plus d'exception mais ça rame ...

s'il te dit ca c'est que c'est vrai ^^
c'est bien la même instance qui est affichée sur laquelle tu tentes l'invoke ?
l'invoke n'est pas tenté avant l'affichage ?

et comme je disais si ca fait un truc long que tu veux arrêter tu peux coder en conséquence (si c'est une boucle il suffit de tester un booléen de sortie à chaque tour)
20/06/2017, 14h15
Pascal_F

Bon,

La méthode invoke est celle présentée dans mon premier post (deuxième méthode avec le code).

Je suis persévérant et je vais essayer de faire un BackgroundWorker pour l'interrogation du serveur Proxy ( je le fais pour tous les appels httprequest et les sockets).
Si le Background est Busy, je pourrais utiliser un booléen qui me permettra d'afficher le message d'attente sur le thread principal sans avoir de problème.
Le timer n'enverra alors qu'une information temps écoulé et c'est sur le thread principal que je vais ouvrir la fenêtre.
La méthode thread.sleep() simplifie les choses mais elle ne me satisfait pas totalement. De plus, si il n'y a pas à attendre c'est dommage de forcer l'affiche d'un message
inutile.

J'avais déjà réalisé cette procédure pour afficher un message d'attente de synchronisation d'un Mutex (Boucle While sur un System.Threading.Mutex.OpenExisting) mais
je cherchais quelque chose de plus simple... Je vais faire la même chose avec le test du serveur Proxy.

Merci pour ta contribution
21/06/2017, 10h30
Pascal_F

Citation:

et comme je disais si ca fait un truc long que tu veux arrêter tu peux coder en conséquence (si c'est une boucle il suffit de tester un booléen de sortie à chaque tour)

Cette remarque ci-dessus m'a fait prendre conscience que je m'étais enfermé seul dans des complications inutiles entre thread alors que j'avais pas mal pas de procédure en
BackGround mais je voulais faire plus simple.

Je viens de modifier en conséquence avec un booléen qui permet de faire afficher la fenêtre d'attente sur le thread principal au bout d'un temps t.
Le booléen est Temp.Elapsed et la boucle While est sur un backgroundworker en testant s'il est busy.

Merci pour ton éclairage : sujet résolu