Problemas de conexion con winsock

[Martinn]

Holass...

Intento conectar dos pcs a traves de internet. El programa que ejecuta la PC Cliente no utiliza winsock, sino las apis de windows, con lo cual lo simula al 100%, el programa que se ejecuta en la PC Servidor si utiliza winsock con su correspondiente ocx, el problema esta en que he probado la conexion con dos personas y con una se conecta y con la otra no, a que se puede deber esto ???


Gracias ....

[Jad-Neo]

Lo que puede estar ocurriendo es que no hay forma de saber como está estructurado el codigo de la persona que utiliza APIs. Esto es porque el control OCX de Winsock utiliza un criterio de conexión muy personalizado que casi no es compatible.
Ahora podria ser que se deba a una mala configuración, prueba haciendo que la otra persona que no usa el Winsock se conecte primero, o puede ser que la direcciòn IP sea incorrecta. Digo, no es nada seguro pero valdría la pena intentarlo.

[Martinn]

Gracias, podria ser una solucion el implementar las apis en ambos programas, osea, cambiar el winsock del servidor por las apis ?

Gracias

[VisualGuallabo]

¿Estas seguro que el programa servidor acepta mas de una conexión?
ese podria ser el problema.

[Martinn]

No el programa servidor solo acepta una conexion, lo pongo a la escucha en determinado puerto y el cliente conoce ese puerto y mi ip

[VisualGuallabo]

para que se puedan conectar mas de un usuario tienes crear un servidor que permita conexión multiple te pongo un codigo para que permita la conexión de mas de un usuario:

'Procedimiento para poner el servidor en escucha
Sub iniciarServer()
WinsockServer(i).LocalPort = 895
On Error GoTo cont
WinsockServer(i).Listen
cont:
a = 0
End Sub

Private Sub WinsockServer_Close(Index As Integer)
WinsockServer(i).Close
WinsockServer(i).Listen
End Sub

Private Sub WinsockServer_ConnectionRequest(Index As Integer, ByVal requestID As Long)
Dim i As Integer
i = Index
Load WinsockServer(WinsockServer.UBound + 1)

If WinsockServer(WinsockServer.UBound).State <> sckClosed Then
WinsockServer(WinsockServer.UBound).Close
End If

WinsockServer(WinsockServer.UBound).Accept requestID
End Sub

Private Sub WinsockServer_DataArrival(Index As Integer, ByVal bytesTotal As Long)
Dim data As String
WinsockServer(Index).GetData data
End Sub

Private Sub WinsockServer_Error(Index As Integer, ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)

End Sub

espero que te sirva.
no puse comentarios porque estoy apurado si no entiendes algo. preguntamen.