Aide sur Multi-Threading

Version imprimable

Bonjour,

Je viens chercher un peu d'aide, car je ne trouve pas de solution à mon problème. J'espère que vous pourrez m'aider ;)

Alors voilà, j'utilise du code qui me permet de récupérer un fichier (openfiledialog), et ensuite je copie ce dernier vers une destination. Le fichier peut faire quelques Ko comme quelques Go. Donc, pendant cette copie, l'appli se freeze, normal.

Le problème se trouve au niveau d'un form que je souhaite afficher, avec une animation, le temps que le fichier se copie.

Cependant, je ne trouve pas de solution car un backgroundworker s'exécute et se stop, et je n'ai pas trouvé de moyen pour lui dire d'attendre que la copie soit terminée. J'ai cherché sur internet, et j'ai trouvé sur msdn un bout de code permettant de créer un thread séparé, mais là, c'est la galère car je ne sais pas m'en servir, et je ne trouve pas d'explications :(

J'ai du coup essayé de mettre mon code de copie de fichier dans le backgroundworker, au lieu d'y mettre le form pour patienter ... et là, c'est le drame également car j'ai des erreurs lorsque je tente d'accéder à des textbox ou autre de mon thread principal, et idem, j'ai beau chercher, je ne parviens pas à les résoudre. Une histoire de SingleThreadApartment, un truc du genre ... :calim2::calim2:

Bref voici le code actuel :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
 Private Sub pic_add_MouseUp(sender As Object, e As MouseEventArgs) Handles pic_add.MouseUp
 
        'Lorsque l'on relâche le clic sur le bouton
        pic_add.Image = My.Resources.Add_norm
        My.Computer.Audio.Play(My.Resources.sound_clic, AudioPlayMode.Background)
 
        'On ouvre la openfiles dialogbox si une console est sélectionnée
        If cmb_console.SelectedIndex <> -1 Then
 
            Using _ofd As New OpenFileDialog
                With _ofd
                    .CheckFileExists = True
                    .CheckPathExists = True
                    .InitialDirectory = "C:\"
                    .Multiselect = True
                    .RestoreDirectory = True
                    If cmb_console.SelectedIndex = 0 Then
                        .DefaultExt = ".a78"
                        .Filter = "Fichier Rom ATARI 7800 (*.a78)|*.a78"
                        .Title = "Ajouter une Rom pour ATARI 7800"
                        cheminconsole = chemin + "\ROMS\ATARI7800\"
 
                        (...)
 
                    End If
 
                    If .ShowDialog() = DialogResult.OK Then
 
                        'On affiche la fenêtre patienter
                        Patienter.Show()
 
                        'On lit les fichiers
                        Dim fichier As String
 
                        For Each fichier In .FileNames
                            'On ajoute les fichiers au répertoire de roms de la console choisie
                            Try
 
                                File.Copy(fichier, cheminconsole & System.IO.Path.GetFileName(fichier), True)
 
                                lst_roms.Items.Clear()
 
                                Dim files = My.Computer.FileSystem.GetFiles(cheminconsole, FileIO.SearchOption.SearchAllSubDirectories, "*.*")
 
                                For Each rom As String In files
                                    resultat = IO.Path.GetFileName(rom)
                                    lst_roms.Items.Add(resultat)
                                Next
 
                            Catch ex As Exception
 
                                ' On gère un éventuel problème
                                MessageBox.Show("Une erreur est survenue lors de l'ajout. Le message est :" & vbCrLf & vbCrLf & ex.Message)
 
                            End Try
 
                        Next fichier
 
                    End If
 
                End With
 
            End Using
 
            Patienter.Close()
 
 
        ElseIf cmb_console.SelectedIndex = -1 Then
            MsgBox("Veuillez d'abord sélectionner une console.", vbOKOnly + vbExclamation, "Ajouter un fichier rom")
        End If
 
    End Sub

Voilà le code complet du bouton, avec la copie de fichier intégrée. Donc dans l'état le form "Patienter" s'affiche mais freeze également, et donc impossible d'y mettre une animation (même thread que la procédure de copie).

Donc l'objectif, pour être clair : réussir à trouver un moyen pour que la copie du fichier sélectionné se fasse en arrière-plan, pendant que le form "Patienter" s'affiche avec une animation, et que ce dernier se ferme bien dès la fin de la copie du fichier :roll:

Merci d'avance pour ceux qui se pencheront sur ce problème ! :P

--
Shennong

J'espère que ça pourra te dépanner. C'est ce que j'ai sous la main. Sinon il y a les Task selon ta version du FrameWork .NET

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
      Dim traitementThread As Thread = New Thread(
                New ThreadStart(Sub()
 
                                    Dim EnvoieMessage As Action(Of Integer, Integer, String) = Sub(a, z, e)
                                                                                                   Invoke(New MethodInvoker(Sub() updateCompteur(a, z, e)))
                                                                                               End Sub
 
                                    'do something
 
 
'Appelle envoieMessage pour afficher quelque chose sur le form
 
                                    Invoke(New MethodInvoker(Sub() done(INST.Traitement._rapport))) 'fin de traitement done()
                                End Sub))
 
            traitementThread.SetApartmentState(ApartmentState.MTA)
            traitementThread.IsBackground = True
            traitementThread.Start()

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Public Sub updateCompteur(ByVal pTraite As Integer, Optional ByVal pTotal As Integer = -1, Optional ByVal pMessage As String = "")
        msgLog(pMessage)
        spinner.Visible = True
        If pTotal <> -1 Then lbTotal.Text = pTotal.ToString
        If pMessage <> "" Then lbMessage.Text = pMessage
 
        If pTraite <> -1 Then
            lbSlash.Text = "/"
            lbtraite.Text = pTraite.ToString
        End If
 
        '    Me.Refresh()
    End Sub

28/04/2016, 16h06
J@ckHerror

Bonjour,

Je passe ici rapidement, mais je dirais que tu devrais aller voir du coté de l'async/await, le but de l'asynchronisme étant justement de ne pas bloquer une interface en attendant le retour d'une méthode.
Donc pour faire simple tu passes en async ta méthode de téléchargement du fichier et tu l'await lors de l'appel à cette méthode.
Renseigne toi avec :google: et je répondrais à tes questions (promis avec plus de détails :oops:)

[EDIT] le framework nous fournit une méthode de copie asynchrone toute faite => steam.CopyToAsync. Utilise la à la place de File.Copy ... et ton interface ne bloquera plus et si tu veux afficher un gif ou un truc qui tourne tu n'auras plus de problème.

J@ck.
28/04/2016, 18h59
Shennong

Merci mille fois J@ckHerror ! et merci à toi également myNameIsFlo !

J'ai essayé directement la méthode de J@ck, et ça marche du tonnerre ! :)

Effectivement, c'est simple à mettre en oeuvre et ça permet d'éviter le freeze dans l'appli. J'avais jamais entendu parler de cette façon de faire, l'avais-tu déjà utilisée ?

C'est simple, rapide et efficace ... j'adhère !!! :)

Merci encore pour votre aide précieuse, je vais pouvoir avancer dans mon projet !

Bonne fin de journée à vous les amis :)

--
Shennong
29/04/2016, 09h11
J@ckHerror

Bonjour,

:merci:

Je l'utilise tous les jours pour tout ce qui est accès à des ressources que se soit accès fichier ou bdd.
C'est en effet relativement simple, si tu veux en saisir toutes les subtilités tu peux aller voir l’excellent blog d'olivier Dahan.
Il a toute une série sur Task.

Bon code,
J@ck.
03/05/2016, 08h40
IL-MAFIOSO

Bonjour à tous,

Sujet intéressant ....
Est-ce qu'une âme charitable pourrait me donner un exemple pour copier un fichier. La doc msdn donne un exemple pour le contenu d'un dossier complet.
En fait, j'ai 5 fichiers précis à copier d'un dossier A vers un dossier B.

Merci d'avance
03/05/2016, 12h16
J@ckHerror

Bonjour,

Tout est dans ce lien de la msdn.
Et franchement je suis sur qu'en lisant le code en bas de page tu arriveras à copier uniquement tes 5 fichiers connus à l'avance puisque l'exemple montre une copie certes d'un dossier mais réalisée fichier par fichier.

Bon code
J@ck.
03/05/2016, 13h24
IL-MAFIOSO
Salut,

Oui j'ai regardé...
Actuellement, j'utilise :
Code:

1 2 File.copy(mondossier & fichier1, mondossiersauvegarde & fichier1, overwrite:=True) File.copy(mondossier & fichier2, mondossiersauvegarde & fichier2, overwrite:=True)
En tout pour 8 fichiers. Pendant ce temps, mon application est bloquée.
C'est pour cela que ce topic m'intéresse.
Comment faire pour faire une boucle pour mes 8 fichiers ? Sachant que j'écrase l'ancien sans demander de confirmation

@IL-MAFIOSO
Je suis dans un bon jour, mais je reste persuadé que tu ne fais pas vraiment d'effort...................................:weird:
Déjà as tu lu de la doc sur l'asynchronisme ? les liens que j'ai donné ? je doute du fait que tu es lu la msdn car le code que je vais te donner est équivalent à celui de la msdn à 1,5 lignes près, on pourrait presque compter les caractères qui changent... donner du code tout près est hors de mes principes et visiblement ce forum à le même avis que moi, pour développer il faut réfléchir et copier du code n'aide personne....

Bref c'est mon anniversaire du coup c'est cadeau
Code:

1 2 3 4 5 6 7 8 9 10 11 12 List<string> lstPath = new List<string>(){ filePath1,filePath2, ... }; foreach (string filename in lstPath ) { using (FileStream SourceStream = File.Open(filename, FileMode.Open)) { using (FileStream DestinationStream = File.Create(EndDirectory + filename.Substring(filename.LastIndexOf('\\')))) { await SourceStream.CopyToAsync(DestinationStream); } } }
Je te laisse reconstruire les path vers tes fichiers ... d'ailleurs il existe une fonction pas mal pour ça que tu ne semble pas utiliser, Path.Combine(...,...)

J@ck.

03/05/2016, 14h04
IL-MAFIOSO

Re J@ckHerror,

Oui concernant les paths, tu as raison. La doc msdn est immense et le vocabulaire est très particulier.
Pour l'instant je définissais mon dossier comme une Constante en string. Je ne savais même pas que ce que tu m'as mis en lien existait.
Merci déjà pour cela
Concernant tes liens, j'ai aussi jeté un oeil sur le blog. Pas évident une fois de plus pour moi ....

Merci aussi pour le petit bout de code adapté pour mon exemple. Crois moi quand je viens ici c'est que vraiment je tourne en rond.
Y a des choses que j'arrive à faire et d'autres pas. Je me sers de tout support qui me permet de comprendre les choses avec des mots simples.
Les cours vbnet disponibles ici me permettent de comprendre des choses simples car les exemples sont très simples et je m'en sers plus ou moins.

J'ai renoncé à certaines choses car je n'y arrive pas (du fait de mon niveau en programmation) et je ne viens pas systématiquement demander de l'aide....
Un exemple : faire une progressbar d'attente qui va de droite à gauche. Ben malgré tous mes essais, çà marche pas. la barre ne défile pas ..
Même en regardant ici : http://plasserre.developpez.com/cour...forms5#LVIII-R
Donc j'ai enlevé cette barre de progression et simplement mis un form "Veuillez patienter".
J'ai ouvert un autre topic concernant la gestion des champs prévus pour des dates qui sont "vides". Crois-moi, j'ai cherché et cherché et n'y suis toujours pas arrivé.

Je vais regarder ton code et essayer de comprendre ce qui se passe. Je n'aime pas faire du simple copier/coller. Comprendre ce qui se passe me permettra d'avancer et d'aller plus loin en vbnet.
Sincèrement, encore une fois merci et joyeux anniversaire.

Voici une version en VB qui sera un peu plus juste.
L'idée c'est de créer une liste qui contient le nom de tes fichiers, puis de la parcourir fichier par fichier pour les copier l'un après l'autre. Pour la copie on utilise une méthode asynchrone et donc la copie n'occupe pas le thread principal, await permettant d'attendre que la copie soit terminer pour reprendre l’exécution de la boucle, quand on dit attendre ce n'est justement pas vraiment le cas puisque en faite le programme quittera l’exécution de la boucle, donc en faite on attend pas mais on sort pour revenir quand tout sera fini.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Dim lstPath As New List(Of String) lstPath.Add(fichier1) lstPath.Add(fichier2) ... For Each filename As String In lstPath Using SourceStream As FileStream = File.Open(Path.Combine(mondossier , filename ), FileMode.Open) Using DestinationStream As FileStream = File.Create(Path.Combine(mondossiersauvegarde , filename) )) Await SourceStream.CopyToAsync(DestinationStream) End Using End Using Next
Je vais aller voir ton billet sur les dates null...

Et garde espoir car comme le dit la citation => Si ton labeur est dur, et si tes résultats sont minces, rappelle toi qu'un jour le grand chêne a été un gland comme toi :D

De plus hésite pas à lire et relire les séries de billet d'olivier Dahan et de faire ces exemples dans LinQPad ou dans un petit programme de test dans visual studio, de faire du pas à pas en debug pour suivre le chemin d’exécution, etc...

J@ck.

03/05/2016, 14h59
IL-MAFIOSO
Re,

Bon ben tu vois même avec ton bout de code en C++, j'ai essayé en adaptant celui de msdn en Vbnet et çà va pas.
J'ai également importé ce qu'il fallait :
Code:

1 2 Imports System.threading.Tasks Imports System.IO.Stream
Sachant que j'utilise le framework 4.O et qu’apparemment çà marche qu'à partir du 4.5 ...
Par exemple il ne connait pas "await", etc .....

Edit 1 : nos messages se sont croisés .... Désolé. Comme dit, j'utilise le framework 4.0 . J'ai donc deux erreurs :

'Await' n'est pas déclaré. Il peut être inacessible en raison de son niveau de protection
'CopyToAsync n'est pas un membre de 'System.IO.FileStream'
03/05/2016, 15h47
J@ckHerror

C++ :weird: j'ai jamais écrit de c++ mais du vb.net puisqu'il me semble que c'est ce que tu écris, sinon je fais du c# dans mon quotidien.

En dessous de 4.5, en effet, tu ne pourras pas jouir des plaisir de l'asynchronisme par le biais de async/await. Tu pourrais le faire avec un backgroundworker ou des thread mais ce sera plus complexe ...
Rien ne t’empêche de passer en 4.5 sauf si tu as encore des utilisateurs sous XP :aie: ...

J@ck.
03/05/2016, 17h44
IL-MAFIOSO

Re,

En fait au début je n'avais vu que ton message de 13h46 en te répondant :aie: Puis je l'ai édité car j'ai vu que tu m'avais fait autre chose ;)
Les PC qui utilisent ma petite application sont en 4.0 sous Windows 7 et pour l'instant, upgrader le framework n'est pas prévu par les informaticiens ....

Je garde ce topic au chaud pour y revenir dessus dès que ce sera possible. Merci déjà pour ton aide.