Récupérer la strucure d'une WebRequest (SOAP)

Bonjour à tous,

j'ai besoin de visualiser la requête exacte que j'envoie à un serveur distant via mon programme.

J'aimerais pouvoir me sortir un document XML avec toutes les informations formatées, pour vérifier ce qui cloche. (Avec Wireshark je n'arrive pas à décrypter les flux SSL avec ma clef privé, j'essaye donc de récupérer la requête directement dans VStudio :?).

Pour ce faire, j'override la méthode 'GetWebRequest(Uri)' afin de manipuler la WebRequest avant qu'il n'y ai d'autres opérations, sans succès...
J'ai essayé de la lire via la méthode 'GetRequestStream();' mais ce 'Stream' récupéré est interdit en lecture..! Impossible donc de le lire via quelconque serializer.... :(

Merci d'avance pour toute info' !

Arnaud DS

Utilise Fiddler
Ca marche comme un proxy qui intercepte toutes les requêtes et affiche leurs caractéristiques et leur contenu.

Merci je vais tester ça.

De mon côté j'ai réussi à avoir plus d'informations et à résoudre mon problème.

:ccool:

Arnaud DS

Bonjour,
Si vous avez généré les classes de proxy avec vs (version WCF). Vous pouvez intercepter le contenu de la requête et de la réponse avec les deux classes ci-dessous (c'est du VB mais vous pourrez facilement convertir en C#)

IClientMessageInspector

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
 
 Public Class WCFMessageInspector
        Implements IClientMessageInspector
 
        Private _fileRequest As String
        Private _fileReply As String
 
        Public Sub New(FichierRequete As String, FichierReponse As String)
            _fileRequest = FichierRequete
            _fileReply = FichierReponse
        End Sub
 
        Public Sub AfterReceiveReply(ByRef reply As System.ServiceModel.Channels.Message, correlationState As Object) Implements System.ServiceModel.Dispatcher.IClientMessageInspector.AfterReceiveReply
            Try
                Dim Rep As String = GestFichier.NomRep(_fileReply)
                If Not Directory.Exists(Rep) Then Directory.CreateDirectory(Rep)
                If File.Exists(_fileReply) Then File.Delete(_fileReply)
                Using Str As New StreamWriter(_fileReply)
                    Str.Write(reply.ToString)
                End Using
 
            Catch ex As Exception
 
            End Try
 
        End Sub
 
        Public Function BeforeSendRequest(ByRef request As System.ServiceModel.Channels.Message, channel As System.ServiceModel.IClientChannel) As Object Implements System.ServiceModel.Dispatcher.IClientMessageInspector.BeforeSendRequest
            Try
                Dim Rep As String = GestFichier.NomRep(_fileRequest)
                If Not Directory.Exists(Rep) Then Directory.CreateDirectory(Rep)
                If File.Exists(_fileRequest) Then File.Delete(_fileRequest)
                Using Str As New StreamWriter(_fileRequest)
                    Str.Write(request.ToString)
                End Using
 
            Catch ex As Exception
 
            End Try
            Return Nothing
        End Function
 
    End Class

IEndpointBehavior

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
29
30
31
32
33
Public Class WCFSniffer
        Implements IEndpointBehavior
 
        Private _filrequest As String
        Private _fileReply As String
 
        ''' <summary>
        ''' Instanciation de l 'inspecteur de web services
        ''' </summary>
        ''' <param name="FichierRequete">Chemin de sauvegarde du fichier de la requete</param>
        ''' <param name="fichierReponse">Chemin de sauvegarde du fichier de la reponse</param>
        ''' <remarks></remarks>
        Public Sub New(FichierRequete As String, fichierReponse As String)
            _filrequest = FichierRequete
            _fileReply = fichierReponse
        End Sub
 
        Public Sub AddBindingParameters(endpoint As System.ServiceModel.Description.ServiceEndpoint, bindingParameters As System.ServiceModel.Channels.BindingParameterCollection) Implements System.ServiceModel.Description.IEndpointBehavior.AddBindingParameters
 
        End Sub
 
        Public Sub ApplyClientBehavior(endpoint As System.ServiceModel.Description.ServiceEndpoint, clientRuntime As System.ServiceModel.Dispatcher.ClientRuntime) Implements System.ServiceModel.Description.IEndpointBehavior.ApplyClientBehavior
            clientRuntime.MessageInspectors.Add(New WCFMessageInspector(_filrequest, _fileReply))
        End Sub
 
        Public Sub ApplyDispatchBehavior(endpoint As System.ServiceModel.Description.ServiceEndpoint, endpointDispatcher As System.ServiceModel.Dispatcher.EndpointDispatcher) Implements System.ServiceModel.Description.IEndpointBehavior.ApplyDispatchBehavior
 
        End Sub
 
        Public Sub Validate(endpoint As System.ServiceModel.Description.ServiceEndpoint) Implements System.ServiceModel.Description.IEndpointBehavior.Validate
 
        End Sub
    End Class

Utilisation :

Code:

1
2
3
4
5
6
 
 Using Serv As New MonServiceClient(MonBasicBinding, MonEndPoint)
 
Serv.Endpoint.Behaviors.Add(New WCFSniffer("d:\request.xml", "d:\reply.xml"))
...
End using