Hej!

Jag har börjat på ett nytt chat program, änsålänge kan man bara ansluta till servern med klienten.

Och så till problemet... Det är så att när jag har anslutit till server och sen trycker på "disconnect" så "disconnectar" klienten (precis som den ska) men server slutar lyssna (det ska den inte ju). Nån som har någon aning om vad det kan vara?

//Micke

Jag tror att det är månen som ligger för nära solen... Allvarligt så får du nog ta och bifoga relevanta delar av programmet för att det ska gå att svara på!

/Johan

Det enda jag har är detta:

Klienten:
<code>
Private Sub cmdConnect_Click()
With frmMain.sckClient
.RemoteHost = "127.0.0.1"
.RemotePort = "1024"
.Connect
End With
End Sub

Private Sub cmdDisconnect_Click()
sckClient.Close
End Sub
</code>
Servern:
<code>
Private Sub cmdListen_Click()
With frmMain.sckClient
.LocalPort = "1024"
.Listen
End With
End Sub

Private Sub sckServer_ConnectionRequest(Index As Integer, ByVal requestID As Long)
With frmMain.sckServer(Index)
.Close
.Accept requestID
End With

Load frmMain.sckServer(sckServer.UBound + 1)

With frmMain.sckServer(sckServer.UBound)
.LocalPort = "1024"
.Listen
End With
End Sub
</code>

//Micke

Har fixat det nu, tänker alltid bättre på kvällen :)

Edit: Tog nog ut segern lite i förväg, det är fortfarande samma problem.

För att försöka luska ut vad som hände gjorde jag såhär:

<code>
Private Sub sckServer_Close(Index as Integer)
MsgBox "Nu hände det något"
End Sub
</code>

Och när jag trycker på disconnect knappen i klient programmet så kommer den msgboxen upp i server programmet.

Jag fattar ingenting.

PS. Nån annan som hatar den här buggen? (att det inte blir ny rad ibland)

//Micke

Är det någon skillnad på sckServer(Index) och sckServer(0)?

//Micke

>Är det någon skillnad på sckServer(Index) och sckServer(0)?

om Index är 0 så är det ingen skillnad....annars om Index är tex 5 så blir det ju skillnad...

/bj