Envoie d'une variable avec SendData --- Besoin d'aide :(

Marsh Posté le 27-10-2002 à 20:30:58

alors voilà, lors du click sur un bouton un texte est envoyé sur un pc en réseau local connecté grace a winsock ou tourne le meme programme. Voici le code lors du clik sur un bouton :

Private Sub Command3_Click()
WS.SendData (Text2)
Text2.Text = ""
End Sub

l'autre pc recoit le texte grace au code suivant:

Private Sub WS_DataArrival(ByVal bytesTotal As Long)
WS.GetData Data
Text1.Text = Data
end sub

tout cela marche.
LE problème vient du fait que maintenant j'aimerai envoyer a l'autre pc le nombre que contient une variable que l'on va appeller x lorsque je clique sur un autre bouton:

moi j'écris:

Private Sub Command5_Click()
WS.SendData (x)
End Sub

et sur l'autre pc:

Private Sub WS_DataArrival(ByVal bytesTotal As Long)
WS.GetData x
Text2.Text = x
end sub

Et là ça ne marche pas
Si dans le dataarrival je met data à la place des x, il le confond avec les data précédent, donc je ne sais pas comment faire

plese help

Reply

Marsh Posté le 27-10-2002 à 20:30:58

Reply

Marsh Posté le 27-10-2002 à 21:49:38

n'est-ce pas là un problème de protocole que tu dois établir? Je veux dire, ton programme en réception sait-il à l'avance ce qu'il va recevoir comme donnée?

---------------
Whichever format the fan may want to listen is fine with us – vinyl, wax cylinders, shellac, 8-track, iPod, cloud storage, cranial implants – just as long as it’s loud and rockin' (Billy Gibbons, ZZ Top)

Reply

Marsh Posté le 28-10-2002 à 16:07:25

en gros la commande senddata envoie la valeur d'une variable :

ex : winsock.senddata (variable)

(dites moi si j'ai faux

et la commande getdata recoit ces données
si l'on introduite getdata dans une sub dataarrival, des qu'un senddata est détécté getdata recoit les donnée :

ex:

winsowk.getdata data

--------------------

ma question est peut-ton envoyer plusiseurs choses en meme temps et comment les differencier à l'arrivée ????

merci d'avance

Reply

Marsh Posté le 28-10-2002 à 16:31:05

tu peux envoyer qu'une variable à la fois, genre une string. Une string peut-être issue de la conversion d'un tableau par exemple.

C'est clair que c'est à toi de décider la façon dont tu vas faire passer tes données de l'un à l'autre. Et pour cela, tu dois décider d'un protocole. Genre le premier caractère identifie le type de donnée, et le second la longueur, etc etc...

J'ai utilisé cela dans le passé et je faisais des strings à ma sauce que j'envoyais d'un coup. Au niveau DataArrival, fallait bien sûr que la fonction sache interpréter les données reçues. Ici, c'est à ton imagination de jouer.

---------------
Whichever format the fan may want to listen is fine with us – vinyl, wax cylinders, shellac, 8-track, iPod, cloud storage, cranial implants – just as long as it’s loud and rockin' (Billy Gibbons, ZZ Top)

Reply

Marsh Posté le 28-10-2002 à 16:39:16

ok merci, je vois en gros ce que tu veux dire, et j'ai une petite idée de ce que je vais faire

@ +

Reply

Marsh Posté le 28-10-2002 à 23:25:56

en fouinant un peu des sources j'ai trouvé ça :

socket.GetData donnee
If InStr(1, donnee, "PERDU", vbBinaryCompare) Then
donnee = Replace(donnee, "PERDU", "", 1, , vbBinaryCompare)
decoup = Mid(donnee, InStr(1, donnee, "pion:", vbBinaryCompare) + 5)
pos = InStr(1, decoup, "|", vbBinaryCompare)
donnee = Mid(decoup, 1, pos - 1)
decoup = Mid(decoup, pos + 1)

estce que kelkun pourrait me dire clairemetn ce que ça veut dire ?
particulièrement le
-Instr et a koi corresponds ce kil y a entre()
-le Mid et a koi corresponds ce kil y a entre()

j'ai vu ça ds plusieurs source. Ne cerait-il pas un moyen de séparere et de récupérer au bon endrois les donnes reçus par senddata ???

Reply

Marsh Posté le 28-10-2002 à 23:28:58

Citation :

Visual Basic for Applications Reference

InStr Function

Returns a Variant (Long) specifying the position of the first occurrence of one string within another.

Syntax

InStr([start, ]string1, string2[, compare])

The InStr function syntax has these arguments:

Part Description
start Optional. Numeric expression that sets the starting position for each search. If omitted, search begins at the first character position. If start contains Null, an error occurs. The start argument is required if compare is specified.
string1 Required. String expression being searched.
string2 Required. String expression sought.
compare Optional. Specifies the type of string comparison. If compare is Null, an error occurs. If compare is omitted, the Option Compare setting determines the type of comparison. Specify a valid LCID (LocaleID) to use locale-specific rules in the comparison.

Settings

The compare argument settings are:

Constant Value Description
vbUseCompareOption -1 Performs a comparison using the setting of the Option Compare statement.
vbBinaryCompare 0 Performs a binary comparison.
vbTextCompare 1 Performs a textual comparison.
vbDatabaseCompare 2 Microsoft Access only. Performs a comparison based on information in your database.

Return Values

If InStr returns
string1 is zero-length 0
string1 is Null Null
string2 is zero-length start
string2 is Null Null
string2 is not found 0
string2 is found within string1 Position at which match is found
start > string2 0

Remarks

The InStrB function is used with byte data contained in a string. Instead of returning the character position of the first occurrence of one string within another, InStrB returns the byte position.

--------------------------------------------------------------------------------
Send feedback to MSDN.Look here for MSDN Online resources.

Citation :

Visual Basic for Applications Reference

Mid Function

Returns a Variant (String) containing a specified number of characters from a string.

Syntax

Mid(string, start[, length])

The Mid function syntax has these named arguments:

Part Description
string Required. String expression from which characters are returned. If string contains Null, Null is returned.
start Required; Long. Character position in string at which the part to be taken begins. If start is greater than the number of characters in string, Mid returns a zero-length string ("" ).
length Optional; Variant (Long). Number of characters to return. If omitted or if there are fewer than length characters in the text (including the character at start), all characters from the start position to the end of the string are returned.

Remarks

To determine the number of characters in string, use the Len function.

Note Use the MidB function with byte data contained in a string, as in double-byte character set languages. Instead of specifying the number of characters, the arguments specify numbers of bytes. For sample code that uses MidB, see the second example in the example topic.

--------------------------------------------------------------------------------
Send feedback to MSDN.Look here for MSDN Online resources.

---------------
J'ai un string dans l'array (Paris Hilton)

Reply

Envoie d'une variable avec SendData --- Besoin d'aide :(

Sujets relatifs:

Leave a Replay