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 - client/server
Forum - Visual Basic 6 - client/server

Avatar
GrG (Member)
Guru^2


Messaggi: 3430
Iscritto: 21/08/2007

Segnala al moderatore
Postato alle 17:39
Martedì, 16/10/2007
Ciao!!
Ho un'altro probl. ke mi perseguita da tanto tempo e ke nn riesco a risolvere neanche con l'aiuto di LuigiBiasi ke mi ha cercato d'aiutare.
Sto creando un programma client/server (è un programma di messaggistica), quindi praticamente ci sn 2 programmi, 1 l'ho io e 1 mettiamo un mio amico.
Io ho il programma ke si connette a quello del mio amico, ke invece è in listen.

però mi da errore, adesso l'avviso bene nn me lo ricordo, mi ricordo ke nell'avviso c'era tipo "...invalid protocol..."

Ecco i codici ke metto nei 2 programmi:
Codice sorgente - presumibilmente VB.NET

  1. Private Sub Form_Load()
  2. Winsock1.LocalPort = 1001
  3. Winsock1.Listen
  4. End Sub
  5.  
  6. Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
  7. Winsock1.Close
  8. Winsock1.Accept requestID
  9. End Sub
  10.  
  11. Private Sub Command1_Click()
  12. Winsock1.SendData Text1.Text
  13. End Sub
  14.  
  15. Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
  16. Dim data As String
  17. Winsock1.GetData data
  18. List1.AddItem data
  19. End Sub



-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_

Codice sorgente - presumibilmente VB.NET

  1. Private Sub Form_Load()
  2. Winsock1.Connect "Qua c'è l'ip pubblico del mio amico", 1001
  3. End Sub
  4. Private Sub Command1_Click()
  5.  
  6. Winsock1.SendData Text1.Text
  7. End Sub
  8.  
  9. Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
  10. Dim data As String
  11. Winsock1.GetData data
  12. List1.AddItem data
  13. List1.AddItem Text1.Text
  14. List1.AddItem "___"
  15. End Sub



Cosa c'è che nn và come posso fare??

Ultima modifica effettuata da GrG il 16/10/2007 alle 17:41
PM Quote
Avatar
BytE-FucK (Normal User)
Pro


Messaggi: 171
Iscritto: 09/10/2007

Segnala al moderatore
Postato alle 18:11
Martedì, 16/10/2007
Mica l'errore è una cosa simile?

http://xs220.xs.to/xs220/07422/ddd.png

Se si controlla lo stato del winsock e fai un controllo tipo:
if winsock1.state = sckConnected then
winsock1.senddata 'Mandi senza errore
else
MsGbox "Non sei connesso" 'Non manda e avverte che nn è connesso al server
end if

Se hai altri prob posta:k::k:

PM Quote
Avatar
LuigiBiasi (Normal User)
Expert


Messaggi: 237
Iscritto: 15/09/2006

Segnala al moderatore
Postato alle 18:31
Martedì, 16/10/2007
il codice dovrebbe essere giusto, secondo me è un problema di connessione, evidentemente il pc sul quale gira il programma server è dietro una LAN, quindi c'è di mezzo il router e sicuramente non è stato stabilito l'indirizzamento del traffico su una macchina singola della LAN(quella dove c'è il server)in base alla porta e allora nn riescono a comunicare...

Ultima modifica effettuata da LuigiBiasi il 16/10/2007 alle 18:37
PM Quote
Avatar
BytE-FucK (Normal User)
Pro


Messaggi: 171
Iscritto: 09/10/2007

Segnala al moderatore
Postato alle 18:46
Martedì, 16/10/2007
In effetti,aspettiamo perche se l'errore è quello mio,vuol dire che nn si stabilisce proprio la connessione;)

PM Quote
Avatar
GrG (Member)
Guru^2


Messaggi: 3430
Iscritto: 21/08/2007

Segnala al moderatore
Postato alle 19:12
Martedì, 16/10/2007
__________________________________________________
Mica l'errore è una cosa simile?
...

♀♀♀♀♀♀♀♀♀♀♀♀♀♀♀♀♀♀♀♀♀♀♀♀♀♀♀♀

Si è proprio quello l'errore,
con il tuo metodo il programma mi dice ke nn è connesso.

Ultima modifica effettuata da GrG il 16/10/2007 alle 19:14
PM Quote
Avatar
BytE-FucK (Normal User)
Pro


Messaggi: 171
Iscritto: 09/10/2007

Segnala al moderatore
Postato alle 20:45
Martedì, 16/10/2007
Quindi ecco qui,controlla che il server sia in ascolto veramente,che il client si connetta all'ip giusto,che la porta sia = sia x l'ascolto sia x la connessione...Facci sapere

PM Quote
Avatar
P4p3r0g4 (Member)
Guru


Messaggi: 1319
Iscritto: 29/12/2006

Segnala al moderatore
Postato alle 14:42
Mercoledì, 17/10/2007
prova a compilare in eseguibile e farlo partire lì
i ws hanno la brutta abitudine di laggare se non compilati in eseguibili.
(e cmq laggano anche lì)

PM Quote
Avatar
BytE-FucK (Normal User)
Pro


Messaggi: 171
Iscritto: 09/10/2007

Segnala al moderatore
Postato alle 16:04
Mercoledì, 17/10/2007
A me mai laggato :D :D cmq aspettiamo e vediamo che dice;)

PM Quote