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

最新推荐文章于 2020-11-26 12:24:27 发布

火星牛

最新推荐文章于 2020-11-26 12:24:27 发布

阅读量2.8k

点赞数

分类专栏： c# 文章标签： delphi soap service web c# apache

本文链接：https://blog.csdn.net/acrodelphi/article/details/6014193

版权

c# 专栏收录该内容

24 篇文章 1 订阅

订阅专栏

c#如何调用delphi写的SOAP Web Service呢？

网上看到两种方法，

1、通过在Vistual Studio，增加web refrence的方式从wsdl引入wrapper，但是，总是报类型错误，开始怀疑可能是不支持某些特定类型，如olevariant。但仔细查看VS的警告信息，发现与wsdl中没有输出某些从TRemoteable继承下来的复杂类型有关。Delphi的wsdl只会输出那些在接口中直接使用到的复杂原件的定义，如果有多层继承，祖先没有直接被使用就不会输出。于是在接口中增加了几个不用的函数，把这些类别都用上。然后重新从VS汇入，“添加服务引用...”，成功。

但是调用的时候还是失败了，错误信息：

响应消息的内容类型 text/html; charset=iso-8859-1 与绑定(text/xml; charset=utf-8)的内容类型不匹配。如果使用自定义编码器，请确保正确实现 IsContentTypeSupported 方法。响应的前 541 个字节为:“<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML 2.0//EN">
<html><head>
<title>500 Internal Server Error</title>

我的SOAP Service安装在Apache中，设定调试参数为：-X -w -f "d:\Program Files (x86)\Apache Software Foundation\Apache2.2\conf\httpd.conf"，关闭服务，在Delphi中运行，开始跟踪，

我Delphi XE版本15.0.3953.35171 ，跟踪发现在WebBrokerSoap.pas的这个地方出错：

function THTTPSoapDispatcher.DispatchRequest(Sender: TObject;
  Request: TWebRequest; Response: TWebResponse): Boolean;
..............
              if IsMultiPart then
              begin
                BindingTypeIn := btMIME;
                MimeStream.ProcessMultiPartForm(ReqStream, XMLStream,
                         string(Request.ContentType), Nil,
                         Converter.Attachments, Converter.TempDir);
              end else
              begin
                { Load the SOAP Envelope directly into the XMLStream }
                BindingTypeIn := btSOAP;
                XMLStream.CopyFrom(ReqStream, 0);//这行报错“Stream read error”
              end;

继续跟踪到classes.pas的procedure TStream.ReadBuffer(var Buffer; Count: Longint);函数中，发现是它要读取371个字节，但是读到0个字节，所以报这个错。
为什么呢？

用TCPTrace（http://www.pocketsoap.com/tcptrace/）工具看看C#传了些什么东西出来吧：

POST /TMTS/DCSoapServerBrokerIIS_Standalone.dll/soap/ISoapService HTTP/1.1
Content-Type: text/xml; charset=utf-8
VsDebuggerCausalityData: uIDPo8jCedmtWQBDtUt1GRtNFUMAAAAAwwzVtxpxcEuCzmB2DZGPYO0IUNfw4PRNv2+9V5Cp2fEACQAA
SOAPAction: "urn:tmSoapInt-ISoapService#Test_Sum"
Host: localhost:8080
Content-Length: 372
Expect: 100-continue
Accept-Encoding: gzip, deflate
Connection: Keep-Alive

<s:Envelope xmlns:s="http://schemas.xmlsoap.org/soap/envelope/">
  <s:Body s:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" 
    xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" 
    xmlns:xsd="http://www.w3.org/2001/XMLSchema">
    <q1:Test_Sum xmlns:q1="urn:tmSoapInt-ISoapService">
      <A xsi:type="xsd:int">3</A>
      <B xsi:type="xsd:int">4</B>
    </q1:Test_Sum>
  </s:Body>
</s:Envelope>

如果在VS中用“添加web引用...”汇入wsdl，汇入也成功，但执行还是出错，TCPTrace截获的信息为：

POST /TMTS/DCSoapServerBrokerIIS_Standalone.dll/soap/ISoapService HTTP/1.1
User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; MS Web Services Client Protocol 4.0.30319.261)
VsDebuggerCausalityData: uIDPo7B2LBy0PhlHmITzVeouookAAAAAb8BWzvTMh0SX09/DtaGIO38HgmbNMpxDgAxyODAZkEcACQAA
Content-Type: text/xml; charset=utf-8
SOAPAction: "urn:tmSoapInt-ISoapService#Test_Sum"
Host: localhost:8080
Content-Length: 564
Expect: 100-continue
Connection: Keep-Alive

<?xml version="1.0" encoding="utf-8"?>
<soap:Envelope 
  xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/" 
  xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/" 
  xmlns:tns="http://tempuri.org/" 
  xmlns:types="http://tempuri.org/encodedTypes" 
  xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" 
  xmlns:xsd="http://www.w3.org/2001/XMLSchema">
  <soap:Body soap:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/">
    <q1:Test_Sum xmlns:q1="urn:tmSoapInt-ISoapService">
      <A xsi:type="xsd:int">3</A>
      <B xsi:type="xsd:int">4</B>
    </q1:Test_Sum>
  </soap:Body>
</soap:Envelope>

格式到底差在哪里呢？为什么Delphi的Web service就是不接受它呢？