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

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


Messaggi: 29
Iscritto: 21/01/2009

Segnala al moderatore
Postato alle 15:19
Mercoledì, 04/03/2009
Buonasera sto facendo una applicazione clien/server, il mio problema è questo:
nel client ho messo un command per la connessione e per la disconnessione,
Codice sorgente - presumibilmente VB.NET

  1. Private Sub Command1_Click()
  2.  
  3. If Winsock1.State <> sckConnected Then
  4. ' se non è gia connesso allora si connette, e in
  5. 'Winsock_connect ho messo command1.caption = "Disconnetti"
  6. Winsock1.RemoteHost = Text1.Text
  7. Winsock1.Connect
  8. Else
  9. 'altrimenti se è gia connesso chiude la connessione e command1.caption connetti
  10. Winsock1.Close
  11. Command1.Caption = "Connetti"
  12. End If
  13.  
  14. End Sub



Però se il server è in ascolto allora si connette e si disconnette senza problemi,
ma se il server non è in ascolto clicco una volta sul command e non succede nulla (come dovrebbe essere), ma la seconda volta che ci clicco mi da errore 40020.
spero di essermi spiegato, grazie a tutti dele eventuali risposte. Ciao

PM Quote
Avatar
GrG (Member)
Guru^2


Messaggi: 3430
Iscritto: 21/08/2007

Segnala al moderatore
Postato alle 15:43
Mercoledì, 04/03/2009
prova così ...

Codice sorgente - presumibilmente VB.NET

  1. Private Sub Command1_Click()
  2.  
  3. If Winsock1.State <> sckConnected Then
  4. ' se non è gia connesso allora si connette, e In
  5. 'Winsock_connect ho messo command1.caption = "Disconnetti"
  6. Winsock1.Connect text1.text, 80 '80 è la porta a cui connettersi...
  7. Else
  8. 'altrimenti se è gia connesso chiude la connessione e command1.caption connetti
  9. Winsock1.Close
  10. Command1.Caption = "Connetti"
  11. End If
  12.  
  13. End Sub


PM Quote
Avatar
hubris (Normal User)
Rookie


Messaggi: 29
Iscritto: 21/01/2009

Segnala al moderatore
Postato alle 16:01
Mercoledì, 04/03/2009
Grazie della risposta, ma purtroppo il problema rimane..

PM Quote
Avatar
GrG (Member)
Guru^2


Messaggi: 3430
Iscritto: 21/08/2007

Segnala al moderatore
Postato alle 17:35
Mercoledì, 04/03/2009
mostra anche la parte server che usi...

PM Quote
Avatar
hubris (Normal User)
Rookie


Messaggi: 29
Iscritto: 21/01/2009

Segnala al moderatore
Postato alle 20:32
Mercoledì, 04/03/2009
Codice sorgente - presumibilmente VB.NET

  1. Private Sub Form_Load()
  2. Winsock1.Protocol = sckTCPProtocol
  3. Winsock1.Listen
  4. End Sub
  5.  
  6. Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
  7. If Winsock1.State <> sckClosed Then Winsock1.Close
  8. Winsock1.Accept requestID
  9. End Sub



eccola, ma comunque il problema sta sicuramente nel client.. Grazie ciao

PM Quote
Avatar
theprogrammer (Normal User)
Guru^2


Messaggi: 2509
Iscritto: 28/01/2009

Segnala al moderatore
Postato alle 21:29
Mercoledì, 04/03/2009
Ma non ho capito ... nome dell'host remoto e porta dove sono inseriti/settati ...?

PM Quote
Avatar
hubris (Normal User)
Rookie


Messaggi: 29
Iscritto: 21/01/2009

Segnala al moderatore
Postato alle 21:48
Mercoledì, 04/03/2009
nelle proprietà dei winsock, ma il problema non è la connessione, perche avviene, il problema è quello ch ho scritto sopra. Vorrei evitare che mi dia quell' errore.

PM Quote
Avatar
GrG (Member)
Guru^2


Messaggi: 3430
Iscritto: 21/08/2007

Segnala al moderatore
Postato alle 22:32
Mercoledì, 04/03/2009
mmm...riporta anche la descrizione dell'errore dato e non solo il numero...
comunque al momento prova così:
Codice sorgente - presumibilmente VB.NET

  1. Private Sub Command1_Click()
  2.  
  3. If Winsock1.State = sckConnected Then
  4. 'altrimenti se è gia connesso chiude la connessione e command1.caption connetti
  5. Winsock1.Close
  6. Command1.Caption = "Connetti"
  7. Else
  8. ' se non è gia connesso allora si connette, e In
  9. 'Winsock_connect ho messo command1.caption = "Disconnetti"
  10. Winsock1.RemoteHost = Text1.Text
  11. Winsock1.Connect
  12. End If
  13.  
  14. End Sub


PM Quote
Avatar
theprogrammer (Normal User)
Guru^2


Messaggi: 2509
Iscritto: 28/01/2009

Segnala al moderatore
Postato alle 22:40
Mercoledì, 04/03/2009
Quell'errore indica che non puoi effetturare una certa operazione quando la connessione sta in un certo stato.

Ovvero, non puoi effettuare nuovamente una connessione se la connessione e' gia' avvenuta ...

PM Quote
Pagine: [ 1 2 ] Precedente | Prossimo