Discussion :

[Couston]

J'ai l'erreur suivante lorsque j'essai d'appeler la methode suivante de mon webservice

Request format is invalid: text/xml; charset=utf-8.

Cependant, si j'utilise le même principe pour appeler une function sans paramètre, cela fonctionne

Code :

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

1
2
3
4
5
 
<WebMethod()> _
    Public Function SendRequest(ByVal v_strValue As String) As String
        Return "Voici un super OUTput: " & v_strValue 
    End Function

Voici le XML ENvoyer

Code :

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

1
2
3
4
5
6
7
8
9
10
 
<?xml version="1.0" encoding="utf-8"?>
<soap:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">
<soap:Header></soap:Header>  
<soap:Body>
    <SendRequest xmlns="http://tempuri.org/WebService_Test/MM">
      <v_strValue>string</v_strValue>
    </SendRequest>
  </soap:Body>
</soap:Envelope>

voici le code vb.net utilisé

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
 
Dim m_objServer As snmsxml3.ServerXMLHTTP
 
#Region "Event"
    Private Sub cmdOpenServerXMLHTTP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdOpenServerXMLHTTP.Click
        m_objServer = New snmsxml3.ServerXMLHTTP
        Try
            m_objServer.open(txtMethode.Text, txtUrl.Text, False)
            picWarning.BackColor = Color.Green
 
        Catch ex As Exception
            picWarning.BackColor = Color.Red
            MessageBox.Show(ex.ToString)
        End Try
    End Sub
 
    Private Sub cmdSendServerXMLHTTP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSendServerXMLHTTP.Click
        Dim objDomToSend As snmsxml3.DOMDocument
 
        objDomToSend = New snmsxml3.DOMDocument
        Try
            objDomToSend.async = False
            objDomToSend.loadXML(txtValue.Text)
            m_objServer.setRequestHeader("Content-Type", "text/xml; charset=utf-8")
            m_objServer.send(objDomToSend)
            txtOutput.Text = m_objServer.responseText
            picWarning.BackColor = Color.Red
 
        Catch ex As Exception
            picWarning.BackColor = Color.Red
            MessageBox.Show(ex.ToString)
        End Try
    End Sub
 
    Private Sub txtValue_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
        picWarning.BackColor = Color.Red
    End Sub
 
#End Region

Si vous avez besoin de plus d'informations ou de précisions, n'hésiter pas à le demander.

[Couston]

Voici la solution :

Code :

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

1
2
3
4
5
 
<WebMethod()> _
    Public Function SendRequest(ByVal v_strValue As String) As String
        Return "Voici un super OUTput: " & v_strValue 
    End Function

Voici le XML ENvoyer

Code :

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

1
2
3
4
5
6
7
8
9
10
 
<?xml version="1.0" encoding="utf-8"?>
<soap:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">
<soap:Header></soap:Header>  
<soap:Body>
    <SendRequest xmlns="http://tempuri.org/WebService_Test/MM">
      <v_strValue>string</v_strValue>
    </SendRequest>
  </soap:Body>
</soap:Envelope>

voici le code vb.net utilisé

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
 
Dim m_objServer As snmsxml3.ServerXMLHTTP
 
#Region "Event"
    Private Sub cmdOpenServerXMLHTTP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdOpenServerXMLHTTP.Click
        m_objServer = New snmsxml3.ServerXMLHTTP
        Try
            m_objServer.open(txtMethode.Text, txtUrl.Text, False)
            picWarning.BackColor = Color.Green
 
        Catch ex As Exception
            picWarning.BackColor = Color.Red
            MessageBox.Show(ex.ToString)
        End Try
    End Sub
 
    Private Sub cmdSendServerXMLHTTP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSendServerXMLHTTP.Click
        Dim objDomToSend As snmsxml3.DOMDocument
 
        objDomToSend = New snmsxml3.DOMDocument
        Try
            objDomToSend.async = False
            objDomToSend.loadXML(txtValue.Text)
            m_objServer.setRequestHeader("Content-Type", "text/xml; charset=utf-8")

Ajouté:

Code :

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

            m_objServer.setRequestHeader("SOAPAction", """http://tempuri.org/WebService_Test/MM/SendRequest""")

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
 
            m_objServer.send(objDomToSend)
            txtOutput.Text = m_objServer.responseText
            picWarning.BackColor = Color.Red
 
        Catch ex As Exception
            picWarning.BackColor = Color.Red
            MessageBox.Show(ex.ToString)
        End Try
    End Sub
 
    Private Sub txtValue_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
        picWarning.BackColor = Color.Red
    End Sub
 
#End Region