DELPHI盒子
!实时搜索: 盒子论坛 | 注册用户 | 修改信息 | 退出
检举帖 | 全文检索 | 关闭广告 | 捐赠
技术论坛
 用户名
 密  码
自动登陆(30天有效)
忘了密码
≡技术区≡
DELPHI技术
lazarus/fpc/Free Pascal
移动应用开发
Web应用开发
数据库专区
报表专区
网络通讯
开源项目
论坛精华贴
≡发布区≡
发布代码
发布控件
文档资料
经典工具
≡事务区≡
网站意见
盒子之家
招聘应聘
信息交换
论坛信息
最新加入: namnvh
今日帖子: 2
在线用户: 6
导航: 论坛 -> Web应用开发 斑竹:bodies  
作者:
男 bird13 (13) ★☆☆☆☆ -
普通会员
2024/4/22 15:27:28
标题:
idhttp问题求助 浏览:325
加入我的收藏
楼主: 我用Get方法获取网页数据,只能取到变量名怎么办?
网址:hash=01d8f67a50926d17b1ae53b5ebf9f3c187133977cd1bdc3a3c9d3bcf8a60ab7840&bill_num=11264343&total_amount=30000

 <div class="row">
        <div class="label">发票代码</div>   
        <div class="value">{bill_code}</div>
    </div>
    <div class="row">
        <div class="label">发票号码</div>   
        <div class="value">{bill_num}</div>
    </div>
    <div class="row">
        <div class="label">销货方名称</div>   
        <div class="value">{seller_name}</div>
    </div>
----------------------------------------------
-QQ:1379585
作者:
男 myy (myy) ★☆☆☆☆ -
盒子活跃会员
2024/4/22 15:50:33
1楼: 一定还有个获取数据的URL,用那个URL拿到纯数据。
----------------------------------------------
-
作者:
男 bird13 (13) ★☆☆☆☆ -
普通会员
2024/4/22 16:24:42
1楼: https://bcfp.shenzhen.chinatax.gov.cn/verify/scan?hash=01d8f67a50926d17b1ae53b5ebf9f3c187133977cd1bdc3a3c9d3bcf8a60ab7840&bill_num=11264343&total_amount=30000
网址没发完整,才发现,这个是电子发票读取的
----------------------------------------------
-QQ:1379585
作者:
男 bahamut8348 (leonna) ★☆☆☆☆ -
普通会员
2024/4/22 18:48:50
2楼: 用了模板的,跟踪一下,js里肯定还有请求数据的动作,找到对应的请求动作剥出来就行了。
----------------------------------------------
--
作者:
男 keymark (嬲) ▲▲▲△△ -
普通会员
2024/4/22 19:03:57
3楼: F12就能看到
----------------------------------------------
[alias]  co = clone --recurse-submodules  up = submodule update --init --recursiveupd = pullinfo = statusrest = reset --hard懒鬼提速https://www.cctry.com/>http://qalculate.github.io/downloads.htmlhttps://www.cctry.com/
作者:
男 bird13 (13) ★☆☆☆☆ -
普通会员
2024/4/23 9:13:28
4楼: 2楼的大佬能给个例子吗?我百度没找到到相关内容。
----------------------------------------------
-QQ:1379585
作者:
男 tuesdays (Tuesday) ▲▲▲▲△ -
普通会员
2024/4/23 10:07:29
5楼: POST  https://bcfp.shenzhen.chinatax.gov.cn/dzswj/bers_ep_web/query_bill_detail
此帖子包含附件:
PNG 图像
大小:48.8K
----------------------------------------------
delphi界写python最强, python界写delphi最强. 写自己的代码, 让别人去运行.
作者:
男 bird13 (13) ★☆☆☆☆ -
普通会员
2024/4/23 10:50:10
6楼: 感谢大佬们帮助,总算学到了
此帖子包含附件:
PNG 图像
大小:21.0K
----------------------------------------------
-QQ:1379585
作者:
男 tuesdays (Tuesday) ▲▲▲▲△ -
普通会员
2024/4/23 10:53:41
7楼: @bird13 
代码分享出来啊.
----------------------------------------------
delphi界写python最强, python界写delphi最强. 写自己的代码, 让别人去运行.
作者:
男 bird13 (13) ★☆☆☆☆ -
普通会员
2024/4/23 11:00:25
8楼: 大佬,我水平有限就直接在网上抄了,再次感谢您!
procedure TForm3.RzBitBtn1Click(Sender: TObject);
var
  s: string;
  stm: TStringStream; //接收返回内容
  send:TStringList;   //post的内容
begin
  send:=TStringList.Create;

  send.Text:='tx_hash=01d8f67a50926d17b1ae53b5ebf9f3c187133977cd1bdc3a3c9d3bcf8a60ab7840';
  send.add('bill_num=11264343'); //也可以按照不同的参数赋值
  send.add('total_amount=30000');
  stm := TStringStream.Create(s, TEncoding.UTF8);

  stm.Position := 0;
  try
    IdHTTP1.Post('https://bcfp.shenzhen.chinatax.gov.cn/dzswj/bers_ep_web/query_bill_detail', send , stm);
    rzmemo1.Lines.Text:=stm.DataString; //服务端返回的内容
  except
    exit;
  end;
  stm.Free;
  send.free;
end;
----------------------------------------------
-QQ:1379585
信息
登陆以后才能回复
Copyright © 2CCC.Com 盒子论坛 v3.0.1 版权所有 页面执行80.07813毫秒 RSS