VOTRE MÉTÉO VILLE AVEC GOOGLE MÉTÉO!

Commentaire de Patrice99 le 27/06/2009 10:53:10

Pas mal. Tu peux également supprimer le dossier obj et le fichier .suo
Voir aussi : www07.wolframalpha.com/input/?i=weather+paris

Commentaire de dsigmoun le 22/07/2009 15:03:46

lorsque que je choisit la ville d'evreux, j'ai une erreur : "il est un caractère non valide dans le code donné. Ligne 1, position 171

Est-ce que cela peut venir du retour du nom de la ville avec un É ?

<xml_api_reply version="1">
?
<weather module_id="0" tab_id="0" mobile_row="0" mobile_zipped="1" row="0" section="0">
?
<forecast_information>
<city data="Évreux, Upper-Normandy"/>
<postal_code data="evreux"/>
<latitude_e6 data=""/>
<longitude_e6 data=""/>
<forecast_date data="2009-07-22"/>
<current_date_time data="2009-07-22 12:41:00 +0000"/>
<unit_system data="SI"/>
</forecast_information>
?
<current_conditions>
<condition data="Averses"/>

...

Commentaire de dsigmoun le 29/07/2009 16:57:31

Voici comment avoir les informations en français et éviter les plantages liés au format d'encodage du retour du flux.


Dim fluxmeteo As String
Dim webResponse As System.Net.WebResponse = Nothing
Dim path As String = "http://www.google.com/ig/api?hl=fr&weather=" & ville
              
' Création de la request et demande de la response
webResponse = System.Net.WebRequest.Create(Path) _
               .GetResponse()
Dim streamReader As New System.IO.StreamReader(WebResponse.GetResponseStream())
fluxmeteo = streamReader.ReadToEnd()
WebResponse.Close()
              

System.IO.File.WriteAllText(Application.StartupPath & "/temps/fluxmeteo.xml", fluxmeteo, System.Text.Encoding.Unicode)
Doc.Load(Application.StartupPath & "/temps/fluxmeteo.xml")

Commentaire de manulegosny le 08/12/2009 16:44:26

Après recherche, il 'suffisait' de faire :

Dim url As New Uri(path)
Dim Request As HttpWebRequest = CType(HttpWebRequest.Create(url), System.Net.HttpWebRequest)
Request.UserAgent = "Mozilla/5.0 (Windows; U; Windows NT 5.1; fr; rv:1.8.0.7) Gecko/20060909 Firefox/1.5.0.7"
Dim response As Net.HttpWebResponse = CType(request.GetResponse(), Net.HttpWebResponse)

etc..