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
Voici le XML ENvoyer
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 code vb.net utilisé
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>
Si vous avez besoin de plus d'informations ou de précisions, n'hésiter pas à le demander.
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
Partager