Discussion :

[EmilleMetz]

Bonjour,

Mon application est déclarée comme serveur et communique avec une autre application cliente. Après un simple test, la communication fonctionne parfaitement.
Mon problème arrive après, lorsque je veux analyser la demande du client.

Voici mon code

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 Timer10_Tick(sender As Object, e As EventArgs) Handles Timer10.Tick
        If client.Available > 0 Then
            Dim t(client.Available - 1) As Byte
            data.Read(t, 0, t.Length)
            Dim typeD As String = System.Text.UTF7Encoding.UTF7.GetString(t)
            TextBox32.Text = typeD
            If typeD = "Rue" Then
                Dim temp() As Byte = UTF7.GetBytes(ordre1 & vbCrLf)
                data.Write(temp, 0, temp.Length)
                TextBox32.Text = TextBox32.Text & "  -  " & ordre1
            ElseIf typeD = "Ruelle" Then
                Dim temp() As Byte = UTF7.GetBytes(ordre2 & vbCrLf)
                data.Write(temp, 0, temp.Length)
                TextBox32.Text = TextBox32.Text & "  -  " & ordre2
            Else
                MsgBox("Pas d'ordre transmis")
            End If
        End If
    End Sub

Si j'affiche la variable typeD dans une textbox, j'ai bien Rue ou Ruelle qui s'affiche. Pourtant, mon appli n'envoie rien au client. La msgBox s'affiche.
Je ne comprends pas et je veux bien de l'aide.

Merci

[nnovic]

à tout hasard, si tu remplaces

Code :

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

If typeD = "Rue" Then

par

Code :

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

If typeD.CompareTo("Rue") = 0 Then

est-ce que c'est mieux ?

[Pol63]

et msgbox(typeD) il dit quoi ?

et le code client il ressemble à quoi ?

sinon je pense que ca vient juste d'un manque de connaissance sur le tcp, où il est généralement conseillé de concaténer ce qui arrive et de faire une norme de transmission (type caractère de fin de transmission ou codage de la longueur de la transmission)

[EmilleMetz]

merci pour vos propositions.

Alors,

Code :

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

If typeD.CompareTo("Rue") = 0 Then

me donne le même résultat

Pour info, la textbox affiche 1 avec le code

Code :

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

TextBox32.Text = CStr(typeD.CompareTo("Rue"))

msgbox(typeD) me dit soit Rue soit Ruelle

Le code client est un script TCL et il dit

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
proc sendRequestACS { req } {
      variable privateACS
      global caption
 
	set result "Communication interrompue entre Audela et ACS"
	catch {
		 puts  $privateACS(socket) $req
         	 flush $privateACS(socket)
         	 set result [gets $privateACS(socket)]
 
		      }
	return $result
  }

La variable $req correspond soit à Rue ou Ruelle


Bien que ce code ne demande pas de retour à la ligne (\n en tcl), je pense qu'il y en a un à la fin de la transmission.
J'ai volontairement provoqué une erreur en demandant la conversion de typeD dans une variable int.
J'obtient ca

alors que je devrait obtenir



Comme j'ai la main sur le script TCL, je vais mettre un type caractère de fin de transmission puis le supprimer et tout ce qui suit de typeD.
Un autre client peut se connecter, je n'ai pas la main sur celui-ci. Si je rencontre le problème, je calculerai la longueur de la chaine de typeD et je conserverai de typeD cette longueur -x caractère(s).

J'essaye tout cela.

[nnovic]

typeD = typeD.Trim() ?

[EmilleMetz]

typeD = typeD.Trim() ?

Parfait.

Avec
typeD = typeD.Trim(vbCrLf.ToCharArray)

Problème résolu.

Encore merci.