Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Problem mit System.Net.Socket
Autor: leadfoot
Datum: 22.05.04 16:15
Habe ein FTP Programm erstellt, auf der Basis der clsFTP Klasse, die im Microsoft Net als Beispiel gehandelt wird . Klappt auch alles Prima... Nur bei manchen Servern funktioniert die passive FTP socket Kommunikation nicht . Zum Beispiel mit ftp.lucasarts.com Einloggen klappt. Wenn ich dann die passive Verbindung aktiviere und den Socket connecten will bekomme ich eine Fehlermeldung 20060, dass sich der Remote Host nicht meldet Hat jemand eine Idee was da der Hintergrund sein kann ? Das connecten mit anderen Servern klappt problemlos. Auch kann ich mich ohne Probleme mit WS_FTP Pro mit lucasarts verbinden. Gruss leadfoot   unction CreateDataSocket() As Socket Dim index1, index2, len As Int32 Dim partCount, i, port As Int32 Dim ipData, buf, ipAddress As String Dim parts(6) As Int32 Dim ch As Char Dim s As Socket Dim ep As IPEndPoint 'Send an FTP command to use passive data connection. SendCommand("PASV") If (m_iRetValue <> 227) Then MessageString = m_sReply Throw New IOException(m_sReply.Substring(4)) End If index1 = m_sReply.IndexOf("(") index2 = m_sReply.IndexOf(")") ipData = m_sReply.Substring(index1 + 1, index2 - index1 - 1) len = ipData.Length partCount = 0 buf = "" For i = 0 To ((len - 1) And partCount <= 6) ch = Char.Parse(ipData.Substring(i, 1)) If (Char.IsDigit(ch)) Then buf += ch ElseIf (ch <> ",") Then MessageString = m_sReply Throw New IOException("Malformed PASV reply: " & m_sReply) End If If ((ch = ",") Or (i + 1 = len)) Then Try parts(partCount) = Int32.Parse(buf) partCount += 1 buf = "" Catch ex As Exception MessageString = m_sReply Throw New IOException("Malformed PASV reply: " & m_sReply) End Try End If Next ipAddress = parts(0) & "." & parts(1) & "." & parts(2) & "." & parts(3) port = parts(4) << 8 ' Determine the data port number. port = port + parts(5) s = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp) ep = New IPEndPoint(Dns.Resolve(ipAddress).AddressList(0), port) Try 's.Bind(Any) s.Connect(ep) Catch ex As System.Net.Sockets.SocketException MessageString = m_sReply Throw New IOException("Cannot connect to remote server." & MessageString & _ ex.ErrorCode) 'Convert.ToString(System.Runtime.InteropServices.Marshal.GetLastWin32Error())) 'If you cannot connect to the FTP server that is 'specified, make the boolean variable false. flag_bool = False End Try 'If you can connect to the FTP server that is specified, make the boolean variable true. flag_bool = True Return s End Function /code]

Problem mit System.Net.Socket

884

leadfoot

22.05.04 16:15

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen