的FtpWebRequest計時器錯誤

Question

我試着做的FtpWebRequest的計時器，但我得到TextBox1.Text = reader.ReadToEnd

Cannot access a disposed object. 
Object name: 'System.Net.Sockets.NetworkStream'. 

這個錯誤你能幫忙嗎？

感謝

Public Class Form1 

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 

    End Sub 

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick 

     Timer1.Stop() 

     Dim request As FtpWebRequest = CType(WebRequest.Create(""), FtpWebRequest) 
     request.Method = WebRequestMethods.Ftp.ListDirectoryDetails 

     request.Credentials = New NetworkCredential("", "") 
     Dim response As FtpWebResponse = CType(request.GetResponse(), FtpWebResponse) 

     Dim ResponseStream As Stream = response.GetResponseStream() 
     Dim reader As New StreamReader(ResponseStream) 

     'Console.Write(reader.ReadToEnd) 
     'MessageBox.Show("Directory List Complete, status {0}", response.StatusDescription) 


     'MessageBox.Show(reader.ReadToEnd) 
     'MessageBox.Show(reader.ReadToEnd) 

     TextBox1.Text = reader.ReadToEnd 
     TextBox1.Text = vbNewLine 
     TextBox1.Text = vbNewLine 

     ResponseStream.Close() 
     reader.Close() 

     response.Close() 






     reader.Close() 
     response.Close() 


     Timer1.Start() 

    End Sub 
End Class 

Answer 1

我不知道你的目標準確，爲什麼你需要一個計時器。

但我想給你給你的編碼實踐提出了一些建議：

你不應該接近（處理）兩次您的視頻流。使用Using聲明可獲得更清晰的代碼和 可讀代碼。它也有助於儘早釋放資源，甚至引發異常。

Public Class Form1  

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load  

    End Sub  

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick  

     Timer1.Stop()  

     Dim request As FtpWebRequest = CType(WebRequest.Create(""), FtpWebRequest) 
     request.Method = WebRequestMethods.Ftp.ListDirectoryDetails 

     request.Credentials = New NetworkCredential("", "") 
     Using response As FtpWebResponse = CType(request.GetResponse(), FtpWebResponse) 

      Using responseStream As Stream = response.GetResponseStream() 
       Using reader As New StreamReader(responseStream) 


        TextBox1.Text = reader.ReadToEnd 
        TextBox1.Text += vbNewLine 
        TextBox1.Text += vbNewLine 
        ' Use the + for appending (set the textbox to multiline) 

       End Using 

      End Using 

     End Using  

     Timer1.Start()  

    End Sub  
End Class