Discussion :

[The eye]

Bonjour,

Je me demandais si lors d'un appel de fonction "delegate" le système crée une instance à chaque fois que la fonction est appelée ou s'il repasse dans la mm instance?

Je ne sais pas si ma question est très clair dc je vais essayer de la préciser un peu :

- Soit une fonction traitement dans une classe A
- Soit une boucle dans un timer dans une classe B qui appelle de façon asynchrone la fonction A.traitement

Si la classe B rappelle A.traitement alors que A.traitement n'a pas fini le traitement du premier appel que se passe-t-il?

1 - Le deuxième appel de A.traitement essaye d'éxécuter la mm instance de A et alors tout se marche dessus
2 - A chaque appel de A.traitement le system crée une nouvelle instance de A ce qui rend chaque appel indépendant (ce qui serait mieux pour ce que je cherche à faire..)

Merci d'avance

[jab]

Le fait d'appeler une méthode ne crée pas un nouvelle objet même dans un thread.

[The eye]

mince... ça m'arrange pas ça!

Comment faire alors pour appeler 10 threads qui font la mm chose (dc qui passe dans la mm fonction) sans qu'elles se "marchent dessus"?

[jab]

Le plus simple c'est que mette un exemple de ce que tu fais car la ce n'est pas clair et on risque de te donner une mauvaise réponse.

[The eye]

ok je vais essayer de mettre le code ici mais je vais l'épurer un peu pour que ça soit le plus clair possible

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
 
Private Sub Duplikator_Timer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Duplikator_Timer.Tick
        ' Traitement Duplikator : Recherche d'un instruction à traiter
        Dim sql As String
        Dim pDtb As Data.DataTable
        If started Then
            Duplikator_Timer.Enabled = False
            sql = "SELECT TOP 1 * FROM duplicator WHERE traiter=0 and nbrexec=0"
            pDtb = cBdd.pDtb(sql)
            Application.DoEvents()
            Call Me.mMainDuplicator(pDtb, sql)
        Else
            'Recherche d'une instruction à traiter parmi les lignes que l'on a déjà essayé de traiter mais qui n'ont pas marché 
            sql = "SELECT TOP 1 * FROM duplicator WHERE traiter=0 ORDER BY nbrexec ASC"
            pDtb = cBdd.pDtb(sql)
            Application.DoEvents()
            Call Me.mMainDuplicator(pDtb, sql)
        End If
        pDtb.Dispose()
        Duplikator_Timer.Enabled = True
      End Sub
 
Private Sub mMainDuplicator(ByVal pDtb As Data.DataTable, ByVal sql As String)
 
        If pDtb.Rows.Count > 0 Then
            ' On place tout de suite le nbexec à 1 pour ne plus sélectionner cette ligne au prochain passage
            sql = "UPDATE duplicator SET nbrexec=nbrexec+1 WHERE id_duplicator=" & pDtb.Rows(0).Item("id_duplicator")
            cBdd.mExecuteNonQuery(Sql)
            For Each scrutation As ccScrutation In Me.CcMenuTable1.lstTableScrutation
                If scrutation.pTableObjet.pTypObjet = pDtb.Rows(0).Item("id_element") Then
                    Dim ta_duplicator As New mStartCommand(AddressOf scrutation.mStartCommand)
                    Dim xml As New Xml.XmlDocument
                    xml.LoadXml(pDtb.Rows(0).Item("xml").ToString)
                    ta_duplicator.BeginInvoke(xml, pDtb.Rows(0).Item("id_action"), pDtb.Rows(0).Item("id_duplicator"), Nothing, Nothing)
                End If
            Next
        End If
    End Sub