c#调用delphi编写的SOAP Web Service（2）

2、使用Soap Toolkit。

目前最新Toolkit是3.0，从微软下载http://www.microsoft.com/downloads/en/details.aspx?FamilyId=C943C0DD-CEEC-4088-9753-86F052EC8450&displaylang=en，安装。

然后在visual studio你的项目中，在“引用”上右键单击，选择“添加引用”，切换到COM页，找到Microsoft soap type library v3.0，确定加入。

试了多次都不成功，开始分析delphi端收到的XML的格式差异，最后才试成功：

用delphi客户端调用，收到的XML是（为了阅读方便，我加了换行）：

<?xml version="1.0"?> <SOAP-ENV:Envelope xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:SOAP-ENC="http://schemas.xmlsoap.org/soap/encoding/"> <SOAP-ENV:Body SOAP-ENV:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/"> <NS1:Test_Sum xmlns:NS1="urn:tmSoapInt-ISoapService"> <A xsi:type="xsd:int">3</A> <B xsi:type="xsd:int">4</B> </NS1:Test_Sum> </SOAP-ENV:Body> </SOAP-ENV:Envelope>

在c#中，添加using MSSOAPLib30;

开始调用（注意代码中的注释）：

protected void Button1_Click(object sender, EventArgs e) { HttpConnector30 Connector = new HttpConnector30(); Connector.set_Property("EndPointURL", "http://x.x.x.x:8081/Test/ERPSoapServerBroker.dll/soap/ISoapService"); Connector.Connect(); Connector.BeginMessage(); SoapSerializer30 Serializer = new SoapSerializer30(); Serializer.Init(Connector.InputStream); Serializer.StartEnvelope("", "http://schemas.xmlsoap.org/soap/encoding/", ""); //不能加，否则产生的XML有重复的属性，delphi那端报“属性重复” //Serializer.SoapAttribute("xmlns:SOAP-ENV", "", "http://schemas.xmlsoap.org/soap/envelope/", ""); //Serializer.SoapAttribute("xmlns:xsd", "", "http://www.w3.org/2001/XMLSchema", ""); //Serializer.SoapAttribute("xmlns:xsi", "", "http://www.w3.org/2001/XMLSchema-instance", ""); //Serializer.SoapAttribute("xmlns:SOAP-ENC", "", "http://schemas.xmlsoap.org/soap/encoding/", ""); //Serializer.StartHeader(""); //Serializer.EndHeader(); //一定要给par_enc_style_uri，否则delphi那端会报“不支持的encodingStyle” Serializer.StartBody("http://schemas.xmlsoap.org/soap/encoding/"); //Serializer.SoapAttribute("SOAP-ENV:encodingStyle", "", "http://schemas.xmlsoap.org/soap/encoding/", ""); Serializer.StartElement("Test_Sum", "", "http://schemas.xmlsoap.org/soap/encoding/", ""); Serializer.StartElement("A", "", "http://schemas.xmlsoap.org/soap/encoding/", ""); Serializer.WriteString("4"); Serializer.EndElement(); Serializer.StartElement("B", "", "http://schemas.xmlsoap.org/soap/encoding/", ""); Serializer.WriteString("5"); Serializer.EndElement(); Serializer.EndElement(); Serializer.EndBody(); Serializer.EndEnvelope(); Serializer.Finished(); SoapReader30 Reader = new SoapReader30(); //Reader.Load(Connector.InputStream, ""); //TextBox1.Text = Reader.Dom.xml; Connector.EndMessage(); Reader.Load(Connector.OutputStream, ""); TextBox1.Text = Reader.RpcResult.text; //TextBox1.Text = Reader.Dom.xml; //Response.Write(Reader.Dom.xml);

delphi端收到的XML是（为了阅读方便，我加了换行）：

<?xml version="1.0" encoding="UTF-8" standalone="no"?> <SOAP-ENV:Envelope SOAP-ENV:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" xmlns:SOAPSDK1="http://www.w3.org/2001/XMLSchema" xmlns:SOAPSDK2="http://www.w3.org/2001/XMLSchema-instance" xmlns:SOAPSDK3="http://schemas.xmlsoap.org/soap/encoding/" xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/"> <SOAP-ENV:Body SOAP-ENV:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/"> <Test_Sum SOAP-ENV:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/"> <A SOAP-ENV:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/">4</A> <B SOAP-ENV:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/">5</B> </Test_Sum> </SOAP-ENV:Body> </SOAP-ENV:Envelope>

有点差异，但是可以运作。

所以SOAP号称Simple，实际上不同语言的实现数类型，编码方式都不同，互相调用很麻烦。还是JSON格式的REST Server才是真正的简单。