用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.