В общем имеется код, который скачивает файл с интернета сначала в память, а потом в конце кладёт его в папку. После того как он его скачал все функции дальше работают нормально.
Код:
' Получить асинхронно
If WaitForDownload = False Then
thr = New Threading.Thread(AddressOf AsyncDownload)
thr.Start(myHttpWebResponse.GetResponseStream)
' Получить синхронно
Else
FileDownloading = True
Dim myStreamReader As New IO.BinaryReader(myHttpWebResponse.GetResponseStream)
Dim all As New System.Collections.Generic.List(Of Byte)
Do
' Собственно получения порции данных
Dim bts() As Byte = myStreamReader.ReadBytes(BufferSize)
If bts.Length = 0 Then Exit Do
all.AddRange(bts)
' Вызов события Идет прием данных
ReceiveProgressInvoke(all.Count)
Loop
DownloadSuccess(all)
End If
End Sub
' Функция реализующая поток, который скачивайт файл порциями BufferSize
Sub AsyncDownload(ByVal stream As Object)
FileDownloading = True
Dim myStreamReader As New IO.BinaryReader(stream)
Dim all As New System.Collections.Generic.List(Of Byte)
Do
' Всякие Прерывания и Паузы потока
If FileDownloading = False Then DownloadCancelledInvoke() : myStreamReader.Close() : Exit Sub
While DownloadPause
System.Windows.Forms.Application.DoEvents()
If FileDownloading = False Then DownloadCancelledInvoke() : myStreamReader.Close() : Exit Sub
End While
' Собственно получения порции данных
Dim bts() As Byte = myStreamReader.ReadBytes(BufferSize)
If bts.Length = 0 Then Exit Do
all.AddRange(bts)
' Вызов события Идет прием данных
ReceiveProgressInvoke(all.Count)
Loop
DownloadSuccess(all)
End Sub
Delegate Sub dDownloadSuccess(ByVal lst As System.Collections.Generic.List(Of Byte))
Sub DownloadSuccess(ByVal lst As System.Collections.Generic.List(Of Byte))
If Me.InvokeRequired Then
Dim d As New dDownloadSuccess(AddressOf DownloadSuccess)
Me.Invoke(d, New Object() {lst})
Else
' Собственно завершение загрузки
IO.File.WriteAllBytes(FlName, lst.ToArray)
ResultQuery = FlName
' Снимаем синхблок
FileDownloading = False
' Вызов события ПолученОтвет
RaiseEvent ReceivedResponse(Me, New EventArgs)
End If
End Sub
Есть ещё один код, тоже самое скачивает файл с интернета, но не в память, а сразу кладёт его в папку и качает, проблема этого кода в том что после того как он скачал не выполняются следующие операции.
Пишет ошибку.
Произошла непредвиденная ошибка. Невозможно обратится к файлу.
Проверьте правильность написания пути Ошибка: Недопустимый вызов или аргумент процедуры.
Код:
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Открыть файл
' Поток в файл (объявление)
Dim fstr As New System.IO.FileStream(FlName, System.IO.FileMode.Create)
Dim dnl_size As Long = 0
'Открытие потока в файл
'fstr = System.IO.File.OpenWrite(FlName)
' Получить асинхронно
If WaitForDownload = False Then
fstr.Close()
thr = New Threading.Thread(AddressOf AsyncDownload)
thr.Start(myHttpWebResponse.GetResponseStream)
' Получить синхронно
Else
FileDownloading = True
Dim myStreamReader As New IO.BinaryReader(myHttpWebResponse.GetResponseStream)
Dim all As New System.Collections.Generic.List(Of Byte)
Do
' Собственно получения порции данных
Dim bts() As Byte = myStreamReader.ReadBytes(BufferSize)
If bts.Length = 0 Then Exit Do
fstr.Seek(0, System.IO.SeekOrigin.End)
For Each bytevalue As Byte In bts
fstr.WriteByte(bytevalue)
fstr.Seek(0, System.IO.SeekOrigin.End)
dnl_size = dnl_size + 1
Next
'all.AddRange(bts)
' Вызов события Идет прием данных
ReceiveProgressInvoke(dnl_size)
Loop
DownloadSuccess2()
fstr.Close()
End If
End Sub
' Функция реализующая поток, который скачивайт файл порциями BufferSize
Sub AsyncDownload(ByVal stream As Object)
FileDownloading = True
Dim myStreamReader As New IO.BinaryReader(stream)
Dim all As New System.Collections.Generic.List(Of Byte)
Dim fstr As New System.IO.FileStream(FlName, System.IO.FileMode.Create)
Dim dnl_size As Long = 0
Do
' Всякие Прерывания и Паузы потока
If FileDownloading = False Then DownloadCancelledInvoke() : myStreamReader.Close() : Exit Sub
While DownloadPause
System.Windows.Forms.Application.DoEvents()
If FileDownloading = False Then DownloadCancelledInvoke() : myStreamReader.Close() : Exit Sub
End While
' Собственно получения порции данных
Dim bts() As Byte = myStreamReader.ReadBytes(BufferSize)
If bts.Length = 0 Then Exit Do
fstr.Seek(0, System.IO.SeekOrigin.End)
For Each bytevalue As Byte In bts
fstr.WriteByte(bytevalue)
fstr.Seek(0, System.IO.SeekOrigin.End)
dnl_size = dnl_size + 1
Next
'all.AddRange(bts)
' Вызов события Идет прием данных
ReceiveProgressInvoke(dnl_size)
Loop
DownloadSuccess2()
fstr.Close()
End Sub '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Delegate Sub dDownloadSuccess(ByVal lst As System.Collections.Generic.List(Of Byte))
Sub DownloadSuccess2()
' Собственно завершение загрузки
ResultQuery = FlName
' Снимаем синхблок
FileDownloading = False
' Вызов события ПолученОтвет
RaiseEvent ReceivedResponse(Me, New EventArgs)
End Sub
Сам в этом не сильно разбираюсь.
