zoukankan      html  css  js  c++  java
  • delphi调用webservice服务

     
    分类: delphi技术

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

  • 相关阅读:
    操作系统要点总结
    ARP的通信过程
    判断网段、子网、网络号
    C++要点总结
    枚举类型
    C指针总结
    C运算符总结
    替换空格
    WCF编写时候的测试
    WCF创建到使用到发布
  • 原文地址:https://www.cnblogs.com/zhangzhifeng/p/2128846.html
Copyright © 2011-2022 走看看