Announcement

Collapse
No announcement yet.

Europe Weather

Collapse
X
  • Filter
  • Time
  • Show
Clear All
new posts

  • Europe Weather

    I can't seem to get the weather part to work right in RR. I enter my city/country just how its listed on weather.com and nothing.
    Any way to fix it?

  • #2
    RR's weather component doesn't work anymore,this just happened today so we'll just have to wait and see if guino can fix it.
    P4 2.8 HT, 512Mb Ram, 60Gb 2.5 HD, M4-ATX, SB Audigy2, BU353, Lilliput TS,Soundgraph Imon VFD,SONY Optiarc dvd Burner,RideRunner, iGo8, Custom Freedom 2.1

    Comment


    • #3
      Simple remove in Function SearchWeather the & "&prod=xoap&par=1009410524&key=c8350c85242b427 8"

      OLD:
      Respond = GetString("http://xoap.weather.com/weather/local/" & StrID & "?cc=*" & StrDaysf & "&unit=" & unit & "&prod=xoap&par=1009410524&key=c8350c85242b427 8")


      FIXED:
      Respond = GetString("http://xoap.weather.com/weather/local/" & StrID & "?cc=*" & StrDaysf & "&unit=" & unit)


      The weather.com doesn't need the key code anymore .
      :: MSCAR ::
      .:: Multimedia System Car ::.

      Comment


      • #4
        I WAS WRONG !!! LOL.

        Were the new correct license parameter :

        "&link=xoap&prod=xoap&par=1009410524&key=c8350c852 42b4278"

        OLD:
        Respond = GetString("http://xoap.weather.com/weather/local/" & StrID & "?cc=*" & StrDaysf & "&unit=" & unit & "&prod=xoap&par=1009410524&key=c8350c85242b427 8")

        FIXED:
        Respond = GetString("http://xoap.weather.com/weather/local/" & StrID & "?cc=*" & StrDaysf & "&unit=" & unit & "link=xoap&prod=xoap&par=1009410524&key=c8350c8524 2b4278")


        The fixed Function :

        Code:
        Public Function SearchWeather(ByVal StrID As String, Optional DaysF As Boolean = True, Optional unit As String = "m", Optional Map As Boolean = True) As String
        
        Dim Respond As String
        Dim StrDaysf As String
        Dim StrMap As String
        Dim WFIle As String
        Dim tfile As Integer
        Dim WeatherLicense As String
        
        SearchWeather = ""
        WeatherStrUnit = unit
        WFIle = MyPath & "myweather.xml"
        
        If DaysF = True Then StrDaysf = "&dayf=5"
        WeatherLicense = "&link=xoap&prod=xoap&par=1009410524&key=c8350c85242b4278"
        
        Respond = GetString("http://xoap.weather.com/weather/local/" & StrID & "?cc=*" & StrDaysf & "&unit=" & unit & WeatherLicense)
        
        If Respond <> "" Then
            If FileExists(WFIle) = True Then Kill WFIle
            tfile = FreeFile
            Open WFIle For Output As #tfile
                Print #tfile, Respond
            Close #tfile
            DoEvents
            If FileExists(WFIle) = True Then Call GetWeatherInfo(WFIle)
            SearchWeather = Respond
        Else
            If FileExists(WFIle) = True Then Call GetWeatherInfo(WFIle)
            SearchWeather = Respond
        End If
        
        End Function
        :: MSCAR ::
        .:: Multimedia System Car ::.

        Comment

        Working...
        X