用程序判斷一個QQ號碼是否在線、是否存在（delphi調用webService）

  剛寫了一個程序，用delphi具體步驟如下：

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