用程序判断一个QQ号码是否在线、是否存在(delphi调用webService)
2013-04-06 15:38
951 查看
腾讯提供了webservice的接口,可以通过程序判断qq号码是否存在、是否在线等信息。
其webservice接口的地址为:http://www.webxml.com.cn/webservices/qqOnlineWebService.asmx,这里有解释,通过qqCheckOnline返回字符串,Y = 在线;N = 离线;E = QQ号码错误;A = 商业用户验证失败;V = 免费用户超过数量。
刚写了一个程序,用delphi具体步骤如下:
1、新建project1,Form1
2、file--new----other----webservice---WSDLimporter---输入wsdl地址:http://www.webxml.com.cn/webservices/qqOnlineWebService.asmx?wsdl
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号所做的限制吧。
其webservice接口的地址为:http://www.webxml.com.cn/webservices/qqOnlineWebService.asmx,这里有解释,通过qqCheckOnline返回字符串,Y = 在线;N = 离线;E = QQ号码错误;A = 商业用户验证失败;V = 免费用户超过数量。
刚写了一个程序,用delphi具体步骤如下:
1、新建project1,Form1
2、file--new----other----webservice---WSDLimporter---输入wsdl地址:http://www.webxml.com.cn/webservices/qqOnlineWebService.asmx?wsdl
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号所做的限制吧。
相关文章推荐
- 用程序判断一个QQ号码是否在线、是否存在(delphi调用webService)
- 编写一个程序:输入一个身份证号,判断该号码对应的人是否是18至25岁女孩,是则输出”yes”,否则输出”no”
- Delphi 中实现判断某个外部程序是否运行(如果运行则执行一个命令否则执行一个命令)
- 用c++编写一段完整代码,要求判断一个进程(例如qq.exe)是否存在,若存在,输出存在,不存在就输出不存在。
- 一个判断oicq是否在线的小程序
- js判断QQ是否在线(一个很小的知识点)
- 【C】函数相关的程序--判断一个数是否为素数,某年是否是闰年,调用一次函数将参数值加1
- (1)任务描述 编写一个程序:输入一个身份证号,判断该号码对应的人是否是18至25岁女孩,是则输出”yes”,否则输出”no” (2)功能要求 ①输入一行给出正整数N(<= 100)是输入的身份证号码
- 编写一个程序:输入一个身份证号,判断该号码对应的人是否是18至25岁,是则输出”yes”,否则输出”no”。
- 函数调用判断一个年份是否为闰年及程序的继续与结束
- 当获取相似数据时,使用不同方法调用不同sp,但是使用同一个方法去用IIDataReader或者SqlDataReader读取数据时需要判断column name是否存在。
- java swing调用webservice实现qq在线查询是否在线
- 使用SAAJ调用qq是否在线的webservice
- 在delphi中如何判断一个文件正在被其它的程序或进程所调用?
- 汇编语言: 从键盘上输入一串字符(用回车键结束,使用 10 号功能调用。)放在 STRING 中,试 编制一个程序测试字符串中是否存在数字。如有,则把 CL 的第 5 位置 1,否则将该位置置 0。
- python 判断一个进程是否存在
- jquery and js 判断一个元素是否存在
- js 判断一个元素是否存在
- 对于一个整数矩阵,存在一种运算,对矩阵中任意元素加一时,需要其相邻(上下左右),某一个元素也加一,现给出一正数矩阵,判断其是否能够由一个全零矩阵经过上述运算得到。
- jquery和js如何判断一个对象是否存在