發送的HttpRequest背下來的HttpRequest（代理）

Question

我有以下代碼：

With context.Response 
    Dim req As HttpWebRequest = WebRequest.Create("http://www.Google.com/") 
    req.Proxy = Nothing 
    Dim res As HttpWebResponse = req.GetResponse() 
    Dim Stream As Stream = res.GetResponseStream 
    .OutputStream.Write(Stream, 0, Stream.Length) 
End With 

可悲的是，上面的代碼不起作用。我需要將RequestStream從context.Response中放入OutputStream中。

任何想法？

Answer 1

寫入需要一個字節數組，而您正在向它傳遞一個流。

嘗試從流中讀取並在寫回之前獲取所有數據。

首先，讀出的數據轉換成中間字節陣列（Taken from here）：

Dim bytes(Stream.Length) As Byte 
Dim numBytesToRead As Integer = s.Length 
Dim numBytesRead As Integer = 0 
Dim n As Integer 
While numBytesToRead > 0 
    ' Read may return anything from 0 to 10. 
    n = Stream.Read(bytes, numBytesRead, 10) 
    ' The end of the file is reached. 
    If n = 0 Then 
     Exit While 
    End If 
    numBytesRead += n 
    numBytesToRead -= n 
End While 
Stream.Close() 

然後將其寫入到輸出流：

.OutputStream.Write(bytes, 0, Stream.Length)