Hallo Kollegen,
ich habe ein Problem. Ich möchte einen TCP/IP-Client bauen, der sich mit einem FTP-Server verbinden kann. Nun habe ich zum Test ein Winsock-Steuerelement in mein form eingebaut , eine Connection aufgebaut und wollte nun sehen, was der Server mir beim Connect zurückmeldet. Ich erhalte 15 Bytes an Daten. Wenn ich diese mit der Methode "Winsock1.GetData winsockData, vbString, bytesTotal" im Debugmodus auslesen will, erhalte ich einen Fehler 40006 mit Meldung "Falsche(s) Protokoll oder Verbindungszustand für die angeforderten Transaktion oder Anforderung".
Wenn ich den Quelltext ohne debuggen ausführe, tritt der Fehler nicht auf und ich erhalte ein paar Hieroglyphen. Weis jemand, was es damit auf sich hat? Wieso tritt im Debugmodus der Fehler auf und wieso sind die Daten nur hieroglyphen? Anbei der verwendete Code.
Private winsockData As String
Private Sub Command1_Click()
Winsock1.RemoteHost = "test-god"
Winsock1.RemotePort = 23
Winsock1.Connect
For i = 1 To 5
DoEvents
Next i
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
m = MsgBox(CStr(bytesTotal))
Winsock1.GetData winsockData, vbString, bytesTotal
ServerText.Caption = winsockData
End Sub
Vielen Dank
ich habe ein Problem. Ich möchte einen TCP/IP-Client bauen, der sich mit einem FTP-Server verbinden kann. Nun habe ich zum Test ein Winsock-Steuerelement in mein form eingebaut , eine Connection aufgebaut und wollte nun sehen, was der Server mir beim Connect zurückmeldet. Ich erhalte 15 Bytes an Daten. Wenn ich diese mit der Methode "Winsock1.GetData winsockData, vbString, bytesTotal" im Debugmodus auslesen will, erhalte ich einen Fehler 40006 mit Meldung "Falsche(s) Protokoll oder Verbindungszustand für die angeforderten Transaktion oder Anforderung".
Wenn ich den Quelltext ohne debuggen ausführe, tritt der Fehler nicht auf und ich erhalte ein paar Hieroglyphen. Weis jemand, was es damit auf sich hat? Wieso tritt im Debugmodus der Fehler auf und wieso sind die Daten nur hieroglyphen? Anbei der verwendete Code.
Private winsockData As String
Private Sub Command1_Click()
Winsock1.RemoteHost = "test-god"
Winsock1.RemotePort = 23
Winsock1.Connect
For i = 1 To 5
DoEvents
Next i
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
m = MsgBox(CStr(bytesTotal))
Winsock1.GetData winsockData, vbString, bytesTotal
ServerText.Caption = winsockData
End Sub
Vielen Dank