Discussion :

[Anklor]

Salut,

Ce extrait de code se trouve dans ma classe qui gère la connexion TCP.
Je force l’évènement pour retrouver mon Message du coté de ma Form.
Mais le programme se ferme sans message d'erreur lorsqu'il arrive au RaiseEvent

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
 
 
Public Class DialgueTCP
 
*
*
 
 
    Public Event DataArrival(ByVal Message As String)
 
 
*
*
*
*
 
    Private Sub Delegate_Event_DataArrival(ByVal dr As IAsyncResult)
 
        BytesNumber = ServerStream.EndRead(dr)
        Dim ResponseData As String = System.Text.Encoding.ASCII.GetString(DataBuffer, 0, BytesNumber)
 
        Debug.Print(ResponseData)
        RaiseEvent DataArrival(ResponseData)
 
        ServerStream.Flush()
 
    End Sub
 
*
*
*
*
 
End Class

J'ai l'impression que cela vient de mon Thread.

[Pol63]

un programme qui se ferme veut dire pas de try catch et signifie aussi programmeur débutant ou pas sérieux

le raisevent étant fait sur un autre thread que le thread principal, le code associé à l'event se déroule sur le thread secondaire
or l'interface ne peut être modifiée que depuis le thread principal

il faut invoker un délégué, il y a plein de topic à ce sujet sur le forum et sur google
tu peux chercher "opération inter thread", message que tu aurais vu si tu avais mis des try catch ou si tu avais lu le rapport d'erreur à la fermeture du programme

[Anklor]

Oui je suis un programmeur débutant

j'ai trouvé un moyen de procéder à mon interruption à l’intérieur du thread.

j'appel une procédure comme suit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
    Private Sub Raise(ByVal [event] As [Delegate], ByVal data As Object())
 
        If [event] IsNot Nothing Then
 
            For Each C In [event].GetInvocationList
 
                Dim T = CType(C.Target, ISynchronizeInvoke)
 
                If T IsNot Nothing AndAlso T.InvokeRequired Then
                    T.BeginInvoke(C, data)
                Else
                    C.DynamicInvoke(data)
                End If
 
            Next
 
        End If
 
    End Sub

je l'appel par cette commande

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Raise(DataArrivalEvent, New Object() {Me, ResponseData})