[VB 6] winsock non accetta la connessione

[Delas]

ciaoz. ecco che faccio:

Private Sub Command1_Click()
  Winsock1.LocalPort = 3128
  Winsock1.Listen
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
  Winsock1.Accept requestID
End Sub

quando vado a passare dei dati mi dice "Operazione non valida allo stato corrente" e il debug mi segnala la riga dove accetto la connessione col winsock.. sapete perchè?

[Markho]

controlla in che stato è la connessione prima di
Winsock1.Accept requestID

con

msgbox Winsock1.state

[Delas]

lo stato è su due, se non sbaglio dovrebbe essere in ascolto...
:master:

[Markho]

ecco l'errore, dovresti prima chiudere la porta in listen,
non puoi avere una porta in ascolto e contemporaneamente connessa.....

prova così:

Private Sub Form_Load()
    Winsock1.LocalPort = 3128
    Winsock1.Listen
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
    If Winsock1.State <> sckClosed Then Winsock1.Close
    
    Winsock1.Accept requestID
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
    Dim StringaArrivata As String
    Winsock1.GetData StringaArrivata
    MsgBox StringaArrivata
End Sub

in questo modo una volta che ci si è connessi non accetta + connessioni.......

altrimenti devi "dirottare" la chiamata su una nuova porta e accettare li la connnessione e lasci la listen in ascolto.....

[xegallo]

Originariamente inviato da Markho

in questo modo una volta che ci si è connessi non accetta + connessioni.......

altrimenti devi "dirottare" la chiamata su una nuova porta e accettare li la connnessione e lasci la listen in ascolto.....

normalmente si crea una collection di socket che quando uno accetta una connessione ne crea un'altro in ascolto sulla stessa porta

[Markho]

esatto

[Berello]

Private Sub Command1_Click()
Winsock1.LocalPort = 3128
Winsock1.Listen
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock1.Close
Winsock1.Accept requestID
End Sub

Oppure:
Private Sub Command1_Click()
Winsock1.LocalPort = 3128
Winsock1.Listen
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock2.Accept requestID
End Sub

[Markho]

Berello, è quello che ho scritto io....
cmq la soluzione più elegante è fare come dice xegallo.......


Ah, dimenticavo, qui:

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long) 
Winsock1.Close
Winsock1.Accept requestID 
End Sub

è meglio che prima fai un controllo, altrimenti se il winsock è gia chiuso ti attacchi.....

e poi questo:

Oppure:

[...]
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long) 
Winsock2.Accept requestID 
End Sub

non funziona perchè ti da errore "Operazione non valida allo stato corrente", v. il post di apertura.....


ciao

[Berello]

E' vero, scusate, ho ripetuto, non me ne ero accorto (oggi ho dormito poco).
Comunque la seconda parte non è sbagliata: fa riferimento ad un altro winsock (infatti si chiama Winsock2).
Scusate ancora...