Я использую функцию загрузки файла через веб-запрос. Но у меня ошибка для больших файлов в медленной сети. Поэтому я думаю, что, может быть, буфер или что-то мне поможет
Мой код
Private Shared Function GetFileUploadResponse(ByVal fileToUpload As String, ByVal accessToken As String, ByVal uploadUrl As String) As UploadResponse
Dim client = New WebClient()
client.Headers.Add("Authorization", "OAuth " & accessToken)
Dim responseBytes = client.UploadFile(uploadUrl, fileToUpload)
Dim responseString = Encoding.UTF8.GetString(responseBytes)
Dim response = JsonConvert.DeserializeObject(Of UploadResponse)(responseString)
Return response
End Function
при попытке загрузить файлы размером более 100 МБ ошибка прервана.
Я нашел этот код, но это для FTP. Я использую обычную веб-загрузку. Я пытаюсь изменить свой код, но выдает ошибку при каждой попытке
Dim request As FtpWebRequest =
WebRequest.Create("ftp://ftp.example.com/remote/path/file.zip")
request.Credentials = New NetworkCredential("username", "password")
request.Method = WebRequestMethods.Ftp.UploadFile
Using fileStream As Stream = File.OpenRead("C:\local\path\file.zip"),
ftpStream As Stream = request.GetRequestStream()
Dim read As Integer
Do
Dim buffer() As Byte = New Byte(10240) {}
read = fileStream.Read(buffer, 0, buffer.Length)
If read > 0 Then
ftpStream.Write(buffer, 0, read)
Console.WriteLine("Uploaded {0} bytes", fileStream.Position)
End If
Loop While read > 0
End Using