如何从流中读取字符串

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)