WebService调用http://www.webxml.com.cn中的一些服务示例

1.打开http://www.webxml.com.cn网站下的“全部WebService”,会看到如下图的图片

 

2.点击打开WSDL连接，如下图，并保存为一个后缀名为wsdl文件，放在项目的根目录下

 

  3.点击菜单“Component-Import WSDL”,弹出导出WSDL窗口，把上面产生文件的文件地址填入到框中，如下图

4.点击“Next”直到产生一MobileCodeWS.pas文件，此文件用于让客户端调用的接口文件.加入此文件的引用。如下为主图界面

  

5.打开MobileCodeWS.pas可以看到defURL  = 'http://webservice.webxml.com.cn/WebServices/MobileCodeWS.asmx'，把此URL加入到HTTPRIO1的URL中，用URL主要是减少网络的流量

6.查询按钮代码为：

  

procedure TForm1.Button1Click(Sender: TObject);
var
  s:string;
begin
  if Length(Trim(Edit1.Text))=0 then
    exit;
  s:=  (HTTPRIO1 as MobileCodeWSSoap).getMobileCodeInfo(Trim(Edit1.Text),'');
  ShowMessage(s);
end;

7.随意输入一个最少7位的手机号，如下图：