Discussion :

[jjcasalo]

Bonjour à tous,

Encore moi et mes problèmes de Web-Services...

J'arrive à interroger un web-service simple depuis VB.net. Mais maintenant, je souhaite interroger un WS qui utilise un Header. Or je n'y arrive pas (normal, sinon je ne poserai pas la question).

Donc, voilà ce que je fais.

Je définis une Web Reference (et non pas un Service Reference) que j'appelle MyWS_jjcasalo.

J'ai vu sur le site msdn (à cette page : http://msdn.microsoft.com/en-us/libr...(v=vs.71).aspx) qu'il fallait définit une Classe MyHeader, ce que je fais :

Code :

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

1
2
3
4
Public Class MyHeader
    Inherits SoapHeader
    Public Authorization As String
End Class

Puis, je crée un bouton sur lequel j'ajoute le code suivant :

Code :

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

1
2
Dim mySoapHeader As MyHeader = New MyHeader()
        mySoapHeader.Authorization = "DA1NDEzMzRhODU0Nzg1M2M2YzdlNDBiYmJhYzk="

... et voilà... Après, je suis coincé.

Toujours sur cette page MSDN, ils indiquent qu'il faut définir :

Code :

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

Dim proxy As MyWebService = New MyWebService()

Mais je ne comprends pas la définition de cette classe MyWebService.

Comment puis-je relier ma référence de service (MyWS_jjcasalo) au proxy ?

Je suis perdu. Donc, je me tourne vers vous.

Merci d'avance.

[jjcasalo]

OK, après des recherches, j'ai trouvé. J'en fais donc profiter la communauté.

Il faut définir un WebReference (et non pas un Service Reference).
On appellera ce WebReference "EnterpriseService".

Puis, dans le code principal :

Il faut définir une Classe MyService qui va permettre de surcharger la fonction GetWebResponse pour lui ajouter le ou les Header avec leur valeur.

Code :

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

1
2
3
4
5
6
7
8
Public Class MyService
    Inherits EnterpriseService.EntrepriseService
    Protected Overrides Function GetWebResponse(ByVal request As System.Net.WebRequest) As System.Net.WebResponse
        ' C'est ici qu'il faut ajouter les Headers (le nom et la valeur).
        request.Headers.Add(System.Net.HttpRequestHeader.Authorization, "Basic aXBhcmk6MXXXXXXXXXXXXYmJhYzk=")
        Return MyBase.GetWebResponse(request)
    End Function
End Class

Puis, sur l'appui sur un bouton qui permet d'appeler un WebService :

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
Private Sub getListeEvenements_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_getListeEvenements.Click
        ' WebService : wse.XXXXXXXXXXXXX.com:8081/
        ' WS : http://wse.XXXXXXXXXXXXX.com:8081/documentation/index/ws/entreprise/version/0.4#getListeEvenements
 
        Me.Cursor = Cursors.WaitCursor
        Dim service As New MyService()    ' La classe qui a été déclarée juste au dessus
        Dim result As EnterpriseService.InseeReturn  ' On appelle le SebService
 
        Try
            result = service.getListeEvenements(tbx_Siren4.Text, tbx_Nic4.Text)
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Erreur", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Me.Cursor = Cursors.Default
            Exit Sub
        End Try
 
        ' On traite les résultats.
        If result.nbReponses = 0 Then
            MessageBox.Show("Pas d'évènements pour ce SIREN", "Aucun évènement trouvé", MessageBoxButtons.OK, MessageBoxIcon.Information)
        Else
            ' Affichage de la form InseeEvenavec les résultats sous la forme d'un DataGrid.
            Dim f_InseeEven As New InseeEven(result.result())
            f_InseeEven.Show()
        End If
 
        Me.Cursor = Cursors.Default
 
    End Sub

Voilà, c'est peut être évident pour certains d'entre vous, mais je me suis arraché les cheveux pendant quelque temps. Donc, si ça peut vous aider, tant mieux.