Discussion :

[apolon34]

Bonjour,

Pour un projet, j'essaie de mettre en place un mécanisme de callback asynchrone, sans succès.

L'architecture est la suivante:
- Deux interfaces définies dans une DLL activeX, publiques. IInterface et IInterfaceEvent
- Un EXE activeX qui implémente la classe IInterface et contient une instance publique de IInterfaceEvent
- Un client EXE standard qui instancie un IInterface (ok) et tente d'enregistrer le callback (erreur 98)

J'ai essayé de faire fonctionner l'exemple "Coffee2" fourni avec MSDN qui est censé implémenter le même mécanisme, et j'ai malheureusement le même résultat.
A noter que si je déplace le code de l'exe activeX directement dans l'exe standard, l'affectation fonctionne parfaitement.

Y a t'il une solution ?

[apolon34]

Pour illustrer plus précisément ce que je souhaite faire, voici un code d'exemple.
Tout d'abord, dans le module EXE activeX

L'interface IDemo:

Code :

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

1
2
3
4
5
6
7
8
9
10
Option Explicit
 
'pour callback
Public itfEvent As IDemoEvent
 
 
'lance le traitement
Public Sub DoWork()
 
End Sub

L'interface IDemoEvent pour générer le callback asynchrone:

Code :

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

1
2
3
4
5
Option Explicit
 
Public Sub Notify()
 
End Sub

La classe Work qui implémente IDemo

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
Option Explicit
 
Implements IDemo
 
Public mDemoEvent As IDemoEvent
 
Private Sub IDemo_DoWork()
    'notification
    mDemoEvent.Notify
End Sub
 
Private Property Set IDemo_itfEvent(ByVal RHS As IDemoEvent)
    Set mDemoEvent = RHS
End Property
 
Private Property Get IDemo_itfEvent() As IDemoEvent
    IDemo_itfEvent = mDemoEvent
End Property

Puis, côté application de test:
La classe EventHandler qui implémente IDemoEvent

Code :

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

1
2
3
4
5
6
7
8
Option Explicit
 
Implements IDemoEvent
 
 
Private Sub IDemoEvent_Notify()
    MsgBox "notified!"
End Sub

Le bouton de test:

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
Option Explicit
 
Public demoItf As IDemo
Public demoItfEvent As EventHandler
 
Private Sub cmdQuitter_Click()
    End
End Sub
 
Private Sub cmdTest_Click()
    If demoItf Is Nothing Then Set demoItf = New DemoAsyncCallback.CWork
    If demoItfEvent Is Nothing Then Set demoItfEvent = New EventHandler
 
    'enregistre le event handler
    Set demoItf.itfEvent = demoItfEvent
 
    'execution
    demoItf.DoWork
End Sub

Lors de l'affectation Set demoItf.itfEvent = demoItfEvent, l'erreur 98 est levée "Une propriété ou un appel à une méthode ne peuvent utiliser une référence vers un objet privé, que ce soit comme argument ou comme valeur renvoyée"

[ProgElecT]

Salut

Pour illustrer plus précisément ce que je souhaite faire, voici un code d'exemple.
.............................
Le bouton de test:

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
Option Explicit
 
Public demoItf As IDemo
Public demoItfEvent As EventHandler
 
Private Sub cmdQuitter_Click()
    End
End Sub
 
Private Sub cmdTest_Click()
    If demoItf Is Nothing Then Set demoItf = New DemoAsyncCallback.CWork ' <-------------- ICI ------------ ?
    If demoItfEvent Is Nothing Then Set demoItfEvent = New EventHandler
 
    'enregistre le event handler
    Set demoItf.itfEvent = demoItfEvent
 
    'execution
    demoItf.DoWork
End Sub

Lors de l'affectation Set demoItf.itfEvent = demoItfEvent
.........

Ligne 11, Ou est définit DemoAsyncCallback.CWork ?

[apolon34]

Salut,

C'est la classe "Work" (qui s'appelle en fait CWork) de l'exe activex. Je l'ai ajouté dans les références du projet pour pouvoir y accéder.