Question

我有wcf web-service（basicHttpBinding）。我们的Delphi7客户端无法正确使用它。我已经使用WCF附加功能展平了WSDL。好。 Delphi7 wsdl importer生成代理正确。

现在我遇到了输入参数的问题。它们总是有默认值（字符串为空，int为0）。

方法delphi7的输出值正常。例如：

        public string Test(string a)
        {
              return "Test"+a;
        }

此方法始终返回“Test”。我的日志系统修复了我已经空的a方法，所以问题是正确的传输输入参数。

我不能忽视什么是错的

修改

代理：

ISyncer = interface(IInvokable)
  ['{D46862B0-BDD3-8B80-35A8-A2AC69F24713}']
    function  Test(const a: String): String; stdcall;
  end;

呼叫：

Sync:=(dmMain.HTTPRIO1 as ISyncer);
test:=Sync.Test('5555');

dmMain.HTTPRIO1在选项中包含soLiteralParams：

INIT：

InvRegistry.RegisterInvokeOptions(TypeInfo(ISyncer), ioLiteral);

通话结束后，我收到消息的异常：

Error deserializtion message body for operation Test. 
Operation formatter detects ivalid message body. Expecting node type "Element"
with name "Test" and namespace "http://tempuri.org". Actually node type "Element"
with name "xsd:String" and namespace "http://w3.org/2001/XMLSchema"

wsdl片段：

<xsd:element name="Test">
−
<xsd:complexType>
−
<xsd:sequence>
<xsd:element minOccurs="0" name="a" nillable="true" type="xsd:string"/>
</xsd:sequence>
</xsd:complexType>
</xsd:element>
−
<xsd:element name="TestResponse">
−
<xsd:complexType>
−
<xsd:sequence>
<xsd:element minOccurs="0" name="TestResult" nillable="true" type="xsd:string"/>
</xsd:sequence>
</xsd:complexType>
</xsd:element>

EDIT2

我研究http请求：

.NET

<Test> xmlns="http://tempuri.org/"><a>5555</a></Test>

工作正确;

Delph7

<Test xmlns="http://tempuri.org/"><xsd:a>5555</xsd:a></Test>

null输入参数。问题出在前缀 xsd

中

Answer 1

Delphi使用RPC / Encoded SOAP，而WCF使用Document / Literal / Wrapped SOAP。所以你需要告诉Delphi使用相同的格式。您可以通过在soLiteralParams中指定THttpRio.Converter.Options来执行此操作。

Answer 2

我做到了。我通过事件处理程序在THttpRio的BeforeExecute上修复每个服务消耗的soap信封。

我修复（删除名称空间前缀）并且它可以工作。感谢

WCF Delphi7方法输入参数

2 个答案: