Europe Weather

plunderisley · 05-06-2008, 03:52 PM

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?

Griff1 · 05-06-2008, 03:58 PM

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.

mscar · 05-09-2008, 08:01 AM

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 · 05-09-2008, 08:34 AM

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