SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: Bopo en Viernes 23 de Enero de 2004, 03:10

Título: Problemas Con Winsock
Publicado por: Bopo en Viernes 23 de Enero de 2004, 03:10
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
Título: Re: Problemas Con Winsock
Publicado por: QliX=D! en Viernes 23 de Enero de 2004, 20:22
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
  1.  
  2. Do While winsock1.state <> sckConnected or winsock1.state <> sckError
  3.   doevents
  4. Loop
  5.  
  6.  
Título: Re: Problemas Con Winsock
Publicado por: Bopo en Viernes 23 de Enero de 2004, 22:33
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
  1.  
  2. Do While winsock1.state <> sckConnected or winsock1.state <> sckError
  3.   doevents
  4. Loop
  5.  
  6.  
Ya no sale el error pero l problema es que ese rror lo da porque no lo pueed enviar y no envia anda :(
Título: Re: Problemas Con Winsock
Publicado por: Bopo en Viernes 23 de Enero de 2004, 23:07
hice un programa nuevo con tal codigo:

Código: Text
  1.  
  2. Private Sub Command1_Click()
  3. Winsock1.RemoteHost = "192.168.0.71"
  4. Winsock1.Connect
  5. End Sub
  6. Private Sub Command2_Click()
  7. Dim enviar As String
  8. enviar = Text2.Text
  9. Winsock1.SendData enviar
  10. End Sub
  11.  
  12. Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
  13. Dim datos As String
  14. Winsock1.GetData datos
  15. Text1.Text = Text1.Text + datos
  16. End Sub
  17.  
  18.  

y me funciono 2 veceso, ose pude enviar datos 2 veces y a la tercera dio el error :huh: