用程序判断一个QQ号码是否在线、是否存在(de

页面导航:首页 > 软件编程 > Delphi > 用程序判断一个QQ号码是否在线、是否存在(de

用程序判断一个QQ号码是否在线、是否存在(de

来源: 作者: 时间:2016-01-18 15:42 【

刚写了一个程序,用delphi具体步骤如下: 1、新建project1,Form1 2、file--new----other----webservice---WSDLimporter--- 3、此时创建了一个qqOnlineWebService.pas文件,文件结尾处的Initialize只有两行...

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

    1、新建project1,Form1

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

initialization
  InvRegistry.RegisterInterface(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号所做的限制吧。

 

Tags:

文章评论

最 近 更 新
热 点 排 行
Js与CSS工具
代码转换工具

<