[VB.NET] Threading : pourquoi mes données ne sont pas sauvées ?

Version imprimable

Bonjour,
J'ai un problème de thread qui après son execution les variables qu'il a modifié reviennent à leur valeur d'origine!

mon code de test

dans un module:

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
 
Imports System.Threading
Module Test
    Private Structure mytab
        Public filename As String
        Public width As Integer
        Public height As Integer
        Public bmp As Bitmap
        Public Sub load()
            bmp = New Bitmap(filename)
            width = bmp.Width
            height = bmp.Height
            filename = "pouet a pouet"
            MsgBox("dans le thread: H:" & height & ", W:" & width & ", File:" & filename)
        End Sub
    End Structure
 
    Public Structure Prout
        Private tab() As mytab
        Private Inc As Integer
 
        Public Sub Add(ByVal filename As String)
            If tab Is Nothing Then
                ReDim tab(0)
            Else
                ReDim Preserve tab(Inc)
            End If
            tab(Inc).filename = filename
            Dim mythread As Thread = New Thread(AddressOf tab(Inc).load)
            mythread.Start()
            Do While mythread.ThreadState <> ThreadState.Stopped
            Loop
            MsgBox("Hors du thread: H:" & tab(Inc).height & " W:" & tab(Inc).width & " File:" & tab(Inc).filename)
            Inc += 1
        End Sub
 
    End Structure
 
    Public Pouet As Prout
End Module

dans le formulaire:

Code:

1
2
3
4
5
6
Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Pouet.Add("E:\ressources\back.jpg")
    End Sub
End Class

Les 2 msgbox affiches des données differente :?

08/09/2006, 17h13
Mose

Normal, c'est une structure.
C'est un ValueType.
Donc son passage en paramètre est par recopie, et pas par référence.

La structure que tu utilise dans ton thread est une copie de celle que tu as créé en dehors :)
Utilise une classe.
08/09/2006, 17h56
ShadowTzu

malheureusement je veux garder mes données dans une structure.
08/09/2006, 18h01
Mose

C'est malheureux effectivement.
Je ne peux pas t'aider, je ne parle pas VB. En C# il y a un moyen de forcer le passage par référence. C'est pas très conseillé, mais c'est possible, avec le mot clef 'ref'.

En VB.Net, pour forcer le passage par référence, il faut utiliser le mot clé ByRef

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Class RefExample
    Shared Sub Method(ByRef i As Integer)
        i = 44
    End Sub
 
    Shared Sub Main()
        Dim val As Integer = 0
        ' ici val vaut 0
        Method(val)
        ' ici val vaut 44 (il vaudrait 0 sans le passage par référence)
    End Sub
End Class

08/09/2006, 23h23
ShadowTzu

on ne peut pas utiliser d'argument dans un thread, le byref ne sert donc ici a rien.

Citation:

Envoyé par ShadowTzu

on ne peut pas utiliser d'argument dans un thread, le byref ne sert donc ici a rien.

Si si on peut !!, il faut utiliser le delegate ParameterizedStartThread , mais il n'es pas possible de faire passer des objets par references.

Le probleme dans ton cas n'est pas dû à un passage de parametre par reference ou par copie mais plutot dans la maniere avec laquelle tu creer le Thread. En utilisant une methode dans une structure comme delegate de ton thread, le thread dans son contexte va creer une copie de ses variables et donc ne pas pourra pas mettre à jours ces variables comme tu l'as voulu, d'ailleurs il faut que je revoit pourquoi c'est un truc que je connais c'est tout.

Voila ce que je te propose pour te montrer comment il faut faire, ensuite c'est à toi de restructerer tes structures et classes :

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
 
    Public Structure mytab
        Public filename As String
        Public width As Integer
        Public height As Integer
        Public bmp As Bitmap
    End Structure
 
    Public Sub load(ByVal o As Object)
        Dim filename As String = CType(o, String)
        Pouet.tab(Pouet.Inc).filename = filename
        Pouet.tab(Pouet.Inc).bmp = New Bitmap(filename)
        Pouet.tab(Pouet.Inc).width = Pouet.tab(Pouet.Inc).bmp.Width
        Pouet.tab(Pouet.Inc).height = Pouet.tab(Pouet.Inc).bmp.Height
        Pouet.tab(Pouet.Inc).filename = "pouet a pouet"
        Console.WriteLine("dans le thread: H:" & Pouet.tab(Pouet.Inc).height & ", W:" & Pouet.tab(Pouet.Inc).width & ", File:" & Pouet.tab(Pouet.Inc).filename)
    End Sub
 
    Public Structure Prout
        Public tab() As mytab
        Public Inc As Integer
 
        Public Sub Add(ByVal filename As String)
            If tab Is Nothing Then
                ReDim tab(0)
            Else
                ReDim Preserve tab(Inc)
            End If
            Dim operation As New ParameterizedThreadStart(AddressOf load)
 
            Dim mythread As Thread = New Thread(operation)
 
            mythread.Start(filename)
 
            Do While mythread.ThreadState <> ThreadState.Stopped
            Loop
            Console.WriteLine("Hors du thread: H:" & tab(Inc).height & " W:" & tab(Inc).width & " File:" & tab(Inc).filename)
            Inc += 1
        End Sub
 
    End Structure

Il te reste à gerer les concurrences d'accees sur l'objet Pouet.

22/09/2006, 01h28
ShadowTzu

Merci! L'utilisation de ParameterizedThreadStart m'a permis de régler mon problème ;)