Discussion :

[Logiinx]

Bonjour, j'ai un backgroundworker qui upload des fichiers (images/mp3/exe) sur un ftp et je voudrais faire un bouton "Cancel upload" mais le problème est que j'ai testé de mettre ça dans le backgroundworker :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
BackgroundWorker1.WorkerSupportsCancellation = True
        If BackgroundWorker1.CancellationPending Then
            e.Cancel = True
            HuraProgressBar1.Value = 0
            Label3.text = "0%"
        End If

Et ça dans le bouton "Cancel upload" :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
If BackgroundWorker1.IsBusy Then
 
              If BackgroundWorker1.WorkerSupportsCancellation Then                
                 BackgroundWorker1.CancelAsync()
              End If
          End If

Mais ça ne marche pas donc je me suis demandé si on pouvait cancel un webrequest en plein milieu et je ne sais pas comment m'y prendre, voila mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Dim request As FtpWebRequest = DirectCast(WebRequest.Create(New Uri(fichftp & filename)), FtpWebRequest)
                request.Method = WebRequestMethods.Ftp.UploadFile
                request.Credentials = New NetworkCredential(user, pass)
                request.UseBinary = True
                request.UsePassive = False
                Dim fileStream() As Byte = System.IO.File.ReadAllBytes(fichlocal)
                Dim requestStream As System.IO.Stream = request.GetRequestStream()
                For offset As Int64 = 0 To fileStream.Length Step 1024
                    BackgroundWorker1.ReportProgress(CType(offset * HuraProgressBar1.Maximum / fileStream.Length, Integer))
                    Dim chSize As Int64 = fileStream.Length - offset
                    If chSize > 1024 Then chSize = 1024
                    requestStream.Write(fileStream, offset, chSize)
                Next
                requestStream.Close()
                requestStream.Dispose()
                Label3.Text = "0%"

Je ne suis pas là pour prendre votre solution en copier-coller et partir mais pour comprendre d'où le problème du "BackgroundWorker1.CancelAsync()" vient et/ou si on pouvait cancel directement la requête.
Merci d'avance.

[Pol63]

la méthode cancelasync ne fait rien à part setter un booléen
le backgroundworker n'est qu'une encapsulation, mais c'est à toi de coder ce qu'il faut derrière

en l'occurrence une fois qu'on a dit de cancel, il faut depuis le bgw lire la propriété cancelpending (enfin de mémoire, c'est peut etre un autre nom) et s'il est à true c'est que tu as demandé le cancel
un exit sub arrête alors ce que tu fais
bien sur il convient de tenter d'arreter ce qu'on fait proprement, rien n'urge
sur un stream dans une boucle pas de soucis particulier je pense

après sur des instructions longues et unique cette solution ne fonctionne pas, le booléen est fait pour être vérifié souvent, donc idéalement dans une boucle
mais vu que là tu as découpé au lieu de dire au framework de se débrouiller tout seul ca devrait aller

[Logiinx]

J'ai tenté de rajouter le exit sub avec le cancellationPending mais cela n'a pas marché mais j'ai trouvé ceci sur un forum :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Dim workIsCompleted As Boolean = False
    While (Not BackgroundWorker1.CancellationPending) AndAlso (Not workIsCompleted)
 
        ' Do stuff here, but incrementally so that the while loop can
        ' periodically check to see if CancelAsync has been called.
        ' Also, be sure to set workIsCompleted = True when the work is done.
        ' Otherwise, you will just spin forever until someone cancels it
        ' (Which may or may not be a bad thing, depending on your requirements)
 
    End While

J'ai donc tenté de mettre ma fonction d'upload dedans ainsi que de rajouter le "workiscompleted = true" a la fin mais je n'arrive pas a vérifier périodiquement si le CancelAsync a été appelé.
Est-ce que ça voudrait dire que je dois vérifier le cancellationPending avec ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
If BackgroundWorker1.CancellationPending = True Then
                e.Cancel = True
                HuraProgressBar1.Value = 0
                Label3.Text = "0%"
                Exit Sub
            End If

Entre tout mes étapes d'upload ou directement dans ma boucle d'upload ?