Programación General > Visual Basic 6.0 e inferiores

 Problemas Con Winsock

(1/1)

Bopo:
Hola, estoy haciendo una aplicacion winsock y todo lot enia funcionando ok, tengo el programa servidor perfecto porque antes funcionaba con otra aplicacion y es un exe que no lo he cambiado :rolleyes: , por lo que estoy seguro que el problema es el cliente, estaba funcionando y edspues le csmbie unas cositas ero al volverlas como estaban no funciona, bueno as configuracioen son estas:

Winsock 1

Localport: 888
RemotePort : 888

en los codigos tengo:

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
   
   Dim datos As String

   Text1.Text = Text1.Text + datos
   Private Sub Winsock2_DataArrival(ByVal bytesTotal As Long)
    Dim datos As String
    Winsock1.GetData datos

End Sub

Private Sub Command4_Click()
Winsock1.RemoteHost = Text1.Text
Winsock1.Connect
Dim enviar As String
    enviar = Winsock1.LocalIP & "   " & Label1.Caption & Label2.Caption & Label3.Caption
    Winsock1.SendData enviar
End Sub

Cuando apreto el command 4 sale un error que dicee Run.time '40006':
Wrong protocol or connection state for the requested transaction or request y si pongo debug sale  Winsock1.SendData enviar en amarillo....

 :(  :(  ayudenmeee

QliX=D!:
despues del connect el winsock realiza una serie de operaciones por las cuales "tarda" un poco en conectarse realmente por lo tanto tenes que darle un tiempo.. cuanto?:

--- Código: Text --- Do While winsock1.state <> sckConnected or winsock1.state <> sckError  doeventsLoop  

Bopo:

--- Cita de: "QliX=D!" --- despues del connect el winsock realiza una serie de operaciones por las cuales "tarda" un poco en conectarse realmente por lo tanto tenes que darle un tiempo.. cuanto?:

--- Código: Text --- Do While winsock1.state <> sckConnected or winsock1.state <> sckError  doeventsLoop  
--- Fin de la cita ---
Ya no sale el error pero l problema es que ese rror lo da porque no lo pueed enviar y no envia anda :(

Bopo:
hice un programa nuevo con tal codigo:


--- Código: Text --- Private Sub Command1_Click()Winsock1.RemoteHost = "192.168.0.71"Winsock1.ConnectEnd SubPrivate Sub Command2_Click()Dim enviar As Stringenviar = Text2.TextWinsock1.SendData enviarEnd Sub Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)Dim datos As StringWinsock1.GetData datosText1.Text = Text1.Text + datosEnd Sub  
y me funciono 2 veceso, ose pude enviar datos 2 veces y a la tercera dio el error :huh:

Navegación

[0] Índice de Mensajes