Problème de String

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:

---

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

à tout hasard, si tu remplaces

Code:

---

If typeD = "Rue" Then

---

par

Code:

---

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

---

est-ce que c'est mieux ?

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)

merci pour vos propositions.

Alors,

Code:

---

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

---

me donne le même résultat

Pour info, la textbox affiche 1 avec le code

Code:

---

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:

---

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
Pièce jointe 181466
alors que je devrait obtenir
Pièce jointe 181468


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.

typeD = typeD.Trim() ?

Citation:

---

Envoyé par nnovic

typeD = typeD.Trim() ?

---

Parfait.

Avec
typeD = typeD.Trim(vbCrLf.ToCharArray)

Problème résolu.

Encore merci.