Hej! 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å! Det enda jag har är detta: Har fixat det nu, tänker alltid bättre på kvällen :) >Är det någon skillnad på sckServer(Index) och sckServer(0)?Chat program
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?
//MickeSv: Chat program
/JohanSv: Chat program
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>
//MickeSv: Chat program
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)
//MickeSv: Chat program
om Index är 0 så är det ingen skillnad....annars om Index är tex 5 så blir det ju skillnad...
/bj