Cita:
Iniciado por MaxExtreme
Una aclaración: Un servidor no "conecta".
Y por ello no se da el evento "Close".
El servidor le controlas tú, por lo tanto, como no "conecta", sino que "escucha", nunca se cerrará. Por lo tanto, el evento "close" es inútil. Un servidor deja de escuchar cuando le hagas .Close, y como lo haces tú, pues entonces ahí incluyes tu "código importante".
Y por favor, no hagáis cosas si no sabéis distinguir entre "cliente" y "servidor", y "red" e "Internet"...
MaxExtreme tienes razon el servidor escucha y no conecta. pero quien carajo te dijo que no se produce el evento close. Quiero que sepas que el evento close se produce cada ves que se cierra una conexión. es desir cada ves que el cliente se desconecte se producira el evento close tanto en el servidor como en el Cliente. puedes probarlo si lo deseas y asi aprenderas que no eres ta sabiendo como te ases creer.
Como lo mas seguro es que no tengas la minima idea de como se ase aqui te pongo un sencillo ejemplo y asi brindo una verdadera ayuda robertomollo.
Creamos dos aplicaciones una servidor y otra cliente
Aplicación Cliente: Colocamos dos botones con Command1(para conectar)
y Command2 (para desconectar) y el control Winsock1
----------------------------------------------------------
Private Sub Command1_Click()
Winsock1.Connect "stuart", 1982
End Sub
Private Sub Command2_Click()
Winsock1.Close
End Sub
---------------------------------------------------
Aplicación Servidor: Colocamos el control Winsock1.
---------------------------------------------------
Private Sub Form_Load()
Winsock1.LocalPort = 1982
Winsock1.Listen
End Sub
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock1.Close
Winsock1.Accept requestID
End Sub
Private Sub Winsock1_Close()
If Winsock1.State = sckClosing Then Winsock1.Close: Winsock1.Listen
MsgBox "Vez MaxExtreme se a producido el Evento Close",,"VisualGuallabo"
End Sub
si en el evento close del servidor no ponemos este codigo. cuando el cliente presione el boton Command2 y se desconecte no podra conectarse nuevamente. lo pueden probar y beran el error. el mensaje(MsgBox) es para MaxExtreme para que pueda apresiar vien cuando se produsca el evento Close en el servido.
MaxExtreme vez que no soy el unico que pienso asi de ti. la verdad que lla visito poco este foro porque no soporto ver tus respuestas que no ayudan a nadie.
