delphi调用webservice服务

我用delphi的THTTPRIO控件调用了c#写的webservice。

下面是我调试时遇到的一些问题：

1，导入wsdl文件：file--new----other----wenservice---WSDLimporter---输入wsdl地址:如下:http://10.0.1.128:7777/ShineMediaPublish/WebService/WebServiceCall.asmx?wsdl

注意末尾的：'？wsdl'不能少。要不可能会说找不到。

2，设置THTTPRIO控件的属性：

开始把http://10.0.1.128:7777/ShineMediaPublish/WebService/WebServiceCall.asmx?wsdl赋给了wsdlLocation属性。连接时总是报错。

后来赋给URL属性，就不报错了。

3，传递参数是web服务端总为空：

在导入的接口单元的声明部分添加如下代码：

InvRegistry.RegisterInvokeOptions(TypeInfo(WebServiceCallSoap),ioDocument);//其中红色部分为导入接口名称。

下面是客户端的简单代码：

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, InvokeRegistry, StdCtrls, Rio, SOAPHTTPClient,WebServiceCall;

type

TForm1 = class(TForm)

htpr1: THTTPRIO;

edt1: TEdit;

btn1: TButton;

procedure btn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);

var

s:WideString;

begin

s:='打分得分';

edt1.Text:=(htpr1 as WebServiceCallSoap).OperaterLogin('1','dd',s);//operaterLogin为接口方法。

end;

end.