시도에서 값이 할당되지 않은 변수에 대한 경고를 방지합니다.

Question

인터넷에서 다음과 같이 일부 코드가 발견되었습니다 (약간 수정 됨).

단순히 웹 페이지의 콘텐츠를 요청합니다. 나는 단순히 Finally 잊고 try 블록에 코드를 추가 할 수 있습니다 알고

Warning 1 Variable 'srRead' is used before it has been assigned a value. A null reference exception could result at runtime. 


Warning 2 Variable 'Str' is used before it has been assigned a value. A null reference exception could result at runtime. 

:

Private Sub readWebpage(ByVal url As String) 
    Dim Str As System.IO.Stream 
    Dim srRead As System.IO.StreamReader 
    Try 
     ' make a Web request 
     Dim req As System.Net.WebRequest = System.Net.WebRequest.Create(url) 
     Dim resp As System.Net.WebResponse = req.GetResponse 
     Str = resp.GetResponseStream 
     srRead = New System.IO.StreamReader(Str) 
     ' read all the text 
     textContent.text = srRead.ReadToEnd 
    Catch ex As Exception 
     MsgBox(ex.Message, MsgBoxStyle.Critical, "Unable to download content from: " & url) 
    Finally 
     srRead.Close() 
     Str.Close() 
    End Try 
End Sub 

그러나 나는이 경고를 얻을.

다른 방법을 사용하여 경고 메시지를 표시 할 수 있습니까?

미리 감사드립니다. :)

Answer 1

GetResponseStream에 오류가 있으면 srRead가 Null 예외가 발생하여 null이 될 수 있기 때문에 경고 메시지가 표시됩니다. 이 처리하는

한 가지 방법은 또한 이블 박사 후 대신 사용 키워드 Nothing으로 객체를 사용하면됩니다 설정 제안 길을 갈 수

Private Sub readWebpage(ByVal url As String) 
     Try 
      ' make a Web request 
      Dim req As System.Net.WebRequest = System.Net.WebRequest.Create(url) 
      Dim resp As System.Net.WebResponse = req.GetResponse 
      Using Str As System.IO.Stream = resp.GetResponseStream 
       Using srRead As System.IO.StreamReader = New System.IO.StreamReader(Str) 
        textContent = srRead.ReadToEnd 
       End Using 
      End Using 


    Catch ex As Exception 
     MsgBox(ex.Message, MsgBoxStyle.Critical, "Unable to download content from: " & url) 

    End Try 
    End Sub 

자동으로 이러한 개체를 처리 할 사용하여 사용하는 것입니다 당신은 당신이 무엇을하고 있는지 알고, 기본적으로 마지막

Finally 
     If Str Is Not Nothing Then 
      Str.Close 
     End If 
     If srRead Is Not Nothing Then 
      srRead.Close 
     End If 
End Try 

Answer 2

당신은 단순히 그들에게 설정할 수 있습니다 아무것도 당신이 컴파일러에 알려거야 이런 식으로이 원하는 :)

Dim Str As System.IO.Stream = Nothing