elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado:


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  No se puede conectar mi cliente al servidor WINSOCK
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: No se puede conectar mi cliente al servidor WINSOCK  (Leído 2,180 veces)
zetaperu

Desconectado Desconectado

Mensajes: 11


Ver Perfil
No se puede conectar mi cliente al servidor WINSOCK
« en: 28 Abril 2015, 19:38 pm »

Hola Foro,

Con respecto a la funcionalidad de mi codigo esta realizandolo perfecto, el problema radica al volver ejecutar mi cliente WINSOCK y éste realizar el proceso de conexión al servidor, se supone que mi servidor está ejecutandose esperando la comunicacion o peticion del cliente pero cuando éste vuelve a reconectar el estado del winsock cliente es 6 (conectandose) y por lo tanto la conexión nunca se vuelve a dar. He leido en casos similares y los tiempos de esperas que recomiendan no cambian en nada el estado, agradeceria de antemano una posible solución al mismo.

Adjunto parte del código

Código:
'****Server
Private Sub Form_Load()
ws_server.Close
'asignamos un puerto
ws_server.LocalPort = "8888"
'ponemos a la escucha el puerto asignado
ws_server.Listen
End Sub

Private Sub ws_server_ConnectionRequest(ByVal requestID As Long)
'cuando llegue una petición para conectarse la aceptamos
If ws_server.State <> sckClosed Then ws_server.Close
ws_server.Accept requestID
End Sub

Private Sub ws_server_DataArrival(ByVal bytesTotal As Long)
'aqui rebimos los datos que se envían y hacemos un reconocimiento
'así podemos tomar una decision
Dim str_datos As String
'el emvío se almacena en una cadena (str_datos)
ws_server.GetData str_datos

'****Cliente
Private Sub cmd_conectar_click()
'antes de conectarme el winsock debe estar cerrado
ws_cliente.Close

'me conecto a la pc remota utilizando su ip(la que ponemos en el textbox), x el puerto 8888
ws_cliente.Connect Me.txt_ip, "8888"

End Sub

Private Sub cmd_enviar_Click()
str_ruta_remota = Me.txt_ruta + Me.str_nombre_archivo

ws_cliente.SendData "archivo|" & Me.str_ruta_remota & "|" & lng_tamaño_archivo
End Sub

Private Sub ws_cliente_DataArrival(ByVal bytesTotal As Long)
'cada vez que se reciba algo se almacena en una cadena(str_dato_recibido)

Dim str_dato_recibido As String
ws_cliente.GetData str_dato_recibido

End Sub


En línea

Ninfrock

Desconectado Desconectado

Mensajes: 48


¿Un suicidio es matar a un suizo?


Ver Perfil
Re: No se puede conectar mi cliente al servidor WINSOCK
« Respuesta #1 en: 14 Mayo 2015, 07:30 am »

Hola

Deberias poner directamente un ws_server.close

Código
  1. Private Sub ws_server_ConnectionRequest(ByVal requestID As Long)
  2. 'cuando llegue una petición para conectarse la aceptamos
  3. ws_server.Close
  4. ws_server.Accept requestID
  5. End Sub

Aqui debe ser asi ws_server.GetData str_datos, vbString

Código
  1. Private Sub ws_server_DataArrival(ByVal bytesTotal As Long)
  2. 'aqui rebimos los datos que se envían y hacemos un reconocimiento
  3. 'así podemos tomar una decision
  4. Dim str_datos As String
  5. 'el emvío se almacena en una cadena (str_datos)
  6. ws_server.GetData str_datos, vbString

y posible error es que despues de establecer la primera conexion el servidor sigue "conectado" o marca error, entonces no te deja conectarte, deberias colocar
un timer que compruebe el estado...

saludos


En línea

UNIX es muy simple, solo que se necesita ser un genio para entender su simplicidad.

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Winsock cliente/servidor
Programación Visual Basic
Sk8er_boy12 4 3,631 Último mensaje 12 Julio 2005, 20:19 pm
por Faznet
Conectar al cliente de netbus con winsock
Programación Visual Basic
txomin 0 1,442 Último mensaje 22 Enero 2006, 17:07 pm
por txomin
Cliente-Servidor con Winsock
Programación Visual Basic
amtapias 2 1,849 Último mensaje 4 Marzo 2006, 16:02 pm
por Llorx
aplicacion cliente-servidor sin winsock? « 1 2 »
Programación Visual Basic
saliaz 13 6,415 Último mensaje 13 Abril 2008, 11:46 am
por ~~
Cliente servidor En VB 2010 Sin Winsock
.NET (C#, VB.NET, ASP)
Cuasar 3 3,690 Último mensaje 6 Septiembre 2015, 16:56 pm
por Eleкtro
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines