échange contenu textboxes entre client et serveurRésolu

Question

Bonjour,  mes amis, je suis entrain de programmer une application client serveur sur vb6, tous vas très bien, mais le seul inconvénient  c'est que j'ai sur les deux formes plusieurs textesboxes environs sept textes et je voudrais transmettre leurs contenus de la form client vers la forme serveur.
code coté serveur
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim message As String
Winsock1.GetData message
 Text1.Text = message & vbCrLf
 Text2.Text = message & vbCrLf    ' ainsi de suite ect...
'coté client
Private Sub Envoyer_Click()
Call Winconnect.SendData(Text1.Text)
Call Winconnect.SendData(Text2.Text) 'ect...


quelqu'un pouvait m'aider, merci d'avance

EDIT: Ajout de la coloration syntaxique.

NHenry · Answer

Bonsoir,

En gros, tu n'arrives pas à savoir comment transmettre tes informations pour les récupérer correctement ensuite ?

Essayes de faire uen seule chaine (String) contenant le contenu de tes TextBox, séparé par un retour à la ligne (VbCrLf).
De l'autre côté, tu fais un split avec comme séparateur VbCrLf et tu récupères les informations dans le tableau.

Mohamed · Answer

merci mon ami pour ta réponse, mais je voie que j'ai pas exprimé ma question clairement; j'ai deux form la première form client doté d'un composant winsok  et cinq text, le méme principe et construction de la form serveur, je veut transmettre les contenus des cinq text  dans les zones de text correspondent sur la form serveur: voici mon code

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim message As String
Winsock1.GetData message
Text1.Text = message & vbCrLf
Text2.Text = message & vbCrLf ' ainsi de suite ect...
'coté client
Private Sub Envoyer_Click()
Call Winconnect.SendData(Text1.Text)
Call Winconnect.SendData(Text2.Text) 'ect...


EDIT : AJOUT DES BALISES DE CODE.
(jordane)

Mohamed · Answer

toujours le problème se pose j'ai pas encore trouver de solution.

ucfoutu · Answer

Bonjour,
le titre donné ("Plusieurs texts sur Form") ne reflète pas la difficulté réelle.
Je l'ai modifié.

 
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviend

Mohamed · Answer

ok ami pour toi ne reflète pas la difficulté réelle, pour moi si.
tu la modifié avec une difficulté, moi j'ai pas pus.
j'ai pas pus récupérer les sept textes sur la form serveur chaque contenu dans le champ du text approprié. félicitation.

Mohamed · Answer

Code coté serveur

Private Sub Form_Load()
Winsock1.LocalPort = 200
Winsock1.Listen
End Sub
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock1.Close
Winsock1.Accept requestID
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim message As String
Winsock1.GetData message
Text1.Text = message & vbCrLf   (text en multilines)
End Sub


COTE CLIENT

Private Sub Envoie_Click()
Winsock1.SendData Text1.Text & vbCrLf
Winsock1.SendData Text2.Text & vbCrLf
Winsock1.SendData Text3.Text & vbCrLf
Text1.Text = "" ' une foi envoyer, on efface le texte
Text2.Text = ""
Text3.Text = ""   ETC......
End Sub



Je recoie  les donnees sur form serveur parfaitement, mais je veut les recevoirs sous forme de tableau, je veut  recevoir chaque contenu dans son texte ; autrement dit  le contenu du champ text1.text de la form client sera envoyé dans le champ text1.text sur la form serveur,
Et le contenu du champ text1.text de la form client sera envoyé dans le champ text1.text sur la form serveur, ainso de suite.

pijaku · Answer

Bonjour,

1- Inutile de poster sur tous les forums, cela ne fera qu'embrouiller une situation qui l'est déjà beaucoup. cf : ce sujet sur CCM HT...

2- Tout le monde t'as dit ici, côté client  : envoie tes données réunit dans une seule chaine de caractère.
Or, je lis ceci dans ton code :
COTE CLIENT
Private Sub Envoie_Click()
Winsock1.SendData Text1.Text & vbCrLf
Winsock1.SendData Text2.Text & vbCrLf
Winsock1.SendData Text3.Text & vbCrLf
Text1.Text = "" ' une foi envoyer, on efface le texte
Text2.Text = ""
Text3.Text = ""   ETC......
End Sub
Donc, tu ne tiens pas compte de ce que l'on te dit. Cela complique encore les choses.
Tu devrais avoir, côté client, une variable de type String, dans laquelle tu stockes le contenu de chacun de tes textbox séparés par vbCrLf.
Un peu comme ceci :
Dim MonEnvoi As String
MonEnvoi = Text1.Text & vbCrLf & Text2.Text & vbCrLf 'etc...
Winsock1.SendData MonEnvoi
Text1.Text = "" ' une foi envoyer, on efface le texte

3- Côté serveur. tu nous dit que Text1.Text est vide...
Ton code réceptionnant est le suivant :
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim message As String
Winsock1.GetData message
Text1.Text = message & vbCrLf  ' (text en multilines)
End Sub
Je n'y connais rien à VB6, mais... Ta variable message, que contient-elle après la ligne : Winsock1.GetData message?
Pour le savoir, places une bête MsgBox pour vérifier le contenu de message, comme ceci :
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim message As String
Winsock1.GetData message
MsgBox message
End Sub

Donc, corriges le code comme montré dans le point 2, observe le résultat du point 3 et reviens ici nous dire ce qu'il en est.

Dans ta prochaine réponse, j'espère voir :
- le code modifié côté client, comme indiqué,
- le contenu du MsgBox affiché côté serveur.

jordane45 · Answer

En complément de la réponse de Pika...

voici comment utiliser le SPLIT ..

Winsock1.GetData message

Dim data() As String
data = split(message, vbCrLf )

Dim i As Integer
 For i = 0 To UBound(data )
    	'Le résultat s'affiche dans la fenêtre d'execution de l'éditeur de macros
        Debug.Print data(i)
 Next i

Mohamed · Answer

voila mes amis, j'ai fait comme vous m'avez conseiller.

coté client:

Dim MonEnvoi As String
  MonEnvoi = Text1.Text & vbCrLf & Text2.Text & vbCrLf 'etc...
  Winsock1.SendData MonEnvoi
  Text1.Text = "" 
  Text2.Text = "" 



coté serveur:

option explicite
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
  Dim message As String
  Winsock1.GetData message
  MsgBox message
End Sub

quant le message m'apparait je clique, et recoie toujours mes données dans un seul champ le champ du text1.text avec retour a la ligne.
je veut dispatcher ces données recu comme suit: chaque ligne sera récupérer dans son champ de text.
la première ligne sera récupérer dans le champ du text1.text
la deuxième ligne sera récupérer dans le champ du text2.text ainsi de suite.

je vous remercies  de vos patience


EDIT : AJOUT DES BALISES DE CODE ...( ENCORE !!! )
*

ucfoutu · Answer

et recoie toujours mes données dans un seul champ le champ du text1.text avec retour a la ligne.
je veut dispatcher ces données recu comme suit: chaque ligne sera récupérer dans son champ de text.
la première ligne sera récupérer dans le champ du text1.text
la deuxième ligne sera récupérer dans le champ du text2.text ainsi de suite.
Oui ? ben : il me semble que tu as eu ta solution dans ce message de jordane45, non ?
jordane45 23 oct. 2014 à 11:35 
Applique-la.

ucfoutu · Answer

Ah !
Eh bien : tu lis ce que t'a dit jordane45. Tu lis également ce qu'en dit MSDN. Et tu nous montres ce que tu as tenté sur la base de ces lectures.
Pour ton info : tout cela (lecture et application) est d'une grande simplicité. Si cela t'échappe, tu peux te poser de très nombreuses questions sur ton goût pour le développement et sur ta capacité à développer.
Reviens avec ton code d'essai et on verra ...
 
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviend

échange contenu textboxes entre client et serveur

11 réponses

Votre réponse

Discussions similaires