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;

  • 相关阅读:
    Codeforces 691A Fashion in Berland
    HDU 5741 Helter Skelter
    HDU 5735 Born Slippy
    HDU 5739 Fantasia
    HDU 5738 Eureka
    HDU 5734 Acperience
    HDU 5742 It's All In The Mind
    POJ Euro Efficiency 1252
    AtCoder Beginner Contest 067 C
    AtCoder Beginner Contest 067 D
  • 原文地址:https://www.cnblogs.com/hnxxcxg/p/8796589.html
Copyright © 2011-2022 走看看