comment utiliser Les threads

**alaa_85** · 04/06/2007, 11h55

Salut à tous le monde,
Dans mon projet j'ai besoin d'afficher des videos simultanément,et j'ai une seul Methode avec un parametre d'entrer qui fait la lecture de ces vidéos là.
S'il veur plait comment je doit faire pour lire toutes les vidéos en meme temps en utilisant les Threads.
Merci de votre aide.

**HULK** · 04/06/2007, 14h06

http://msdn.microsoft.com/library/fr...isualbasic.asp

**Aspic** · 04/06/2007, 14h53

Très simple en .NET 2005, il existe le controle BackGroundWorder (en gros travailleur d'arrière plan) qui s'execute dans un thread à part !

Donc si tu as 3 videos tu utilises 3 BDW

**alaa_85** · 04/06/2007, 19h39

Comment utiliser plusieurs back ground BackgroundWorker ?

**Aspic** · 04/06/2007, 20h13

tu va dans ta boite à outils et puis tu selectionnes 3 BGW. En suite tu va dans le code et tu selectionnes les evenements correspondant à tes BGW : "Do_Works" "Progress" "Finish" en gros

Voila

**alaa_85** · 04/06/2007, 20h20

Mais je veut les generer automatiquement car il se peut qu'il y aura plusieurs Vidéos à la fois.
Merci.

**Aspic** · 04/06/2007, 21h33

Si tu préféres tu peux les créer avec le code !

**Aspic** · 04/06/2007, 21h42

Vu ton double post je vais t'aider :

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
 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim BDW As New System.ComponentModel.BackgroundWorker
        AddHandler bgw.DoWork, AddressOf Traitement
        AddHandler bgw.ProgressChanged, AddressOf Progression
        AddHandler bgw.RunWorkerCompleted, AddressOf Termine
    End Sub
    Private Sub Traitement(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs)
        'traitement à executer en arrière plan !
    End Sub
    Private Sub Progression(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs)
        'se declanche pendant la prgression du traitement
    End Sub
    Private Sub Termine(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs)
        'ici procedure quand le travail est terminé
    End Sub

**pofet** · 05/06/2007, 08h56

En quoi le BackGroundWorker remplace-t-il les threads ?
Peut-on les utiliser avec les mêmes objectifs ? L'un est-il plus léger que l'autre ? Y a-t-il un partage des données avec le BackGroundWorker ?

**Pilloutou** · 05/06/2007, 10h43

Bonjour,

tu aurais dû créer un autre post pour ce message.
Néanmoins le Backgroundworker ne remplace pas les threads, ils les utilisent. C'est un composant qui te permet d'executer des tâches en arrière plan et qui facilitent la vie.

Bye.

**alaa_85** · 05/06/2007, 11h27

J'ai pas reussi à l'integrer dans mon projet, voilà je vous montre la classe qui fait la lecture des Vidéos :
j'ai travailler avec ParameterizedThreadStart il passe la lecture mais de maniere en ordre.

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
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
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
Imports System.io
Imports System.Xml
Imports System.Threading
Imports System.Windows.Forms
Imports System.ComponentModel
 
Public Class Media
 
    Dim BinPath As String = Application.StartupPath & "\" 'le chemin vers le repertoire Bin
    Dim c_planning As Planning
    Dim startApp As DateTime
    Dim theFile As FileStream
    Dim writer As StreamWriter
    Dim opZone As New ParameterizedThreadStart(AddressOf trierBlocsWithContent)
    Private Delegate Sub MethodInvoker(ByVal oBlock As Object)
 
    ''' <summary>
    ''' Methode pour laisser les traces de debogages
    ''' </summary>
    ''' <param name="str"></param>
    ''' <remarks></remarks>
    Sub Log(ByVal str As String)
        Try
            writer.WriteLine(DateTime.Now.ToString + " : " + str)
        Catch ex As Exception
            writer.Close()
            theFile.Close()
        End Try
    End Sub
 
 
    ''' <summary>
    ''' Merthode permet de faire la Lecture des medias par Bloc
    ''' </summary>
    ''' <remarks></remarks>
    Public Sub PlayBlocWithContent()
        Dim mTimeline As TimeLine
        Dim uc As UserControl1
 
        For Each vZone As DataRowView In dv_zone
            dv_TimeLine.RowFilter = "ZoneID=" & vZone("ZoneID")
            Dim p As Point
            'creation des users controle pour chaque zone
            uc = New UserControl1
            uc.Name = "uc" & vZone("ZoneID")
            uc.Height = vZone("ZoneHieght")
            uc.Width = vZone("ZoneWidth")
            uc.Top = vZone("ZoneTop")
            uc.Left = vZone("ZoneLeft")
            p.X = vZone("ZoneLeft")
            p.Y = vZone("ZoneRight")
            uc.Location = p
            Me.Controls.Add(uc)
 
            For Each vTimeLine As DataRowView In dv_TimeLine
                mTimeline = New TimeLine
                mTimeline.TimeLineID = vTimeLine("TimeLineID")
                mTimeline.TimeLineName = vTimeLine("TimeLineName")
                mTimeline.ZoneID = vTimeLine("ZoneID")
                mTimeline.Ajouter_Bloc()
 
                Dim theThread As New Thread(opZone) 'creer pour chaque Zone un Thread
                theThread.SetApartmentState(ApartmentState.STA)
                theThread.Start(mTimeline)
            Next
        Next
    End Sub
 
    Dim d_content As DateTime = dv_Planning.Item(0).Item("PlanningStartDate")
    Dim d_bloc As DateTime = dv_Planning.Item(0).Item("PlanningStartDate")
 
    ''' <summary>
    ''' Methode permet de trie les contenus par Bloc
    ''' </summary>
    ''' <remarks></remarks>
    ''' 
    Public Sub trierBlocsWithContent(ByVal obj As Object)
        Dim vTimeline As New TimeLine
        vTimeline.TrieBloc()
        vTimeline = CType(obj, TimeLine)
 
        Log("Thread :" & Thread.CurrentThread.Name)
 
        If Me.InvokeRequired Then
            Me.Invoke(New MethodInvoker(AddressOf trierBlocsWithContent), vTimeline)
        Else
            Dim uc As UserControl1
            uc = Me.Controls("uc" & vTimeline.ZoneID.ToString())
            For i As Integer = 0 To vTimeline.Array_Bloc.Count - 1
                Dim c_bloc As Bloc = CType(vTimeline.Array_Bloc.Item(i), Bloc)
 
                If d_bloc.AddSeconds(CType(vTimeline.Array_Bloc.Item(i), Bloc).BlocDuration) >= Now Then
                    CType(vTimeline.Array_Bloc(i), Bloc).TrieContent()
                    For Each item As Content In CType(vTimeline.Array_Bloc(i), Bloc).Array_Content
                        uc.playContent(BinPath & item.MediaURL)
                        uc.SetBounds(uc.Location.X, uc.Location.Y, uc.Width, uc.Height, BoundsSpecified.All)
                        Thread.Sleep(1000)
                        d_content = d_content.AddSeconds(item.contentDuration)
                    Next
                End If
                d_bloc = d_bloc.AddSeconds(CType(vTimeline.Array_Bloc.Item(i), Bloc).BlocDuration)
            Next
        End If
    End Sub
 
    ''' <summary>
    ''' chargement de de l'application 
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub Media_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        theFile = File.Create(Application.StartupPath + "\log.txt")
        writer = New StreamWriter(theFile)
        Me.WindowState = FormWindowState.Maximized
        Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
        PlayBlocWithContent()
    End Sub
 
End Class

S'il vous plait ça fait plus que 2 jours de recherche,si vous avez quelques remarque je suis à l'ecoute.
Merci d'avance.

**Aspic** · 05/06/2007, 13h58

Envoyé par alaa_85

J'ai pas reussi à l'integrer dans mon projet

Tu n'as du regarder mon code sur les BGW...

**alaa_85** · 05/06/2007, 14h30

je l'ai fait mais ça ne repond pas à mes besoins

**Aspic** · 05/06/2007, 14h40

Envoyé par alaa_85

Salut à tous le monde,
Dans mon projet j'ai besoin d'afficher des videos simultanément,et j'ai une seul Methode avec un parametre d'entrer qui fait la lecture de ces vidéos là.
S'il veur plait comment je doit faire pour lire toutes les vidéos en meme temps en utilisant les Threads.
Merci de votre aide.

Je quote ton premier post...

Bah le BGW sauf preuve du contraire permet de gérer l'affichage de chaque video dans un thread différent sans que l'application ne se fige et plante !

Donc j'ai bien répondu à ta question non ?

**alaa_85** · 05/06/2007, 17h23

Bah le BGW sauf preuve du contraire permet de gérer l'affichage de chaque video dans un thread différent sans que l'application ne se fige et plante !

oui je suis tout à fait daccord avec toi Aspic mais le probleme ce comment l'integer dans le code ci-dessus car il y a 2 boucles imbriquer.
tu vois

**Aspic** · 05/06/2007, 17h34

Où tu vois deux boucles imbriquées ?
De plus quelle procédure veux tu mettres dans un thread apart ?

**alaa_85** · 05/06/2007, 17h47

voila la methode :

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
17
18
19
20
21
22
23
24
25
26
 Public Sub trierBlocsWithContent(ByVal obj As Object)
        Dim vTimeline As New TimeLine
        vTimeline.TrieBloc()
        vTimeline = CType(obj, TimeLine)
 
        If Me.InvokeRequired Then
            Me.Invoke(New MethodInvoker(AddressOf trierBlocsWithContent), vTimeline)
        Else
            Dim uc As UserControl1
            uc = Me.Controls("uc" & vTimeline.ZoneID.ToString())
            For i As Integer = 0 To vTimeline.Array_Bloc.Count - 1
                Dim c_bloc As Bloc = CType(vTimeline.Array_Bloc.Item(i), Bloc)
 
                If d_bloc.AddSeconds(CType(vTimeline.Array_Bloc.Item(i), Bloc).BlocDuration) >= Now Then
                    CType(vTimeline.Array_Bloc(i), Bloc).TrieContent()
                    For Each item As Content In CType(vTimeline.Array_Bloc(i), Bloc).Array_Content
                        uc.playContent(BinPath & item.MediaURL)
                        uc.SetBounds(uc.Location.X, uc.Location.Y, uc.Width, uc.Height, BoundsSpecified.All)
                        Thread.Sleep(1000) 'pause pendant la durée du media
                        d_content = d_content.AddSeconds(item.contentDuration)
                    Next
                End If
                d_bloc = d_bloc.AddSeconds(CType(vTimeline.Array_Bloc.Item(i), Bloc).BlocDuration)
            Next
        End If
    End Sub

NB:
item.MediaURL:le chemin du video.
la premier boucle c'est pour chaque zone et la 2 iemes c'est pour les video de ce zone là .
j'espére que tu m'as compris.
Merci

**Aspic** · 05/06/2007, 17h51

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
17
 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim BDW As New System.ComponentModel.BackgroundWorker
        AddHandler bgw.DoWork, AddressOf Traitement
        AddHandler bgw.ProgressChanged, AddressOf Progression
        AddHandler bgw.RunWorkerCompleted, AddressOf Termine
    End Sub
    Private Sub Traitement(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs)
        'traitement à executer en arrière plan !
        trierBlocsWithContent(Args) 'appel de ta méthode
    End Sub
    Private Sub Progression(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs)
        'se declanche pendant la prgression du traitement
    End Sub
    Private Sub Termine(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs)
        'ici procedure quand le travail est terminé
Msgbox("Traitement terminé")
    End Sub

Voila un seule BGW suffit, toute ta mèthode et les deux boucles vont etre executées dans un thread apart !