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

    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号所做的限制吧。