Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Visual Basic 6 - Problema client/server
Forum - Visual Basic 6 - Problema client/server - Pagina 2

Pagine: [ 1 2 ] Precedente | Prossimo
Avatar
hubris (Normal User)
Rookie


Messaggi: 29
Iscritto: 21/01/2009

Segnala al moderatore
Postato alle 15:08
Giovedì, 05/03/2009
Ho provato anche l ultimo codice ma niente, comqunue mi dice "Operazione non valida nell stato corrente"... Grazie a tutti comunque.

PM Quote
Avatar
hubris (Normal User)
Rookie


Messaggi: 29
Iscritto: 21/01/2009

Segnala al moderatore
Postato alle 17:35
Giovedì, 05/03/2009
Senno avevo pensato una cosa del genere
Codice sorgente - presumibilmente VB.NET
  1. Private Sub Command1_Click()
  2.  
  3. If command1.caption = "Connetti" Then
  4. Winsock1.RemoteHost = Text1.Text
  5. Winsock1.Connect
  6. 'e in winsock_connect metto command1.caption = "Disconnetti"
  7. Else
  8. Winsock1.Close
  9. 'e in winsock_close metto Command1.Caption = "Connetti"
  10. End If
  11.  
  12. End Sub


Ma non funziona neanche cosi.

Ultima modifica effettuata da hubris il 05/03/2009 alle 17:45
PM Quote
Avatar
hubris (Normal User)
Rookie


Messaggi: 29
Iscritto: 21/01/2009

Segnala al moderatore
Postato alle 18:13
Giovedì, 05/03/2009
Ok ho risolto finalmente, vi posto il codice.

Codice sorgente - presumibilmente VB.NET
  1. Private Sub Command1_Click()
  2.  
  3. Static Connesso As Boolean
  4.  
  5. If Connesso = False Then
  6.  
  7. If Winsock1.State <> sckConnected Then 'questa riga non credo sia necessaria, anzi.
  8. Winsock1.RemoteHost = Text1.Text
  9. Winsock1.Connect
  10. Connesso = True
  11. End If
  12.  
  13. Else
  14.  
  15. Winsock1.Close
  16. Command1.Caption = "Connetti"
  17. Connesso = False
  18. End If
  19.  
  20. End Sub


Grazie a tutti per l aiuto ciao

PM Quote
Avatar
GrG (Member)
Guru^2


Messaggi: 3430
Iscritto: 21/08/2007

Segnala al moderatore
Postato alle 18:28
Giovedì, 05/03/2009
ok...comunque cerca di non fare post di fila...usa edit...

PM Quote
Avatar
P4p3r0g4 (Member)
Guru


Messaggi: 1319
Iscritto: 29/12/2006

Segnala al moderatore
Postato alle 12:19
Venerdì, 06/03/2009
probabilmente l'errore stava negli stadi intermedi tra closed e connected (quelli con valore da 1 a 6)
forse bastava
Codice sorgente - presumibilmente VB.NET
  1. Private Sub Command1_Click()
  2.  
  3. If Winsock1.State = sckClosed Then
  4. Winsock1.RemoteHost = Text1.Text
  5. Winsock1.Connect
  6. Else if Winsock1.State = sckConnected or Winsock1.State = sckError Then
  7. Winsock1.Close
  8. Command1.Caption = "Connetti"
  9. End If
  10.  
  11. End Sub

PM Quote
Pagine: [ 1 2 ] Precedente | Prossimo