VB - 将响应另存为二进制

Question

请参阅用于将响应保存为字符串到变量resultData部分代码：

Using response As WebResponse = request.GetResponse()
Dim responseStream As IO.Stream = response.GetResponseStream()
Dim sr As New IO.StreamReader(responseStream)
resultData = sr.ReadToEnd()

它工作正常。

我有一个输出是二进制文件的情况。如何修改此代码以将响应另存为二进制ResultData变量？

提前感谢您的支持。

Answer 1

有很多方法可以做到这一点。这个，就是其中之一。(这个还可以帮助您显示进度( 但是(作为建议(监控进度，存在更好的方法，例如异步方法等。 在下面的示例中，我将向您展示如何将 e WebRequest 保存为二进制数据。 请注意，我基于您的代码和您想要的内容，但是，正如我之前所说，存在不同的更好方法。

'here the file you want to save
Dim LocalFilePath As String = "C:UsersMyUserDocumentsFolderXYZyourfileName.extension"
Using reader As IO.Stream = request.GetResponse.GetResponseStream
Using writer As IO.Stream = New IO.FileStream(LocalFilePath, IO.FileMode.OpenOrCreate, IO.FileAccess.ReadWrite)
Dim b(1024 * 2) As Byte
Dim buffer As Integer = b.Length
Do While buffer <> 0
buffer = reader.Read(b, 0, b.Length)
writer.Write(b, 0, buffer)
writer.Flush()
Loop
End Using
End Using