Alka ha scritto:
Giorgio ha scritto:
"Connessione sottostante chiusa: Errore imprevisto durante un'operazione di ricezione"
Non riesco a capire il motivo, qualche suggerimento?
Visto che usi la versione "Async" del metodo, il tuo programma rimane in attesa o controlla il termine dell'operazione in qualche modo?
si controlla il termine dell'operazione con il seguente codice:
AddHandler misurate.DownloadProgressChanged, AddressOf ShowDownloadProgressMis
AddHandler misurate.DownloadFileCompleted, AddressOf OnDownloadCompleteMis
Private Sub OnDownloadCompleteMis(ByVal sender As Object, ByVal e As AsyncCompletedEventArgs)
If Not e.Cancelled AndAlso e.Error Is Nothing Then
Dim CartArchDIS As String
Dim readText() As String = File.ReadAllLines(Application.StartupPath & "\Preferenze.tfm")
CartArchDIS = readText(1)
ZipFile.ExtractToDirectory(CartArchDIS & "dist.zip", CartArchDIS)
My.Computer.FileSystem.DeleteFile(CartArchDIS & "dist.zip", FileIO.UIOption.OnlyErrorDialogs, FileIO.RecycleOption.DeletePermanently)
Verifica_date_archivi()
AggiornaDateTAFMis(dataTAF, dataMis, sigla, nomeprov)
Else
MsgBox(e.Error.Message, MsgBoxStyle.Critical, "Download archivi Misurate")
BtuEsci.Enabled = True
End If
End Sub
Private Sub ShowDownloadProgressMis(ByVal sender As Object, ByVal e As DownloadProgressChangedEventArgs)
ProgressBarMis.Value = e.ProgressPercentage
LblPerMis.Text = e.ProgressPercentage & "%"
Dim totbyte = e.TotalBytesToReceive
End Sub