Sto provando a gestire l'upload di un file, il file pesa circa 100MB quindi ci vorrà parecchio...
Per gestire il blocco dell'applicazione fino all'invio del file ho così provato:
codice:
Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
Try
Dim clsrequest As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(percorso host), System.Net.FtpWebRequest)
clsrequest.Credentials = New System.Net.NetworkCredential("id", "passw")
clsrequest.Method = System.Net.WebRequestMethods.Ftp.UploadFile
Dim screenIdid() As Byte = System.IO.File.ReadAllBytes("file da inviare")
Dim clsstream As System.IO.Stream = clsrequest.GetRequestStream()
clsstream.Write(screenIdid, 0, screenIdid.Length)
clsstream.Close()
clsstream.Dispose()
'__________________
Form1.TextBox1.Text = "secret"
Catch
MsgBox("Error")
End Try
End Sub
Private Sub BackgroundWorker1_RunWorkerCompleted(ByVal sender As System.Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles BackgroundWorker1.RunWorkerCompleted
Msgbox("Done!!!)
End Sub
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
BackgroundWorker1.RunWorkerAsync()
End Sub
Non funziona l'invio del file... funzionava prima che mettessi il Backgroundworker...
Praticamente non accade nulla