当前位置:编程学习 > Delphi >>

用程序判断一个QQ号码是否在线、是否存在(delphi调用webService)

  刚写了一个程序,用delphi具体步骤如下:

    1、新建project1,Form1

    2、file--new----other----webservice---WSDLimporter---
    3、此时创建了一个qqOnlineWebService.pas文件,文件结尾处的Initialize只有两行,需修改为:

initialization
  InvRegistry.RegisterInte易做图ce(TypeInfo(qqOnlineWebServiceSoap), 'http://WebXml.com.cn/', 'utf-8');
  InvRegistry.RegisterInvokeOptions(TypeInfo(qqOnlineWebServiceSoap), ioDocument);
  InvRegistry.RegisterDefaultSOAPAction(TypeInfo(qqOnlineWebServiceSoap), 'http://WebXml.com.cn/qqCheckOnline');


    这里的中间一行是需要自己手动加进去的,否则运行会失败。

    4、在Form1里面加按钮button1,编辑框edit1,输入代码:

procedure TForm1.Button1Click(Sender: TObject);
var
  statusQuery:qqOnlineWebServiceSoap;
  state:string;
begin
  statusQuery:=GetqqOnlineWebServiceSoap;
  state:=statusQuery.qqCheckOnline(edit1.text);
  ShowMessage(state);
end;


    弹出的框所显示的信息即为此QQ号的信息。没交钱的用户只能查询几百个,这是腾讯为了防止有易做图量查询qq号所做的限制吧。

 

补充:软件开发 , Delphi ,
CopyRight © 2022 站长资源库 编程知识问答 zzzyk.com All Rights Reserved
部分文章来自网络,