[VB6] Winsock che restituisce errore di timeout

[ciro78]

Salve, ho due programmini che dovrebbero comunicare tramite winsock in internet
Il gauio che mi da errore 10060 che, cercando in rete sembra essere un problema di time out. come posso risolvere?


inoltre uso la porta 80. considerando che scambio solo file di testo va bene?

[kalosjo]

Ti consiglio di cambiare porta, perchè la porta 80 è usata dal protocollo http

[ciro78]

e quindi quale porta mi consigli?
una qualsiasi??

[kalosjo]

si

[oregon]

Un attimo ... La porta 80 la usi nel PC che ascolta? E in quel PC girano Web server? Un problema di timeout potrebbe anche indicare una questione di firewall ...

[ciro78]

uso la porta 80 per entrambi i pc sia il client che il server.
non dovrebbero esserci web server installati su tale macchina e inoltre abbiamo indicato a norton di accettare le connessioni per quel programma....quindi non dovrebbe essere nemmeno un problema di firewall

[oregon]

Originariamente inviato da ciro78
uso la porta 80 per entrambi i pc sia il client che il server.

E perche' mai?

Per il server, posso capirlo, ma il client dovrebbe essere in grado di scegliere la porta da solo. Anzi, sarebbe anche utile lasciare al client la possibilita' di scegliere la porta locale (per questioni TCP).

non dovrebbero esserci web server installati su tale macchina e inoltre abbiamo indicato a norton di accettare le connessioni per quel programma....quindi non dovrebbe essere nemmeno un problema di firewall

E allora un timeout potrebbe essere causato dal server che non lavora correttamente ... ovvero che non e' correttamente in ascolto sulla porta ... ma questo dipende dal codice e senza vederlo non si puo' dire molto ...

[ciro78]

guarda io pensavo che le porte di ascolto e chiamata dovessero essere le stesse.

ovviamente le posso impostare mediante una casella di testo tu cosa mi consigli??
per il codice del serve eccolo

Private Sub Winsock1_Close()
    Winsock1.Close
    cmdAscolta.Enabled = True
    cmdChiudi.Enabled = False
    lblColore.BackColor = RGB(255, 0, 0)
    blnStato = False
End Sub
______________________________________________________________
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
    Dim Data As String
    Winsock1.GetData Data ' Copia i dati del Buffer in entrata nella variabile Data e svuota il Buffer
    DataTmp = Left(Data, 2)
    If DataTmp = "wr" Then
        lblScrittura.Caption = strClient & " sta scrivendo un messaggio"
    ElseIf DataTmp = "cl" Then
        lblScrittura.Caption = ""
    ElseIf DataTmp = "nm" Then
        strClient = Right(Data, (Len(Data) - 2))
    Else
        txtChat.Text = txtChat.Text & strClient & ":" & vbCrLf & "  " & Data & vbCrLf
        ' Imposta come inizio della selezione la fine, per lo scrolling automatico
        txtChat.SelStart = Len(txtChat.Text)
    End If
End Sub

____________________________________________________________
Private Sub Winsock1_Connect()
strNome = txtNome.Text
MsgBox strNome
Winsock1.SendData "nm" & strNome
End Sub
____________________________________________________________
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
    If MsgBox("Accettare la connessione?", vbYesNo) = vbYes Then
      Winsock1.Close               ' Chiude la socket per permetterle di cambiare stato
      Winsock1.Accept requestID  ' Accetta la richiesta
      lblColore.BackColor = RGB(0, 192, 0)
      blnStato = True
      Winsock1.SendData "nm" & strNome
    Else                        ' Altrimenti
      Winsock1.Close             ' chiude la socket
      Winsock1.Listen              ' e si rimette in ascolto rifiutando la richiesta di connessione
      lblColore.BackColor = RGB(255, 0, 0)
    End If
End Sub

[oregon]

Non ti posso mica consigliare. Se l'utente (o chi utilizza il programma) puo' modificare tali parametri allora mettili nell'interfaccia grafica a disposizione, altrimenti no.

Comunque non e' il caso di utilizzare una porta fissa (e poi la 80) per il client ...

[ciro78]

sono nell'interfaccia garfica.
scusa perchè non mi puoi consigliare?