易语言调用ip2region - 精易论坛

窗口程序集名	保留	保留	备注
ip2region
变量名	类型	数组	备注
qqwry数据	字节集		qqwry文件内容
sPtr	整数型		第一条ip记录的偏移地址
ePtr	整数型		最后一条IP记录的偏移地址
VectorIndexCols	整数型
VectorIndexSize	整数型
SegmentIndexSize	整数型

子程序名	返回值类型	公开	备注
_初始化			当基于本类的对象被创建后，此方法会被自动调用

子程序名	返回值类型	公开	备注
_销毁			当基于本类的对象被销毁前，此方法会被自动调用

qqwry数据＝ { }

子程序名	返回值类型	公开	备注
初始化
参数名	类型	参考	可空	数组	备注
IP文件数据	字节集

qqwry数据＝ IP文件数据
VectorIndexSize ＝ 8
VectorIndexCols ＝ 256
SegmentIndexSize ＝ 14

子程序名	返回值类型	公开	备注
IP	文本型
参数名	类型	参考	可空	数组	备注
IP地址	文本型

变量名	类型	静态	数组	备注
ipInt	长整数型
l	整数型
u	整数型
m	整数型
p	整数型
buff	字节集
sip	长整数型
eip	长整数型
dataLen	短整数型
dataPtr	长整数型
bin	字节集

ipInt ＝ ip2long (IP地址)

如果真 (ipInt ＝ 0)

返回 (“未知IP”)

l ＝ 0
u ＝ (ePtr － sPtr) ÷ SegmentIndexSize

判断循环首 (l ≤ u)

m ＝到整数 ( (l ＋ u) ÷ 2) ' 计算近似中间记录

p ＝ sPtr ＋ m × SegmentIndexSize

buff ＝取字节集中间 (qqwry数据, p ＋ 1, 14)

sip ＝取字节集数据 (取字节集中间 (buff, 0, 4), #长整数型, )

判断 (ipInt ＜ sip) ' 用户的IP小于中间记录的开始IP地址时

u ＝ m － 1

eip ＝取字节集数据 (取字节集中间 (buff, 5, 4), #长整数型, ) ' 获取中间记录的结束IP地址

判断 (ipInt ＞ eip)

l ＝ m ＋ 1

dataLen ＝取字节集数据 (取字节集中间 (buff, 9, 1), #短整数型, ) ' 字符长度

dataPtr ＝取字节集数据 (取字节集中间 (buff, 11, 4), #长整数型, ) ' 字符位置

' str ＝取字节集数据 (取字节集中间 (qqwry数据, dataPtr ＋ 1, dataLen), #文本型, )

bin ＝取字节集中间 (qqwry数据, dataPtr ＋ 1, dataLen) ' cha询出来的结果

返回 (到文本 (文本编码转换 (bin, , )))

判断循环尾 ()
返回 (“cha询失败”)

子程序名	返回值类型	公开	备注
ip2long	长整数型
参数名	类型	参考	可空	数组	备注
IP地址	文本型

变量名	类型	静态	数组	备注
IP	文本型		0
idx	长整数型
指针	整数型

IP ＝分割文本 (IP地址, “.”, )

如果真 (取数组成员数 (IP) ≠ 4)

返回 (0)
idx ＝到数值 (IP [1]) × VectorIndexCols × VectorIndexSize ＋到数值 (IP [2]) × VectorIndexSize
sPtr ＝取字节集数据 (取字节集中间 (qqwry数据, idx ＋ 256 ＋ 1, 8), #长整数型, )
ePtr ＝取字节集数据 (取字节集中间 (qqwry数据, idx ＋ 256 ＋ 5, 8), #长整数型, )
返回 (到数值 (IP [4]) ＋到数值 (IP [3]) × 256 ＋到数值 (IP [2]) × 求次方 (256, 2) ＋到数值 (IP [1]) × 求次方 (256, 3))

i支持库列表	支持库注释
e2ee	E2EE互联网服务器套件

.版本 2<br />
.支持库 e2ee<br />
<br />
.程序集 ip2region<br />
.程序集变量 qqwry数据, 字节集, , , qqwry文件内容<br />
.程序集变量 sPtr, 整数型, , , 第一条ip记录的偏移地址<br />
.程序集变量 ePtr, 整数型, , , 最后一条IP记录的偏移地址<br />
.程序集变量 VectorIndexCols, 整数型<br />
.程序集变量 VectorIndexSize, 整数型<br />
.程序集变量 SegmentIndexSize, 整数型<br />
<br />
.子程序 _初始化, , , 当基于本类的对象被创建后，此方法会被自动调用<br />
<br />
<br />
<br />
.子程序 _销毁, , , 当基于本类的对象被销毁前，此方法会被自动调用<br />
<br />
qqwry数据 ＝ {  }<br />
<br />
.子程序 初始化, , 公开<br />
.参数 IP文件数据, 字节集<br />
<br />
qqwry数据 ＝ IP文件数据<br />
VectorIndexSize ＝ 8<br />
VectorIndexCols ＝ 256<br />
SegmentIndexSize ＝ 14<br />
<br />
.子程序 IP, 文本型, 公开<br />
.参数 IP地址, 文本型<br />
.局部变量 ipInt, 长整数型<br />
.局部变量 l, 整数型<br />
.局部变量 u, 整数型<br />
.局部变量 m, 整数型<br />
.局部变量 p, 整数型<br />
.局部变量 buff, 字节集<br />
.局部变量 sip, 长整数型<br />
.局部变量 eip, 长整数型<br />
.局部变量 dataLen, 短整数型<br />
.局部变量 dataPtr, 长整数型<br />
.局部变量 bin, 字节集<br />
<br />
ipInt ＝ ip2long (IP地址)<br />
.如果真 (ipInt ＝ 0)<br />
    返回 (“未知IP”)<br />
.如果真结束<br />
<br />
l ＝ 0<br />
u ＝ (ePtr － sPtr) ÷ SegmentIndexSize<br />
.判断循环首 (l ≤ u)<br />
    m ＝ 到整数 ((l ＋ u) ÷ 2)  ' 计算近似中间记录<br />
    p ＝ sPtr ＋ m × SegmentIndexSize<br />
    buff ＝ 取字节集中间 (qqwry数据, p ＋ 1, 14)<br />
    sip ＝ 取字节集数据 (取字节集中间 (buff, 0, 4), #长整数型, )<br />
    .判断开始 (ipInt ＜ sip)  ' 用户的IP小于中间记录的开始IP地址时<br />
        u ＝ m － 1<br />
    .默认<br />
        eip ＝ 取字节集数据 (取字节集中间 (buff, 5, 4), #长整数型, )  ' 获取中间记录的结束IP地址<br />
        .判断开始 (ipInt ＞ eip)<br />
            l ＝ m ＋ 1<br />
        .默认<br />
            dataLen ＝ 取字节集数据 (取字节集中间 (buff, 9, 1), #短整数型, )  ' 字符长度<br />
            dataPtr ＝ 取字节集数据 (取字节集中间 (buff, 11, 4), #长整数型, )  ' 字符位置<br />
            ' str ＝ 取字节集数据 (取字节集中间 (qqwry数据, dataPtr ＋ 1, dataLen), #文本型, )<br />
            bin ＝ 取字节集中间 (qqwry数据, dataPtr ＋ 1, dataLen)  ' cha询出来的结果<br />
            返回 (到文本 (文本编码转换 (bin, , )))<br />
        .判断结束<br />
<br />
    .判断结束<br />
<br />
.判断循环尾 ()<br />
返回 (“cha询失败”)<br />
<br />
<br />
.子程序 ip2long, 长整数型<br />
.参数 IP地址, 文本型<br />
.局部变量 IP, 文本型, , "0"<br />
.局部变量 idx, 长整数型<br />
.局部变量 指针, 整数型<br />
<br />
IP ＝ 分割文本 (IP地址, “.”, )<br />
.如果真 (取数组成员数 (IP) ≠ 4)<br />
    返回 (0)<br />
.如果真结束<br />
idx ＝ 到数值 (IP [1]) × VectorIndexCols × VectorIndexSize ＋ 到数值 (IP [2]) × VectorIndexSize<br />
sPtr ＝ 取字节集数据 (取字节集中间 (qqwry数据, idx ＋ 256 ＋ 1, 8), #长整数型, )<br />
ePtr ＝ 取字节集数据 (取字节集中间 (qqwry数据, idx ＋ 256 ＋ 5, 8), #长整数型, )<br />
返回 (到数值 (IP [4]) ＋ 到数值 (IP [3]) × 256 ＋ 到数值 (IP [2]) × 求次方 (256, 2) ＋ 到数值 (IP [1]) × 求次方 (256, 3))

子程序名	返回值类型	公开	备注
_临时子程序

变量名	类型	静态	数组	备注
ip	ip2region
时间	整数型

' 本名称子程序用作测试程序用，仅在开发及调试环境中有效，编译发布程序前将被系统自动清空，请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。
ip.初始化 (读入文件 (“ip2region.xdb”))
输出调试 (取程序名称 (1), ip.IP (“127.0.0.1”))
时间＝取启动时间 ()
输出调试 (取程序名称 (1), ip.IP (“120.4.167.70”))
调试输出 (取启动时间 () －时间)

i支持库列表	支持库注释
e2ee	E2EE互联网服务器套件
spec	特殊功能支持库