Programación General > Visual Basic 6.0 e inferiores

 Problemas Con Winsock

<< < (2/2)

tiquinho:
Prueba:

--- Código: Text --- Public Sub cmdSend_Click()Cancelar = False 'Aqui, en el Connect() o en el click del botón de conectarWhile (Winsock1.State &#60;&#62; sckConnected Or Cancelar = True)      Label3.Caption = &#34;Esperando conexión...&#34;      DoEventsWendIf Winsock1.State = sckConnected Then   Winsock1.SendData txtMensajeEnviar.Text   Label3.Caption = &#34;Sending Data&#34;Else   Label3.Caption = &#34;No se puede conectar a host&#34;End IfEnd Sub Public Sub cmdClose_Click()   cmdConnect.Enabled = True   cmdSend.Enabled = False   cmdClose.Enabled = False   Cancelar = TrueEnd Sub  
Esto esperaría a que estuviese conectado. El problema del tiempo es que puede costarle más conectarse, dependiendo de la red.

Cancelar sería una variable a la que tuvieras acceso desde esas funciones (del módulo, vamos), para que pudieras cancelar en caso de no conectar de verdad.

Espero que te sirva :)

PD: Tampoco estaría de más que le hicieras un Close al winsock al terminar, para asegurarte de que queda cerrado.(Creo recordar que para hacer el Connect tenía q estar cerrado,¿no?)

Navegación

[0] Índice de Mensajes

[*] Página Anterior