Discussion :

[Jean-Philippe André]

j'essaie de mettre en place un wcf en duplex à partir d'exemples simples.

Mon service est bien lancé sur mon host, mais lorsque j'essaie de le lancer depuis mon client, j'ai une erreur au niv"eau de la creation du channel. Il m'indique que la fonction callback n'est pas implémentée.
Mon interface:

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
Imports System.ServiceModel
 
<ServiceContract(Namespace:="http://Microsoft.ServiceModel.Samples", SessionMode:=SessionMode.Required, CallbackContract:=GetType(ICalculatorDuplexCallback))> _
Public Interface ICalculatorDuplex
    <OperationContract(IsOneWay:=True)> _
    Sub Clear()
    <OperationContract(IsOneWay:=True)> _
    Sub AddTo(ByVal n As Double)
    <OperationContract(IsOneWay:=True)> _
    Sub SubtractFrom(ByVal n As Double)
    <OperationContract(IsOneWay:=True)> _
    Sub MultiplyBy(ByVal n As Double)
    <OperationContract(IsOneWay:=True)> _
    Sub DivideBy(ByVal n As Double)
End Interface
 
 
Public Interface ICalculatorDuplexCallback
    <OperationContract(IsOneWay:=True)> _
    Sub Equals(ByVal result As Double)
    <OperationContract(IsOneWay:=True)> _
    Sub Equation(ByVal eqn As String)
End Interface

Mon service:

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
Option Explicit On
 
Imports System.Data.Odbc
Imports System.Collections.Generic
Imports System.Threading
Imports System.ServiceModel
Imports DevInterface
 
Public Class CalculatorService
    Implements ICalculatorDuplex
    Private result As Double = 0.0R
    Private equation As String
 
    Public Sub New()
        equation = result.ToString()
    End Sub
 
    Public Sub Clear() Implements ICalculatorDuplex.Clear
        Callback.Equation(equation & " = " & result.ToString())
        equation = result.ToString()
    End Sub
 
    Public Sub AddTo(ByVal n As Double) Implements ICalculatorDuplex.AddTo
        result += n
        equation &= " + " & n.ToString()
        CType(Callback, Object).Equals(result)
    End Sub
 
    Public Sub SubtractFrom(ByVal n As Double) Implements ICalculatorDuplex.SubtractFrom
        result -= n
        equation &= " - " & n.ToString()
        CType(Callback, Object).Equals(result)
    End Sub
 
    Public Sub MultiplyBy(ByVal n As Double) Implements ICalculatorDuplex.MultiplyBy
        result *= n
        equation &= " * " & n.ToString()
        CType(Callback, Object).Equals(result)
    End Sub
 
    Public Sub DivideBy(ByVal n As Double) Implements ICalculatorDuplex.DivideBy
        result /= n
        equation &= " / " & n.ToString()
        CType(Callback, Object).Equals(result)
    End Sub
 
    Private ReadOnly Property Callback() As ICalculatorDuplexCallback
        Get
            Return OperationContext.Current.GetCallbackChannel(Of ICalculatorDuplexCallback)()
        End Get
    End Property
End Class

Mon client:

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
Option Explicit On
Option Strict On
 
Imports System.ServiceModel
Imports System.ServiceModel.Channels
Imports DevInterface
 
<ServiceBehavior(InstanceContextMode:=ServiceModel.InstanceContextMode.PerSession)> _
Public Class ClientForm
 
 
    Private Sub btConvert_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btconvert.Click
 
        Dim myChannelFactory As ServiceModel.ChannelFactory(Of DevInterface.ICalculatorDuplex) = Nothing
        Dim myService As DevInterface.ICalculatorDuplex
        'Construct InstanceContext to handle messages on callback interface
        ' Construct InstanceContext to handle messages on callback interface
        Dim instanceContext As New InstanceContext(New CallbackHandler())
 
 
 
 
        'Try
 
        'myChannelFactory = New ServiceModel.ChannelFactory(Of DevInterface.IServiceDev)("ConfigurationHttpCurrency")
        'myService = myChannelFactory.CreateChannel()
        myChannelFactory = New ServiceModel.DuplexChannelFactory(Of DevInterface.ICalculatorDuplex)("ConfigurationHttpCurrency")
        myChannelFactory.Endpoint.Address = New EndpointAddress("http://localhost:8018/CurrencyService")
        myService = myChannelFactory.CreateChannel()
        ' Call the AddTo service operation.
        Dim value As Double = 100
 
        myService.Clear()
        myService.AddTo(value)
 
        ' Call the SubtractFrom service operation.
        value = 50
        myService.DivideBy(value)
 
        ' Call the MultiplyBy service operation.
        value = 17
        myService.MultiplyBy(value)
 
        ' Call the DivideBy service operation.
        value = 2
        myService.SubtractFrom(value)
 
    End Sub
 
 
End Class
 
Public Class CallbackHandler
    Implements ICalculatorDuplexCallback
    Public Overridable Shadows Sub Equals(ByVal result As Double) Implements ICalculatorDuplexCallback.Equals
        Console.WriteLine("Equals({0})", result)
    End Sub
 
    Public Sub Equation(ByVal eqn As String) Implements ICalculatorDuplexCallback.Equation
        Console.WriteLine("Equation({0})", eqn)
    End Sub
End Class

et enfin mes fichier config
Host:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
<?xml version="1.0" encoding="utf-8" ?>
<configuration>
  <system.serviceModel>
    <services>
      <service name="DevService.CalculatorService">
        <endpoint
            address="http://localhost:8018/CurrencyService"
            binding="wsDualHttpBinding"
            contract="DevInterface.ICalculatorDuplex" />
      </service>
    </services>
  </system.serviceModel>
</configuration>

et client:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
<?xml version="1.0" encoding="utf-8" ?>
<configuration>
  <system.serviceModel>
    <client>
      <endpoint
        address="http://localhost:8018/CurrencyService"
        binding="wsDualHttpBinding"
        contract="DevInterface.ICalculatorDuplex"
        name="ConfigurationHttpCurrency" />
    </client>
  </system.serviceModel>
</configuration>

j'ai surement mal placé une partie du code, mais je n'arrive pas à savoir laquelle

[BenoitM]

Je dis peut-être une connerie mais ton ClientForm
ne doit-il pas implémenter l'interface ICalculatorDuplexCallback?

Code :

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

ClientForm Implements ICalculatorDuplexCallback

[Jean-Philippe André]

Hum, meme en implémentant le callback dans la classe client, je passerai donc par InstanceContext(Me)
ca me donne ce code la:

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
Imports System.ServiceModel.Channels
Imports DevInterface
<ServiceBehavior(InstanceContextMode:=ServiceModel.InstanceContextMode.PerSession)> _
Public Class ClientForm
    Implements ICalculatorDuplexCallback
    Public Overridable Shadows Sub Equals(ByVal result As Double) Implements ICalculatorDuplexCallback.Equals
        Me.lblResult.Text = result.ToString
    End Sub
 
    Public Sub Equation(ByVal eqn As String) Implements ICalculatorDuplexCallback.Equation
        Me.lblResult.Text = eqn.ToString
    End Sub
 
    Private Sub btConvert_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btconvert.Click
 
        Dim myChannelFactory As DuplexChannelFactory(Of ICalculatorDuplex) =  Nothing
        myChannelFactory = New ServiceModel.DuplexChannelFactory(Of DevInterface.ICalculatorDuplex)("ConfigurationHttpCurrency")
        myChannelFactory.Endpoint.Address = New EndpointAddress("http://localhost:8018/CurrencyService")
        'Create a channel.
        Dim myService As DevInterface.ICalculatorDuplex
        Dim instanceContext As New InstanceContext(Me)
        myservice = myChannelFactory.CreateChannel()
 
        myService = myChannelFactory.CreateChannel()
        myService.Clear()
        myService.AddTo(100)
        myService.DivideBy(5)
        myService.SubtractFrom(8)
    End Sub
End Class

mais j'ai le droit au meme message

[BenoitM]

Ca <ServiceBehavior(InstanceContextMode:=ServiceModel.InstanceContextMode.PerSession)> _

Ca sert a rien du coté client


et ca plante tjs au myChannelFactory = New ServiceModel.DuplexChannelFactory(Of DevInterface.ICalculatorDuplex)("ConfigurationHttpCurrency")?
avec le meme message?

[Jean-Philippe André]

ok, le servicebehavior se déclare seulement dans la partie Service, evidemment

Toujours la meme erreur par contre.
j'ai recréé une classe dédiée pour le callback

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
Dim myChannelFactory As DuplexChannelFactory(Of ICalculatorDuplex) = Nothing
        myChannelFactory = New ServiceModel.DuplexChannelFactory(Of DevInterface.ICalculatorDuplex)("ConfigurationHttpCurrency")
        myChannelFactory.Endpoint.Address = New EndpointAddress("http://localhost:8018/CurrencyService")
        'Create a channel.
        Dim myService As DevInterface.ICalculatorDuplex
        Dim instanceContext As New InstanceContext(New CallbackHandler())
 
 
        myService = myChannelFactory.CreateChannel()
        myService.Clear()
        myService.AddTo(100)
        Thread.Sleep(2000)
 
        myService.DivideBy(5)
        Thread.Sleep(2000)
 
        myService.SubtractFrom(8)
    End Sub

Si quelqu'un a un projet simple avec juste l'host et le client qui communique, je peux adapter dans la foulée

[BenoitM]

Ici mais c'est en C# (VB.net c'est mal )

mais il y a des convertisseurs sur le net pour le traduire en VB.Net

[Jean-Philippe André]

merci je vais tacher d'ouvrir tout ca et voir ce que je peux en faire

[Jean-Philippe André]

hum, la conversion semble poser problème, lors de l'ouverture je n'arruve pas à récuperer ChatContrats et ChatServices...

[BenoitM]

Je ne peux pas télécharger depuis le boulot.

Va falloir trouver un autre sauveur

[Jean-Philippe André]

Bon, j'ai réussi à recreer le tout, mais ca compile pas

je m'attaque à l'emplacement des bouts de code

[Jean-Philippe André]

alors, après nettoyage et tout et tout, j'arrive à ceci :
interface

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
Imports System.ServiceModel
 
<ServiceContract(name:="test", SessionMode:=SessionMode.Required, Callbackcontract:=GetType(IServiceDevCallBack))> _
Public Interface IServiceDev
 
    <OperationContract(IsInitiating:=True, IsTerminating:=False, IsOneWay:=True)> _
    Sub DemarrerSession(pseudo As String)
    <OperationContract(isoneway:=True)> _
    Sub EuroToUsDollars(ByVal amount As Decimal)
 
    <OperationContract(isoneway:=True)> _
    Sub UsDollarsToEuros(ByVal amount As Decimal)
    <OperationContract(isoneway:=True)> _
    Sub GetCountry(ByVal ID_COUNTRY As Double)
 
End Interface

interface callback

Code :

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

1
2
3
4
5
Imports System.ServiceModel
Public Interface IServiceDevCallBack
    <OperationContract(isoneway:=True)> _
    Sub Result(ByVal voutput As Object)
End Interface

service (ca fait mal)

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
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
Option Explicit On
 
Imports System.Data.Odbc
Imports DevInterface
Imports System.EventArgs
Imports System.servicemodel
 
Public Class CurrencyService
    Implements DevInterface.IServiceDev
 
    Private Event ChatMessageEvent As ChatMessageEventHandler
    Private Delegate Sub ChatMessageEventHandler(e As ChatMessageEventArgs)
 
    Private Event ConnexionEvent As ConnexionEventHandler
    Private Delegate Sub ConnexionEventHandler(e As ConnexionEventArgs)
 
    Private Event DeconnexionEvent As DeconnexionEventHandler
    Private Delegate Sub DeconnexionEventHandler(e As DeconnexionEventArgs)
 
    '//pour rappeler le client
    Private callback As IServiceDevCallBack = Nothing
 
    '//pseudo de l'utilisateur
    Private pseudoUtilisateur As String = vbNull
 
    '//liste des utilisateurs connectés
    Private listeUtilisateurs As List(Of String) = New List(Of String)
 
    Dim resultat As Decimal
    Public Sub EuroToUsDollars(ByVal amount As Decimal) Implements DevInterface.IServiceDev.EuroToUsDollars
        resultat = amount * CDec(1.3812)
        callback.Result(resultat)
    End Sub
 
    Public Sub UsDollarsToEuros(ByVal amount As Decimal) Implements DevInterface.IServiceDev.UsDollarsToEuros
        resultat = amount * CDec(0.724)
        callback.Result(resultat)
    End Sub
 
    Public Sub GetCountry(ByVal ID_COUNTRY As Double) Implements DevInterface.IServiceDev.GetCountry
        Dim strSQL As String
        Dim MyConnexion As New OdbcConnection
        Dim acscdr As OdbcDataReader
        Dim resultat As String
        resultat = ""
        MyConnexion.ConnectionString = ReadParam("OLYMPE CONNECTION")
        MyConnexion.Open()
 
        strSQL = "SELECT TOP 1 NM_COUNTRY FROM OLY_COUNTRY"
        If ID_COUNTRY <> 0 Then
            strSQL = strSQL & " WHERE ID_COUNTRY=" & ID_COUNTRY
        End If
        Debug.Print(strSQL)
        Dim acscmd As New OdbcCommand
        acscmd.CommandText = strSQL
        acscmd.Connection = MyConnexion
        acscdr = acscmd.ExecuteReader
 
        While (acscdr.Read())
            Debug.Print(acscdr("NM_COUNTRY"))
            resultat = acscdr("NM_COUNTRY")
        End While
        MyConnexion.Close()
        callback.Result(resultat.ToString)
    End Sub
 
    Private Sub Channel_Closing(sender As Object, e As EventArgs)
 
        MsgBox("Fermeture du channel par {0}", pseudoUtilisateur)
        '//si on n'est pas passé par FermerSession avant
        SyncLock (listeUtilisateurs)
 
            If (listeUtilisateurs.Contains(pseudoUtilisateur)) Then
                FermerSession()
            End If
end synclock
 
    End Sub
 
    Public Sub FermerSession()
 
        SyncLock (listeUtilisateurs)
 
            '//on désabonne le client
            'ChatMessageEvent -= ChatMessageHandler;
            'ConnexionEvent -= ConnexionHandler;
            'DeconnexionEvent -= DeconnexionHandler;
            listeUtilisateurs.Remove(pseudoUtilisateur)
        End SyncLock
 
        '//on informe les utilisateurs de la déconnexion 
        Dim dea As DeconnexionEventArgs = New DeconnexionEventArgs()
        dea.Utilisateur = pseudoUtilisateur
 
 
        RaiseEvent DeconnexionEvent(dea)
 
 
        MsgBox("Déconnexion de l'utilisateur {0}", pseudoUtilisateur)
    End Sub
 
    Public Sub DemarrerSession(pseudo As String) Implements DevInterface.IServiceDev.DemarrerSession
        MsgBox("Tentative de connexion de l'utilisateur {0}", pseudo)
 
        callback = OperationContext.Current.GetCallbackChannel(Of IServiceDevCallBack)()
 
        pseudoUtilisateur = pseudo
 
        SyncLock (listeUtilisateurs)
 
            listeUtilisateurs.Add(pseudo)
 
            '//on s'abonne à la réception de nouveaux messages
            'RaiseEvent ChatMessageEvent(pseudo.ToString)
 
            '//on s'abonne à la connexion de nouveaux utilisateurs
            'ConnexionEvent += ConnexionHandler
 
            '//on s'abonne à la déconnexion d'utilisateurs
            'DeconnexionEvent += DeconnexionHandler
 
            '//on informe les utilisateurs de la connexion d'un nouveau venu
            Dim cea As ConnexionEventArgs = New ConnexionEventArgs()
 
            cea.Utilisateur = pseudoUtilisateur
            RaiseEvent ConnexionEvent(cea)
 
            AddHandler OperationContext.Current.Channel.Closing, New EventHandler(AddressOf Channel_Closing)
 
            MsgBox("Connexion de l'utilisateur {0}", pseudoUtilisateur)
 
        End SyncLock
    End Sub
End Class
 
Public Class ChatMessageEventArgs
    Inherits EventArgs
 
    Public Property Message As String
        Get
        End Get
        Set(value As String)
 
        End Set
    End Property
 
    Public Property Utilisateur As String
        Get
        End Get
        Set(value As String)
        End Set
    End Property
End Class
 
 
Public Class DeconnexionEventArgs
    Inherits EventArgs
 
    Public Property Utilisateur As String
        Get
 
        End Get
        Set(value As String)
 
        End Set
    End Property
 
End Class
 
 
Public Class ConnexionEventArgs
    Inherits EventArgs
 
    Public Property Utilisateur As String
        Get
 
        End Get
        Set(value As String)
 
        End Set
    End Property
End Class

client:

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
Option Explicit On
Option Strict On
 
Imports System.ServiceModel
Imports System.ServiceModel.Channels
Imports DevInterface
 
<ServiceBehavior(InstanceContextMode:=ServiceModel.InstanceContextMode.PerSession)> _
Public Class ClientForm
    Implements DevInterface.IServiceDevCallBack
 
    Dim pseudoUtilisateurCourant As String
    Dim channelFactory As DuplexChannelFactory(Of DevInterface.IServiceDev)
    Dim chat As IServiceDev
 
    Private Sub ConnexionChat(pseudo As String)
 
        If (String.IsNullOrEmpty(pseudo)) Then
            Exit Sub
        End If
        '//création du canal avec la configuration définie dans le fichier de config
        channelFactory = New DuplexChannelFactory(Of DevInterface.IServiceDev)("ConfigurationHttpCurrency")
        channelFactory.Endpoint.Address = New EndpointAddress("http://localhost:8018/CurrencyService")
        'channelFactory.Open() '  //pas utile ici
        chat = channelFactory.CreateChannel()
 
        Try
 
            '//chat.Test() //msg d'erreur
            chat.DemarrerSession(pseudo)
 
            '//mise à jour des menus
            Me.lblResult.Text = "plop"
            'Me.seDéconnecterToolStripMenuItem.Enabled = True
            'Me.btnEnvoyer.Enabled = True
 
            pseudoUtilisateurCourant = pseudo
 
 
        Catch ex As Exception
 
            MessageBox.Show(ex.Message)
        End Try
 
    End Sub
    Private Sub btConvert_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btconvert.Click
        ConnexionChat("Jpcheck")
    End Sub
 
#Region "DevInterface.IServiceDevCallBack Members"
    Public Sub Result(voutput As Object) Implements DevInterface.IServiceDevCallBack.Result
        Me.lblResult.Text = voutput.ToString
    End Sub
 
    Protected Overrides Sub Finalize()
        MyBase.Finalize()
    End Sub
#End Region
End Class

Et toujours la meme erreur lors du createchannel

[Jean-Philippe André]

Bon ben à force de creuser on finit par trouver

ce code la me permet d'ouvrir mon channel

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim inst As InstanceContext
        inst = New InstanceContext(Me)
 
        If (String.IsNullOrEmpty(pseudo)) Then
            Exit Sub
        End If
        '//création du canal avec la configuration définie dans le fichier de config
        channelFactory = New DuplexChannelFactory(Of DevInterface.IServiceDev)("ConfigurationHttpCurrency")
        channelFactory.Endpoint.Address = New EndpointAddress("http://localhost:8018/CurrencyService")
        channelFactory.Endpoint.Binding = New WSDualHttpBinding
 
        channelFactory.Open() '  //pas utile ici
        chat = channelFactory.CreateChannel(inst)

j'ai d''autres erreurs certes, mais la partie qui me prenait le chou depuis 2 jours c'est fait

BenoitM

[BenoitM]

C'était quoi le problème?

Et sinon tu peux mettre toute la config du service dans l'appconfig

[Jean-Philippe André]

En fait c'etait le fait de créer une variable de type InstanceContext en haut du codze, de lui attribuer la valeur avec un constructeur sur le formulaire (ou la classe qui implemente le callback).

C'est con au possible, et plus je fais du vb.net, plus je me dis que VBA c'est "facile"