TcpClient error : cannot obtain value

Version imprimable

Bonjour,

Je dois recevoir des trames de façon continue. Code VB .NET 2005

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
 
Private Sub TraitRecept()
 
        Try
            TcpRecept.Connect(DistantAdresse, IntPort)
        Catch ex As Exception
 
        End Try
 
        Try
            While TcpRecept.GetStream.CanRead
                If Not TcpRecept.Connected Then Exit While
 
                SyncLock TcpRecept.GetStream
                    Dim UserStream As New Class_ClientTcp(TcpRecept)
                    UserStream.EnregStream()
                    UserStream = Nothing
                End SyncLock
 
            End While
 
        Catch exOverFlow As StackOverflowException
 
        Catch exArgument As ArgumentNullException
 
        Catch exSocket As Sockets.SocketException
 
        Catch ex As Exception
 
        End Try
 
        Try
            TcpRecept.Close()
        Catch ex As Exception
 
        End Try
 
        Thread.Sleep(1000)
        TraitRecept()
 
    End Sub

La réception se fait normalement en cours de journée mais la nuit à la même période, le service s'arrête en indiquant une erreur : "error : cannot obtain value". Comment puis-je traiter l'érreur ?

Merci d'avance.

12/11/2008, 10h29
tomlev

Si tu mettais un peu de code dans tes blocs Catch (écrire la stack trace dans un log par exemple), ça te permettrait peut-être de trouver l'origine de l'erreur...
12/11/2008, 11h47
Pol63

déjà qu'un catch vide c'est pas souvent utile
mais des catch multiples sans traitement, c'est plutot étrange aussi
12/11/2008, 12h36
benefit
J'ai fait des test sur ces catches. Il y avait du code pour des vérifs.
Je n'ai pas enlevé ces derniers pour m'orienter vers une autre solution. L'erreur n'a pas pu être traitée dans ces catches.

J'ai rajouté un nouveau test :
Code:

1 2 TcpRecept.GetStream.DataAvailable
Je verrai demain si ça marche.

J'ai modifié le code :

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
 
    Private Sub TraitRecept()
 
        Try
            If TcpRecept Is Nothing Then TcpRecept = New Sockets.TcpClient
            If Not TcpRecept.Connected Then TcpRecept.Connect(DistantAdresse, IntPort)
        Catch ex As Exception
 
        End Try
 
        If TcpRecept.Connected Then
            Try
                While TcpRecept.GetStream.CanRead
                    If Not TcpRecept.Connected Then Exit While
 
                    SyncLock TcpRecept.GetStream
                        If TcpRecept.GetStream.DataAvailable Then
                            Dim UserStream As New Class_ClientTcp(TcpRecept)
                            UserStream.EnregStream()
                            UserStream = Nothing
                        End If
                    End SyncLock
 
                End While
 
            Catch ex As Exception
 
            End Try
 
            Try
                If TcpRecept.Connected Then
                    TcpRecept.Close()
                    TcpRecept = Nothing
                End If
 
            Catch ex As Exception
 
            End Try
        End If
 
        TraitRecept()
 
    End Sub

L'erreur "cannot obtain value" est bien gérée.
Par contre, j'ai une consommation poussée du processeur. Peut on optimiser ce bout de code ?

Merci d'avance

12/11/2008, 13h59
tomlev

Citation:

Envoyé par benefit

L'erreur "cannot obtain value" est bien gérée.
Par contre, j'ai une consommation poussée du processeur. Peut on optimiser ce bout de code ?

C'est normal, ton While boucle en permanence même s'il n'y a rien à faire... il faut que tu ajoutes un Thread.Sleep pour temporiser quand il n'y a pas de données à recevoir