VB6 Winsock gibt Fehler raus

Dieses Thema VB6 Winsock gibt Fehler raus im Forum "Webentwicklung, Hosting & Programmierung" wurde erstellt von killer-Trekkie, 8. Jan. 2005.

Thema: VB6 Winsock gibt Fehler raus Hi, ich will mit Winsock über TCP arbeiten, aber immer wenn ein Client am Server connecten will, gibt der Server...

  1. Hi,

    ich will mit Winsock über TCP arbeiten, aber immer wenn ein Client am Server connecten will, gibt der Server beim ConnectionRequest Ereigniss den Laufzeitfehler 40020 (Ungültige Operation für den aktuellen Zustand) heraus.
    Wie kann ich den Fehler beheben?

    MFG

    killer-Trekkie
     
  2. Welchen Zustand hat den Dein Winsock Kontrol auf dem Server vor dem Versuch zu verbinden?
    Steht er auf Listen?

    Winsock1.Listen

    Gruß
    Schwigi
     
  3. Zur Erläuterung mal der Quellcode:

    Code:
    Private Sub Command1_Click()->Connect-Button
     On Error GoTo Fehler
    
     If Option1.Value = True Then->Option1=Connect
      Winsock.RemotePort = XX
      Winsock.RemoteHost = Combo1.Text
    
      Winsock.Connect
     End If
    
     If Option2.Value = True Then->Option2=Listen
      Label2.Caption = Listen
      Winsock.LocalPort = XX
      Winsock.Listen
     End If
    
    Exit Sub
    Fehler:
     MsgBox Err.Number &   & Err.Description, 16 + 0, Winsock
    End Sub
    
    Private Sub Command2_Click()
     Winsock.SendData Text1.Text
    End Sub
    
    Private Sub Timer1_Timer()
     Select Case Winsock.State
      Case sckConnected
       Label1.Caption = Connected
      Case sckClosed
       Label1.Caption = Closed
      Case sckError
       Label1.Caption = Error
     End Select
    End Sub
    
    Private Sub Winsock_ConnectionRequest(ByVal requestID As Long)
     If Option1.Value = True Then Exit Sub->Option1=Connect
     
     Winsock.Accept requestID
    End Sub
    
    Private Sub Winsock_DataArrival(ByVal bytesTotal As Long)
     Dim strNachricht As String
    
     Winsock.GetData strNachricht
     Text1.Text = Text1.Text & strNachricht
    End Sub
    
    Private Sub Winsock_Error(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)
     MsgBox Err.Number &   & Err.Description, 16 + 0, Winsock
    End Sub
    
    MFG

    Julian
     
  4. Setzte den Zusand des Winsocks vor Verbindungsaktionen gegebenfalls auf sckClosed.

    Code:
    If Winsock.State <> 0 Then Winsock.Close
    
    mfg Fizbin
     
  5. Wo genau?
    Beim ConnectionRequest-Ereignis oder bei Command1_Click()->Connect-Button?

    MFG

    killer-Trekkie
     
  6. Beim Command 1 sollte reichen
     
  7. Ja, danke! Funzt jetzt!

    MFG

    killer-Trekkie
     
Die Seite wird geladen...

VB6 Winsock gibt Fehler raus - Ähnliche Themen

Forum Datum
Bekomme einen Fehler Winsock 2.2 not on the Machine Windows XP Forum 12. Aug. 2011
Winsock Error 10038 Windows XP Forum 30. Juni 2008
VB Winsock Datei senden Windows XP Forum 1. Jan. 2005
VB Winsock (UDP) Windows XP Forum 24. Feb. 2004
mehrere verbindungen mit Winsock Webentwicklung, Hosting & Programmierung 20. Nov. 2003