delphi 天气预报

  var
    astream : tmemorystream;
    sStream : TStringStream;
    jv : TJSONValue;
  begin
    astream := tmemorystream.Create;
    sStream := TStringStream.Create( ‘‘, tencoding.UTF8 );

    self.NetHTTPClient1.Get( ‘http://www.weather.com.cn/adat/sk/101010100.html‘,
      astream );
    sStream.CopyFrom( astream, astream.Size );
    self.Caption := sStream.Size.ToString( );
    Memo1.Text := sStream.DataString;

    jv := TJSONObject.ParseJSONValue( Memo1.Text ) as TJSONValue;
    self.Caption := jv.GetValue( ‘weatherinfo‘, ‘‘ );
    freeandnil( sStream );
    freeandnil( astream );
  end;