Vb.net向web服务发送xml

Question

我想向web服务发送一个xmlxml看起来像这个

<soap:Envelope xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">
<soap:Header/>
<soap:Body>
<OTA_HotelRatePlanRQ Version="2.1" PrimaryLangID="en-us" TimeStamp="2001-12-17T09:30:47Z" xmlns="http://www.opentravel.org/OTA/2003/05">
<POS>
<Source>
<RequestorID ID="aa" MessagePassword="bb" Type="cc">
<CompanyName Code="C" CodeContext="dd"/>
</RequestorID>
</Source>
</POS>
</OTA_HotelRatePlanRQ>
</soap:Body>
</soap:Envelope>

我知道我可以手动构建xml，但有简单的方法吗？例如

该web服务被称为webst所以我在vb.net中编写

Dim trip As New webs_test.OTA_HotelRatePlanRQ
trip.POS.Source.RequestorID.ID = "aa"
trip.POS.Source.RequestorID.MessagePassword = "bb"
trip.POS.Source.RequestorID.Type = "cc"
trip.POS.Source.RequestorID.CompanyName.Code = "C"
trip.POS.Source.RequestorID.CompanyName.CodeContext = "dd"

从这里开始，有没有一种简单的方法可以构建xml并发送到web服务？

Thx

Answer 1

假设此服务位于http://someserver.com/Some.svc，并且它在http://someserver.com/Some.svc?WSDL导出了一个描述自己的WSDL，右键单击解决方案资源管理器"引用"节点，选择"添加服务引用"并将WSDL URL粘贴到中(甚至是非WSDL URL；尝试在末尾添加？WSDL已经足够聪明了(。稍后只需点击几次并选择命名，您就可以编写如下代码：

Dim x as New SomeServiceNamespace.SomeClient()
x.GetRatePlan("aa", "bb", "cc", "C", "dd") 'method name comes from the WSDL

它完成了剩下的工作。

顺便说一句，如果服务没有自我描述，并不意味着一切都失去了；一些web服务提供商关闭了服务本身的WSDL生成，但他们愿意将服务发送的WSDL作为XML文件提供给您。在这种情况下，将其放在例如c:temp和添加服务参考中对话框，将c:tempthe_wsdl_filename.xml放入地址框

Answer 2

我使用Xml linq:

Imports System.Xml
Imports System.Xml.Linq
Module Module1
Sub Main()
Dim soap As String = _
"<soap:Envelope xmlns:soap=""http://schemas.xmlsoap.org/soap/envelope/"">" & _
"<soap:Header/>" & _
"<soap:Body>" & _
"<OTA_HotelRatePlanRQ Version=""2.1"" PrimaryLangID=""en-us"" TimeStamp=""2001-12-17T09:30:47Z"" xmlns=""http://www.opentravel.org/OTA/2003/05"">" & _
"<POS>" & _
"<Source>" & _
"<RequestorID ID=""aa"" MessagePassword=""bb"" Type=""cc"">" & _
"<CompanyName Code=""C"" CodeContext=""dd""/>" & _
"</RequestorID>" & _
"</Source>" & _
"</POS>" & _
"</OTA_HotelRatePlanRQ>" & _
"</soap:Body>" & _
"</soap:Envelope>"
Dim envelope As XElement = XElement.Parse(soap)
Dim now As DateTime = DateTime.Now
Dim id As String = "John"
Dim password As String = "apple"
Dim type As String = "123"
Dim company = "XYZ"
Dim codeContext = "STU"
Dim ota As XElement = envelope.Descendants().Where(Function(x) x.Name.LocalName = "OTA_HotelRatePlanRQ").FirstOrDefault()
Dim ns As XNamespace = ota.GetDefaultNamespace()
ota.SetAttributeValue("TimeStamp", now.ToString("D"))
Dim requestorID As XElement = ota.Descendants(ns + "RequestorID").FirstOrDefault()
requestorID.SetAttributeValue("ID", id)
requestorID.SetAttributeValue("MessagePassword", password)
requestorID.SetAttributeValue("Type", type)
Dim companyName As XElement = requestorID.Element(ns + "CompanyName")
companyName.SetAttributeValue("Code", company)
companyName.SetAttributeValue("CodeContext", codeContext)

End Sub
End Module