ArgumentException nach erneuter Initialisierung eines FTP Uploads via FTP.

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 9 Antworten in diesem Thema. Der letzte Beitrag () ist von Drahuverar.

    ArgumentException nach erneuter Initialisierung eines FTP Uploads via FTP.

    Ich versuche einen automatisierten uploader für meinen server zu schreiben, es wird angezeigt das der datenstrom bei erneuter initierung des uploads nicht lesbar ist... Könnt ihr mir da weiterhelfen ?
    Der Fehler tritt in der 19ten zeile auf.

    VB.NET-Quellcode

    1. Imports System.Net
    2. Imports System.IO
    4. Public Class Form1
    5. Dim dir As String = "D:\XAMPPmm\htdocs\CURL"
    6. Dim ftpdir As String = "***"
    7. Dim SER_REQ_FTP As FtpWebRequest = DirectCast(WebRequest.Create(ftpdir), FtpWebRequest)
    8. Dim current As String
    9. Dim current_map() As String
    10. Dim flist As New HashSet(Of String)
    11. Dim dlist As New HashSet(Of String)
    12. Dim bPath As String = Application.StartupPath & "\FTPCONNECTOR.bat"
    13. Dim dPath As String = Application.StartupPath & "\FTPDATA.ftp"
    14. Dim stream As IO.StreamWriter = New IO.StreamWriter(dPath, False)
    15. Dim reader As StreamReader
    16. Dim rstream As Stream
    17. Dim response As FtpWebResponse
    19. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    20. reader = SER_REQ_FTP.GetResponse()
    21. rstream = response.GetResponseStream()
    22. response = New StreamReader(rstream) 'Hier tritt der fehler auf.
    23. While Not reader.EndOfStream
    24. current = reader.ReadLine()
    25. If Not current = ".htaccess" Then
    26. If Not current = ".." Then
    27. flist.Add(current)
    28. End If
    29. End If
    30. RichTextBox1.Text += "DETECTET FILE:" & current & vbNewLine
    31. End While
    32. RichTextBox1.Text += "DELITING FILES..." & vbNewLine
    33. RichTextBox1.Text += "writing ftp data..." & vbNewLine
    34. stream.WriteLine("***")
    35. stream.WriteLine("***")
    36. stream.WriteLine("***")
    37. stream.WriteLine("cd ***")
    38. For Each Item As String In flist
    39. stream.WriteLine("DELE " & Item)
    40. RichTextBox1.Text += "targeting: " & Item & vbNewLine
    41. Next
    42. stream.WriteLine("QUIT")
    43. stream.Close()
    44. RichTextBox1.Text += "writing exec data..." & vbNewLine
    45. stream = New IO.StreamWriter(bPath, False)
    46. stream.WriteLine("ftp -s:FTPDATA.ftp")
    47. stream.WriteLine("exit")
    48. stream.Close()
    49. RichTextBox1.Text += "deleting files..." & vbNewLine
    50. Shell(bPath, AppWinStyle.Hide)
    51. RichTextBox1.Text += "Files Deletet." & vbNewLine
    52. RichTextBox1.Text += "UPDATING." & vbNewLine
    53. current_map = IO.Directory.GetFiles(dir)
    54. For Each Item As String In current_map
    55. RichTextBox1.Text += "Detected File :" & Item & vbNewLine
    56. dlist.Add(Item)
    57. RichTextBox1.Text += "Detected File :" & Item & "added in list" & vbNewLine
    58. Next
    59. RichTextBox1.Text += "Init Upload:" & vbNewLine
    60. stream = New IO.StreamWriter(dPath, False)
    61. stream.WriteLine("open ***")
    62. stream.WriteLine("***")
    63. stream.WriteLine("****")
    64. stream.WriteLine("cd ***")
    65. For Each Item As String In dlist
    66. stream.WriteLine("put " & Item)
    67. RichTextBox1.Text += "targeting: " & Item & vbNewLine
    68. Next
    69. stream.WriteLine("QUIT")
    70. stream.Close()
    71. RichTextBox1.Text += "Upload..." & vbNewLine
    72. Shell(bPath, AppWinStyle.Hide)
    73. RichTextBox1.Text += "Done..." & vbNewLine
    74. RichTextBox1.Text += "Reset Connections..." & vbNewLine
    75. response.Close()
    76. rstream.Close()
    77. reader.Close()
    78. RichTextBox1.Text += "Done Ready to move on..." & vbNewLine
    80. End Sub
    82. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    83. SER_REQ_FTP.Credentials = New NetworkCredential("***", "***")
    84. SER_REQ_FTP.Method = WebRequestMethods.Ftp.ListDirectory
    86. End Sub
    87. End Class


    Ich hoffe wir finden schnell eine lösung

    Dieser Beitrag wurde bereits 4 mal editiert, zuletzt von „AzeS“ ()

    @AzeS Willkommen im Forum. :thumbup:
    Gib zunächst diesem Deinen Thread einen inhaltsbezogenen Namen.
    In welcher Zeile kommt die Exception?
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Danke, ich hoffe das wir viel wissen gegenseitig austauschen können.
    auch danke für deine Rückmeldung @RodFromGermany Die ArgumentExceprion tritt in der 19ten Zeile des Codes auf, ich vermute das ich irgendwas mit der Verbindung falsch mache bzw das diese doppelt injiziert wird.

    VB.NET-Quellcode

    1. Dim response As FtpWebResponse = SER_REQ_FTP.GetResponse()
    2. Dim rstream As Stream = response.GetResponseStream()
    3. Dim reader As StreamReader = New StreamReader(rstream)

    AzeS schrieb:

    VB.NET-Quellcode

    1. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dies ist die 19.te Zeile des Codes. (Im Deutschen nur 19. ;) )
    Welche Zeile bitte genau?
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    AzeS schrieb:

    Danke, ich hoffe das wir viel wissen gegenseitig austauschen können.
    auch danke für deine Rückmeldung @RodFromGermany Die ArgumentExceprion tritt in der 19ten Zeile des Codes auf, ich vermute das ich irgendwas mit der Verbindung falsch mache bzw das diese doppelt injiziert wird.

    VB.NET-Quellcode

    1. Dim response As FtpWebResponse = SER_REQ_FTP.GetResponse()
    2. Dim rstream As Stream = response.GetResponseStream()
    3. Dim reader As StreamReader = New StreamReader(rstream)


    Verzeih, so viel Code überall ':D die Zeile 22 wäre es, den fehlerhaften Code habe ich wie oben zitiert schon ausgeschrieben.

    Ich hoffe du hast eine lösung @RodFromGerman.

    exc-jdbi schrieb:

    stream gar nicht instanziert
    passt nicht zur genannten ArgumentException.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    AzeS schrieb:

    VB.NET-Quellcode

    1. Dim SER_REQ_FTP As FtpWebRequest = DirectCast(WebRequest.Create(ftpdir), FtpWebRequest)
    Die Instanz von SER_REQ_FTP solltest Du nach Beendigung Close()n und bei erneutem Zugriff wieder neu instanziieren.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

Facebook
Telefonspende