The descriptor is not a socket.

Diese Seite verwendet Cookies. Durch die Nutzung unserer Seite erklären Sie sich damit einverstanden, dass wir Cookies setzen. Weitere Informationen

  • The descriptor is not a socket.

    Client

    Quellcode

    1. Option Explicit
    3. Const Medium = "C:\Programme\"
    5. Private Sub Form_Load()
    6. On Error GoTo Failed
    8. wsck.Connect "localhost", 80
    9. Failed:
    10. Exit Sub
    11. End Sub
    Alles anzeigen


    Server

    Quellcode

    1. Dim remRequestID As String
    3. Private Sub cmdStart_Click()
    4. If wsck.State <> 0 Then
    5. wsck.Close
    6. cmdStart.Caption = "Start Listening"
    7. Else
    8. wsck.LocalPort = 80
    9. wsck.Listen
    10. cmdStart.Caption = "Stop Listening"
    11. End If
    12. End Sub
    13. Private Sub wsck_ConnectionRequest(ByVal requestID As Long)
    14. wsck.Close
    15. txtConrequest.Text = wsck.RemoteHostIP
    16. remRequestID = requestID
    17. MsgBox remRequestID
    18. End Sub
    19. Private Sub cmdConrequest_Click()
    20. wsck.Accept remRequestID
    21. End Sub
    22. Private Sub wsck_DataArrival(ByVal bytesTotal As Long)
    23. Dim remRequest As String
    24. wsck.GetData remRequest
    25. MsgBox remRequest
    26. End Sub
    Alles anzeigen


    Ich starte den Server und klicke auf Start Listening Button (cmdStart).
    Dann starte ich das Clientprogramm und dann auf Verbindung akzeptieren
    vom Server.

    Fehlermeldung -> The descriptor is not a socket.

    Kann mir einer helfen? Bin gerade derbst müde.
    Sry, wenn ich wichtige Angaben nicht mitgepostet habe.

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von sjBlack ()