如何從流中讀取字符串

Question

 Dim adult = webClient.DownloadString("http://googleads.g.doubleclick.net/apps/domainpark/domainpark.cgi?callback=_google_json_callback&output=js&client=ca-dp-godaddy2_xml&domain_name=" + CurrentBlog.Domain) 
     'ias.NavigateTillComplete("https://api.bodis.com/domainclassification?domain=" + CurrentBlog.Domain) 
     Dim result = "" 
     Dim url = "http://api.bodis.com/domainclassification?domain=" + CurrentBlog.Domain 
     Dim webRequest = DirectCast(System.Net.HttpWebRequest.Create(url), System.Net.HttpWebRequest) 
     Dim response = DirectCast(webRequest.GetResponse(), HttpWebResponse) 
     Dim responseStream = response.GetResponseStream 
     Dim responseString = responseStream.readAll? 'MethodAccessException doesn't exist 


     Dim responseString = responseStream.readAll? 'MethodAccessException doesn't exist 

我該如何替換Dim responseString = responseStream.readAll？

實際的命令是什麼？

Answer 1

您可以在響應流傳遞給StreamReader實例，然後使用ReadToEnd方法：

Dim adult = webClient.DownloadString("http://googleads.g.doubleclick.net/apps/domainpark/domainpark.cgi?callback=_google_json_callback&output=js&client=ca-dp-godaddy2_xml&domain_name=" + CurrentBlog.Domain) 
'ias.NavigateTillComplete("https://api.bodis.com/domainclassification?domain=" + CurrentBlog.Domain) 
Dim result = "" 
Dim url = "http://api.bodis.com/domainclassification?domain=" + CurrentBlog.Domain 
Dim webRequest = DirectCast(System.Net.HttpWebRequest.Create(url), System.Net.HttpWebRequest) 
Using Dim response = DirectCast(webRequest.GetResponse(), HttpWebResponse) 
    Using Dim responseStream = response.GetResponseStream 
     Using Dim responseReader = new StreamReader(responseStream) 
      Dim responseString = responseReader.ReadToEnd() 
     End Using 
    End Using 
End Using 

但是爲什麼用HttpWebRequest的時候，你可以直接使用一個WebClient的麻煩：

Dim adult = webClient.DownloadString("http://googleads.g.doubleclick.net/apps/domainpark/domainpark.cgi?callback=_google_json_callback&output=js&client=ca-dp-godaddy2_xml&domain_name=" + CurrentBlog.Domain) 
'ias.NavigateTillComplete("https://api.bodis.com/domainclassification?domain=" + CurrentBlog.Domain) 
Dim result = "" 
Dim url = "http://api.bodis.com/domainclassification?domain=" + CurrentBlog.Domain 
Dim responseString = webClient.DownloadString(url)