[VB6] Winsock e multiconnessione

[SavyX]

ciao ragazzi

ho un problema.

Devo effettuare n connessioni su alcuni indirizzi internet. Es 5 connessioni contemporaneamente su lato client.

Come faccio a fare queste 5 connessioni in contemporanea e lo stato della singola connessione?

Ho letto che bisogna utilizzare una matrice di winsock.

Avreste qualche esempio pratico?

Grazie a chi mi può aiutare

[MMarzia]

versione di VB?
intanto ti sposto nel subforum

[pprllo]

Puoi creare 5 controlli Winsock diversi sul form (personalmente preferisco fare così, per poterli meglio distinguere), oppure dichiarare un array di Winsock a inizio programma. Poi lo tratti come un normale array di oggetti, oppure richiami ogni Winsock col suo nome.

[SavyX]

si scusate
la versione è la 6 con l'ultimo service pack (credo il SP6)

avevo pensato ad una matrice di winsock, ma come si fanno a creare dinamicamente?

metto sul form un winsock e lo imposto con Index=0. Gli altri invece? devo metterli per fonza sul form e impostare index=1, index=2 etc? Quanti ne posso mettere max? Quanti me ne consigliate?

Grazie, a presto

[Brainjar]

Ne puoi mettere 'praticamente' tutti quelli che vuoi. Ti conviene, però, creare quelli che effettivamente di servono. Per crearli dinamicamente una volta che hai il primo nel form con Index = 0
(Se il tuo controllo Winsock si chiama 'Winsock1')

    ' Count è sempre uguale all'ultimo Index + 1
    ' Con questa istruzione ne aggiungi un altro
    Load Winsock1(Winsock1.Count)

Ciao

[Visionario]

Salve a tutti,

questo è il mio primo post qui ed avendo lo stesso problema volevo chiedere :

usando un controllo winsock chiamato TCP e impostando il suo index a 0 (Zero)

ho creato una routine che crea varie istanze e per ogni istanza esegue il seguente condice :


Load TCP(istanza)
TCP(istanza).Connect ipRemoto, porta


ora io quando usavo un solo winsock mandavo dati quando si verificava l'evento connect in questo modo :

Private Sub TCP_Connect()
TCP.SendData "Testo da inviare ...."
End Sub


essendo ora in un array, come faccio a sapere quale dei winsock si è effettivamente connesso ?

Ho provato così :

Private Sub TCP_Connect(ByVal Index As Integer)
TCP(Index).SendData "Testo da inviare ...."
End Sub

ma mi dà errore nella compilazione, quancuno mi può aiutare?

Ciao

[SavyX]

ciao a tutti,
dalla versione 6 sono passato alla versione .net

Ho inserito il controllo Winsock, e me lo ha chiamato in automatico AxWinsock1.

Ora come faccio a farlo diventare un array, ovvero per utilizzarlo con gli indici 1, 2, etc ed a gestire l'invio e la ricezione dell'informazione per ogni wincosk?

grazie

[cassano]

dim sock as winsok()