Comment utiliser un SOAP Header dans VB.Net ?

Bonjour à tous,

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

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:

---

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:

---

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:

---

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.

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:

---

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:

---

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.