Discussion :

[mitch97]

Bonjour,

je voudrais utiliser le composant winsock avec un indexage. on m'a fait part d'une solution dans un autre post mais je me retrouve avec une erreur de compilation: la procédure n'existe pas ou la procedure a deja ce nom.
code qui donne une erreur:

Code :

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

Private Sub Winsock1_DataArrival(ByVal datalength As Long, i As Integer)

code qui fonctionne mais avec un seul winsock:

Code :

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

Private Sub Winsock1_DataArrival(ByVal datalength As Long)

datalength étant ce qui arrive du controle et i l'index.
si quelqu'un pouvais me donner une piste sur l'utilisation du controle winsock avec un index!!

[OhMonBato]

Dans l'autre post, je crois qu'il était question de

Private Sub Winsock1_DataArrival(ByVal datalength As Long, Index As Integer) 5tu peux laisser "i" bien sûr, c'est juste une question d'habitude perso )

et faudrait surtout voir ce que tu mets comme code derrière...

[mitch97]

ben que se soit i ou index je pense que c'est pareil!
le code que je veut mettre est la meme chose que tout a l'heure. en fait je veut recevoir des données de winsock1(i ou index), winsock1(i+1), winsock(i+2), etc... et tout cela en meme temps.

si je fais

Code :

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

Winsock_DataArrival datalength, appareil

et que appareil faut 1,2,3,... est ce que je vais recevoir sucessivement les données de winsock(1), winsock(2),....??

[OhMonBato]

peux tu nous montrer ton code ?

[mitch97]

voici le code qui gere la connection et la demande de lecture de chaque poste distant

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
21
22
23
24
25
26
27
28
29
30
31
32
33
 
for appareil=0 to nbreapp
 
If (Winsock(appareil).State <> sckClosed) Then
        Winsock(appareil).Close
    End If
 
    If attente_donnee = False Then
        Winsock(appareil).RemoteHost = ajout.adresse(app)
        Winsock(appareil).connect
        StartTime = Timer
        Fin = 0
 
        Do While (Winsock(appareil).State <> 7) And (Timer < StartTime + 8)
            If Winsock(appareil).State = 9 Then
                Winsock(appareil).Close
                Winsock(appareil).connect
            End If
 
            If Fin <> 1 Then
                lstinfo.AddItem "connection en cours a " & ajout.adresse(app1)
                Insere_FicTxt Date & " " & Time & " connection en cours a " & ajout.adresse(app1), "c:\connections.txt"
                Fin = 1
            End If
        DoEvents
        Loop
 
            If (Winsock(appareil).State = 7) Then
                lstinfo.AddItem "Connecté a " & ajout.adresse(app1)
                Insere_FicTxt Date & " " & Time & " Connecté a " & ajout.adresse(app1), "c:\connections.txt"
                lecture = True
            End If
next appareil

et maintenant voici le code qui attend les données et c'est la que ca va plus

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
21
22
Private Sub Winsock_DataArrival(ByVal datalength As Long, i As Integer)
Dim l As Integer
Dim toto(255) As String
Dim trame(255) As Byte
Dim b As Byte
Dim h As Integer
Dim j As Byte
Dim resultat As String
Dim conv As String
Dim buffer As String
Dim Temp As String
Dim ValHexa As String
 
Dim i As Integer
Dim z As Integer
Dim Tablo() As String
 
    For i = 1 To datalength
        Winsock(i).GetData b
        MbusByteArray(i) = b
    Next
end function

en fait au moment de la réception des données j'ai une erreur qui me dis que le controle existe déja

[OhMonBato]

voila pourquoi je mets Index dans mes procédures... :

Tu mets :
Private Sub Winsock_DataArrival(ByVal datalength As Long, i As Integer)

Et plus loin, dans la même procédure

Dim i As Integer

Te voila donc avec deux fois "i" déclaré, ça fait une fois de trop
Puisque c'est le controle d'index "i" qui va recevoir cet événement, tu n'as pas besoin de la boucle For i etc... et pas besoin de ton instruction Dim i