• Jueves 15 de Abril de 2021, 18:53

Autor Tema:  Problemas Con Winsock  (Leído 1302 veces)

Bopo

  • Miembro activo
  • **
  • Mensajes: 72
    • Ver Perfil
Problemas Con Winsock
« en: Viernes 23 de Enero de 2004, 03:10 »
0
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!

  • Miembro MUY activo
  • ***
  • Mensajes: 214
    • Ver Perfil
Re: Problemas Con Winsock
« Respuesta #1 en: Viernes 23 de Enero de 2004, 20:22 »
0
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.  
QliX=D! - From the top of Tsunami

Bopo

  • Miembro activo
  • **
  • Mensajes: 72
    • Ver Perfil
Re: Problemas Con Winsock
« Respuesta #2 en: Viernes 23 de Enero de 2004, 22:33 »
0
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 :(

Bopo

  • Miembro activo
  • **
  • Mensajes: 72
    • Ver Perfil
Re: Problemas Con Winsock
« Respuesta #3 en: Viernes 23 de Enero de 2004, 23:07 »
0
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: