捐赠 | 广告 | 注册 | 发布 | 上传 | 关于我们    
  沪ICP备05001939号 DELPHI盒子 | 盒子论坛 | 盒子文章 | 盒子问答悬赏 | 最新更新 | 论坛检索 | 下载中心 | 高级搜索    
  精品专区 | 繁體中文 | 奖励公告栏 | 直通车账号登陆 | 关闭GOOGLE广告 | 临时留言    
盒子资源分类
全部展开 - 全部合拢
手机号段在线查询功能
关键字：手机号段 在线 查询
来　自：原创
平　台：Win2k/XP/NT,Win2003,Vista,win7 下载所需：0 火柴
深浅度：中级 完成时间：2011/10/31
发布者：luweilove 发布时间：2011/11/4
编辑器：DELPHI7 语　　种：简体中文
分　类：网络 下载浏览：2228/10612
加入到我的收藏
下载错误报错
登陆以后才能下载
 用户名：
 密　码：
自动登陆(30天有效)
图片如果打不开，说明流量不够了，请稍候下载……
软件集成手机号段在线查询功能，随手写了一个，共享上来，菜鸟级别，大鸟请飘过，没有版权，你懂的
以后上传点东西，给盒子添点人气，大富翁都挂了，盒子要挺住！
Google
 
本站原创作品，未经作者许可，严禁任何方式转载；转载作品，如果侵犯了您的权益，请联系我们！
龙脉加密锁 15元起 Grid++Report 报表 申请支付@网
　相关文章
没有相关文章
相关评论
共有评论7条 当前显示最后6条评论
skaly 2011/11/14 14:57:13
我给大家来个直接的：

网易有道IP, 手机号, 身份证好归属地查询API接口

http://www.youdao.com/smartresult-xml/search.s?type=ip&q=ip地址

GET后返回XML数据, 包含原IP及归属地.

此外type还可以: mobile(手机号), id(身份证). 尚未发现有限制.
huw 2011/12/16 14:43:05
好像普遍都下载不了，管理员这种问题么？
luweilove 2012/8/8 14:14:02
感谢 skaly 我试了下，很好
luweilove 2012/8/8 15:32:35
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, NativeXml, IdBaseComponent, IdComponent,
  IdTCPConnection, IdTCPClient, IdHTTP;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Memo1: TMemo;
    IdHTTP1: TIdHTTP;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
    function PostData(Atype: Integer; AValue: string): string;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Edit1.Clear;
  Edit2.Clear;
  Edit3.Clear;
  Button1.Caption := '查询';
  Button2.Caption := '查询';
  Button3.Caption := '查询';
  Memo1.Clear;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  xml: TNativeXml;
begin
  if Edit1.Text <> EmptyStr then
  begin
    xml := TNativeXml.Create(nil);
    try
      xml.ReadFromString(UTF8Encode(PostData(0, Edit1.Text)));
      with Memo1.Lines do
      begin
        Add('type:' + xml.Root.NodeByName('product').AttributeByName['type'].Value);
        Add('ip:' + xml.Root.NodeByName('product').NodeByName('ip').ValueUnicode);
        Add('location:' + xml.Root.NodeByName('product').NodeByName('location').ValueUnicode);
      end;
    finally
      xml.Free;
    end;
  end;
end;

{----------
  过程名:    TForm1.PostData
  功能:      查询函数
  作者:
  日期:      2012.08.08
  参数:      Atype: Integer（0：ip 1：手机 2：身份证）; AValue: string      
  返回值:    string
----------}

function TForm1.PostData(Atype: Integer; AValue: string): string;
var
  ParamLst: TStrings;
const
  Url = 'http://www.youdao.com/smartresult-xml/search.s'; //?type=%s&q=%s
begin
  ParamLst := TStringList.Create;
  try
    case Atype of
      0: ParamLst.Add('type=ip');
      1: ParamLst.Add('type=mobile');
      2: ParamLst.Add('type=id');
    end;
    ParamLst.Add('q=' + AValue);
    Result := IdHTTP1.Post(Url, ParamLst);
  finally
    ParamLst.Free;
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  xml: TNativeXml;
begin
  if Edit2.Text <> EmptyStr then
  begin
    xml := TNativeXml.Create(nil);
    try
      xml.ReadFromString(UTF8Encode(PostData(1, Edit2.Text)));
      with Memo1.Lines do
      begin
        Add('type:' + xml.Root.NodeByName('product').AttributeByName['type'].Value);
        Add('phonenum:' + xml.Root.NodeByName('product').NodeByName('phonenum').ValueUnicode);
        Add('location:' + xml.Root.NodeByName('product').NodeByName('location').ValueUnicode);
      end;
    finally
      xml.Free;
    end;
  end;
end;

procedure TForm1.Button3Click(Sender: TObject);
var
  xml: TNativeXml;
begin
  if Edit3.Text <> EmptyStr then
  begin
    xml := TNativeXml.Create(nil);
    try
      xml.ReadFromString(UTF8Encode(PostData(2, Edit3.Text)));
      with Memo1.Lines do
      begin
        Add('type:' + xml.Root.NodeByName('product').AttributeByName['type'].Value);
        Add('code:' + xml.Root.NodeByName('product').NodeByName('code').ValueUnicode);
        Add('location:' + xml.Root.NodeByName('product').NodeByName('location').ValueUnicode);
        Add('birthday:' + xml.Root.NodeByName('product').NodeByName('birthday').ValueUnicode);
        Add('gender:' + xml.Root.NodeByName('product').NodeByName('gender').ValueUnicode);
      end;
    finally
      xml.Free;
    end;
  end;
end;

end.
----------
object Form1: TForm1
  Left = 271
  Top = 203
  Width = 335
  Height = 278
  Caption = 'ip、手机号、身份证查询'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel
    Left = 56
    Top = 24
    Width = 24
    Height = 12
    Caption = 'ip：'
  end
  object Label2: TLabel
    Left = 32
    Top = 64
    Width = 48
    Height = 12
    Caption = '手机号：'
  end
  object Label3: TLabel
    Left = 20
    Top = 104
    Width = 60
    Height = 12
    Caption = '身份证号：'
  end
  object Edit1: TEdit
    Left = 81
    Top = 22
    Width = 121
    Height = 20
    TabOrder = 0
    Text = 'Edit1'
  end
  object Edit2: TEdit
    Left = 81
    Top = 61
    Width = 121
    Height = 20
    TabOrder = 1
    Text = 'Edit2'
  end
  object Edit3: TEdit
    Left = 81
    Top = 99
    Width = 121
    Height = 20
    TabOrder = 2
  end
  object Button1: TButton
    Left = 216
    Top = 19
    Width = 75
    Height = 25
    Caption = 'Button1'
    TabOrder = 3
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 216
    Top = 57
    Width = 75
    Height = 25
    Caption = 'Button2'
    TabOrder = 4
    OnClick = Button2Click
  end
  object Button3: TButton
    Left = 216
    Top = 95
    Width = 75
    Height = 25
    Caption = 'Button3'
    TabOrder = 5
    OnClick = Button3Click
  end
  object Memo1: TMemo
    Left = 0
    Top = 136
    Width = 319
    Height = 104
    Align = alBottom
    Lines.Strings = (
      'Memo1')
    TabOrder = 6
  end
  object IdHTTP1: TIdHTTP
    MaxLineAction = maException
    ReadTimeout = 0
    AllowCookies = True
    ProxyParams.BasicAuthentication = False
    ProxyParams.ProxyPort = 0
    Request.ContentLength = -1
    Request.ContentRangeEnd = 0
    Request.ContentRangeStart = 0
    Request.ContentType = 'text/html'
    Request.Accept = 'text/html, */*'
    Request.BasicAuthentication = False
    Request.UserAgent = 'Mozilla/3.0 (compatible; Indy Library)'
    HTTPOptions = [hoForceEncodeParams]
    Left = 152
    Top = 128
  end
end
delphi_wjl 2013/1/21 16:53:22
出现：NativeXml这个单元不存在哦，多谢！
lovezyp 2013/11/7 15:07:24
感谢提供地址，不过http://www.youdao.com/smartresult-xml/search.s已经失效了
我要发表评论 查看全部评论
 
  DELPHI盒子版权所有 1999-2023 V4.01 粤ICP备10103342号-1 更新RSS列表