zoukankan      html  css  js  c++  java
  • mormot解析天气预报JSON数据

    mormot解析天气预报JSON数据

    uses
    SynCommons;

    const
    json2 = '{' + #13#10 +
    '"error":0,' + #13#10 +
    '"status":"success",'+ #13#10 +
    '"date":"2014-03-04",'+ #13#10 +
    '"results":'+ #13#10 +
    '[{"currentCity":"成都",'+ #13#10 +
    ' "weather_data":['+ #13#10 +
    '{'+ #13#10 +
    '"date":"周二(今天, 实时:12℃)",'+ #13#10 +
    '"dayPictureUrl":"http://api.map.baidu.com/images/weather/day/duoyun.png",'+ #13#10 +
    '"nightPictureUrl":"http://api.map.baidu.com/images/weather/night/duoyun.png",'+ #13#10 +
    '"weather":"多云",'+ #13#10 +
    '"wind":"北风微风",'+ #13#10 +
    '"temperature":"15 ~ 6℃"'+ #13#10 +
    '},'+ #13#10 +
    '{'+ #13#10 +
    '"date":"周三",'+ #13#10 +
    '"dayPictureUrl":"http://api.map.baidu.com/images/weather/day/yin.png",'+ #13#10 +
    '"nightPictureUrl":"http://api.map.baidu.com/images/weather/night/xiaoyu.png",'+ #13#10 +
    '"weather":"阴转小雨",'+ #13#10 +
    '"wind":"北风微风",'+ #13#10 +
    '"temperature":"14 ~ 7℃"'+ #13#10 +
    '},'+ #13#10 +
    '{'+ #13#10 +
    '"date":"周四",'+ #13#10 +
    '"dayPictureUrl":"http://api.map.baidu.com/images/weather/day/xiaoyu.png",'+ #13#10 +
    '"nightPictureUrl":"http://api.map.baidu.com/images/weather/night/xiaoyu.png",'+ #13#10 +
    '"weather":"小雨",'+ #13#10 +
    '"wind":"北风微风",'+ #13#10 +
    '"temperature":"12 ~ 7℃"'+ #13#10 +
    '},'+ #13#10 +
    '{'+ #13#10 +
    '"date":"周五",'+ #13#10 +
    '"dayPictureUrl":"http://api.map.baidu.com/images/weather/day/xiaoyu.png",'+ #13#10 +
    '"nightPictureUrl":"http://api.map.baidu.com/images/weather/night/xiaoyu.png",'+ #13#10 +
    '"weather":"小雨",'+ #13#10 +
    '"wind":"南风微风",'+ #13#10 +
    '"temperature":"9 ~ 6℃"'+ #13#10 +
    '}'+ #13#10 +
    ']'+ #13#10 +
    '}'+ #13#10 +
    ']}';

    procedure TForm1.Button5Click(Sender: TObject);
    var
    doc: variant;
    json: RawUTF8;
    begin
    doc := _JsonFast(JSON2); // json还原为variant
    Memo1.Clear;
    Memo1.Lines.Add(doc.error); // 0
    Memo1.Lines.Add(doc.status); // success
    Memo1.Lines.Add(doc.date); // 2014-03-04
    Memo1.Lines.Add(doc.results._(0).currentCity); // 成都
    Memo1.Lines.Add(doc.results._(0).weather_data._(0).date); // 周二(今天, 实时:12℃)
    end;

  • 相关阅读:
    day14_oracle数据库备份
    day13_存储过程小记
    day13_先沃联盟定时任务
    day13_自动抽取数据——监控存储过程
    [笔记]《HTTP权威指南》- 实体和编码
    [笔记]《白帽子讲Web安全》- Web框架安全
    [笔记]《Vue移动开发实战技巧》- Vue-router使用
    WPF与Win32互操作
    [翻译]HTML5
    学习资料收藏
  • 原文地址:https://www.cnblogs.com/hnxxcxg/p/8796589.html
Copyright © 2011-2022 走看看