抗击新冠，紧急求救，PB调用API获取手机号所在地

fcydj1984 2020-01-27 07:18:05
很多患者来源时并不说自己时武汉的，直到确诊才承认，近期一直导致几十名医生护士被隔离。为提醒同事对武汉患者重点关注，想做一个查手机号归属的接口。

http://mobsec-dianhua.baidu.com/dianhua_api/open/location?tel=15375284321

这个地址可以调通，但是我用Pb+HTTP方式调用提示

<html>
<head>
<title>Status page</title>
</head>
<body style="font-family: sans-serif;">
<p style="font-size: 1.2em;font-weight: bold;margin: 1em 0px;">Forbidden</p>
<p>The server understood the request, but is refusing to fulfill it</p>
<p>You can get technical details <a href="http://www.w3.org/Protocols/rfc2616/rfc2616-sec10.html#sec10.4.4">here</a>.<br>
Please continue your visit at our <a href="/">home page</a>.
</p>
</body>
</html>

调用方法

String ls_ret
Integer li_ret
Long ll_len
Blob lbob_data
String ls_header,gs_url,resultdata
long gl_port
string ls_result
integer li_rc
string ls_url
gs_url = "http://mobsec-dianhua.baidu.com/dianhua_api/open/location?"
gl_port=80

inet linet_main
n_cst_internet luo_data // internetresult的实例

linet_main = CREATE inet
luo_data = CREATE n_cst_internet
//创建ole对象
OleObject ioo_com
ioo_com = Create OleObject
li_ret = ioo_com.ConnectToNewObject("PB115.n_unf8togbk")
If li_ret <> 0 Then
Destroy ioo_com
End if

String as_data,as_Err


as_data = "tel=" +'15375284208'

//as_data += "s01" + "&"
//as_data += "ACCESS_TOKEN=" + as_text


li_rc = GetContextService('internet',linet_main)
if li_rc<>1 then
as_Err='创建Internet服务失败'
End IF
//messagebox('GetContextService',string(li_rc))
If li_rc = 1 Then
//lbob_data = ioo_com.uf_gbktoutf8(as_data) //Blob(as_data)
lbob_data = Blob(as_data,EncodingUTF8!)
ll_len = Len(lbob_data)

//每个头key和value之间用冒号分隔，每对头之间空格分隔，头信息之后两个换行
ls_header = "Content-Type:application/x-www-form-urlencoded~n"
ls_header += "Content-Length:" + String(ll_len) + "~n~n"


li_rc = linet_main.PostURL(gs_url, lbob_data,ls_header,gl_port,luo_data)
//messagebox('PostURL',string(li_rc))
If li_ret <> 1 Then
ls_ret = "-1"
//Goto Process_end
End If
ls_ret = luo_data.is_data
End If

String ls_ret1
//ls_ret1 = ioo_com.uf_utf8togbk(luo_data.iblob_data)
//mle_1.Text = luo_data.is_data
if li_rc <1 then messagebox('发生错误',string(li_rc))
SetPointer(Arrow!)
//messagebox('',string(luo_data.is_data))

//messagebox('',string(li_rc))
string ls_text
long ll_return
resultdata = luo_data.is_data
ll_return=pos(resultdata,':')
ls_text=right(resultdata,len(resultdata)-ll_return -1)
ll_return=pos(ls_text,'"')
ls_text=left(ls_text,ll_return -1)
//mle_1.text=ls_text

Destroy ioo_com
//Process_end:
Destroy luo_data
Destroy linet_main

//mle_1.Text = mle_1.Text + '~r~n' + ls_ret
return 0


直接run网页呢，就提示下载josn

跪求解决。
...全文
928 6 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
柯芺 2020-02-18
  • 打赏
  • 举报
 回复
引用 5 楼 fcydj1984 的回复:
[quote=引用 2 楼 柯芺的回复:]//自定义函数：f_telephonehome(电话号码)
//传入参数：as_Phone

string ls_url,ls_Web
n_internetresult n_ir
inet inet_base

inet_base = Create inet
n_ir = CREATE n_internetresult

ls_url = 'http://mobsec-dianhua.baidu.com/dianhua_api/open/location?tel=' + as_Phone

inet_base.GetURL(ls_url,n_ir)

ls_Web = n_ir.is_data
ls_Web = mid(ls_Web,POS(ls_Web,'"location":"') + 12,len(ls_Web))
ls_Web = mid(ls_Web,1,POS(ls_Web,'"') - 1)

return ls_Web

结贴给分吧，呵呵:)

当天已经有人指点解决了，感谢您，但是不能给分。[/quote]

还是应该结贴的：）
fcydj1984 2020-02-16
  • 打赏
  • 举报
 回复
引用 2 楼 柯芺的回复:
//自定义函数：f_telephonehome(电话号码)
//传入参数：as_Phone

string ls_url,ls_Web
n_internetresult n_ir
inet inet_base

inet_base = Create inet
n_ir = CREATE n_internetresult

ls_url = 'http://mobsec-dianhua.baidu.com/dianhua_api/open/location?tel=' + as_Phone

inet_base.GetURL(ls_url,n_ir)

ls_Web = n_ir.is_data
ls_Web = mid(ls_Web,POS(ls_Web,'"location":"') + 12,len(ls_Web))
ls_Web = mid(ls_Web,1,POS(ls_Web,'"') - 1)

return ls_Web

结贴给分吧，呵呵:)
当天已经有人指点解决了，感谢您，但是不能给分。
fcydj1984 2020-02-16
  • 打赏
  • 举报
 回复
引用 3 楼 qj_198127的回复:
现在手机归属地已经没有意义，必须采用大数据跟踪
呵呵哒，你觉得医院能轻易获得患者的大数据？一个省的大数据中心都获取不到完整的信息用于分析，你指望一个医院能有？妄谈大数据的不是蠢就是蠢。
qj_198127 2020-02-16
  • 打赏
  • 举报
 回复
现在手机归属地已经没有意义，必须采用大数据跟踪
柯芺 2020-02-11
  • 打赏
  • 举报
 回复
//自定义函数：f_telephonehome(电话号码)
//传入参数：as_Phone

string ls_url,ls_Web
n_internetresult n_ir
inet inet_base

inet_base = Create inet
n_ir = CREATE n_internetresult

ls_url = 'http://mobsec-dianhua.baidu.com/dianhua_api/open/location?tel=' + as_Phone

inet_base.GetURL(ls_url,n_ir)

ls_Web = n_ir.is_data
ls_Web = mid(ls_Web,POS(ls_Web,'"location":"') + 12,len(ls_Web))
ls_Web = mid(ls_Web,1,POS(ls_Web,'"') - 1)

return ls_Web

结贴给分吧，呵呵:)
菜鸟--\(˙<>˙)/--战斗机 2020-01-28
  • 打赏
  • 举报
 回复
用pb调取提示什么错误？
如何调用API接口获取数据
下面以调用丁香园的API接口获取新冠疫情数据为例。 丁香园提供的API接口及说明如下： 调用该API接口获取数据的代码如下： import requests import json import pandas as pd #以requests.get方式调用API接口，获取JSON格式的数据 data=requests.get(url=‘https://lab.isaaclin.cn/nCoV/api/area’) data=data.json() res=data[‘results’] #获取键名为
【蓝桥杯国赛真题05】Scratch抗击新冠肺炎病毒 少儿编程scratch蓝桥杯国赛真题讲解过程
【蓝桥杯国赛05】Scratch抗击新冠肺炎 少儿编程scratch蓝桥杯国赛真题和答案讲解 scratch抗击新冠肺炎 一、题目要求 1、背景信息： 抗击新冠肺炎，隔离是非常重要的手段之一。通过隔离，可以最大限度地缩小污染范围，减少病毒传播机会。 2、编程实现 通过程序模拟在新冠肺炎传播过程中，采取隔离手段和不采取隔离手段的对比效果。白色小人代表健康人群，红色小人代表感染病毒人群。 3、具体要求 1）左侧为不带隔离区的情况，右侧为带有隔离区的情况，左侧和右侧区各有一个计时器，计时器初始值为
人工智能技术在抗击新冠肺炎疫情中大显身手
作为一门高新技术，人工智能(AI)在医疗健康领域，尤其在抗击新冠肺炎(COVID-19)疫情中身手不凡，发挥着非常重要的作用。正如我国著名学者周海中教授曾经指出的那样：随着社会的发展和科技的进步，人工智能技术将在医疗健康领域大显身手。 新冠肺炎是近百年来人类遭遇的影响范围最广的全球性大流行病，对全世界是一次严重危机和严峻考验。面对前所未知、突如其来、来势汹汹的疫情天灾，不少科研人员纷纷应用诸多技术手段来抗击疫情;其中人工智能技术已成为这场防疫抗疫攻坚战的有力武器之一。 例如，我国华中科技大学的研究团
新冠肺炎国内外数据实时API接口
这个是从丁香园和百度疫情获取的两套疫情数据，使用Springboot封装了一下，对外提供API接口，数据包括： 国内疫情数据 全球疫情数据 疫情最新资讯 其中丁香园包含了各种JPG格式的图表 百度包含今日疫情热搜等 百度包含了疫情历史数据 具体数据大家可以下载代码，本地跑一下Springboot，查看。 地址：https://github.com/alastbing/covid-19...
新冠肺炎api
2019-nCov-api 新冠肺炎api 前言 本项目通过爬取腾讯、新浪、丁香园等疫情数据，获取新冠肺炎相关数据，并整合为api数据，做法简单粗暴，类似于端口转发。数据包含口罩预约、同乘车辆、疫情小区、数据分析、国内外详细数据、实时新闻动态、确诊人员信息流动轨迹、疫情谣言等。 当前接口部署到我自己的乞丐服务器上面的，可能速度有点慢，希望且用且珍惜。 github地址：https://github...
API 调用

680

社区成员

4,762

社区内容

发帖
与我相关
我的任务
社区描述
PowerBuilder API 调用
社区管理员
  • API 调用社区
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章