Récupérer la méteo du site weather.com et l'afficher sur son bureau

5/5 (39 avis)

Vue 43 913 fois - Téléchargée 3 353 fois

Description

Suite à une question sur le forum DelphiFR, http://www.delphifr.com/infomsg/CONNECTER-WEATHER-COM-POUR-RECEVOIR-METEO-REGION-PREDEFINIE-3_664373.aspx, voici un composant qui interroge le serveur wheater.com et récupère les informations et prévisions météo d'une région donnée.

Wheather.com actualise les conditions courantes toutes les 30mn et les prévisions pour les jours suivants toutes les 12h.

Les textes fournis par le serveur sont malheureusement en anglais. Le composant intègre un petit système de traduction 'mot à mot' en fonction d'un fichier "dictionnaire.ini" qu?il faudra compléter.

J?ai trouvé les icônes sur http://www.samurize.com/modules/ipboard/index.php?showtopic=3857, mais ils sont au format PNG qui n?est pas reconnu par Delphi. J?au dû utiliser la librairie http://www.lischke-online.de (je remercie l?auteur) que j?ai placée dans le zip. Décompactez la librairie et déplacer les fichiers dans le chemin du projet pour pouvoir compiler. Les icônes doivent être placés dans un dossier « Images » dans le répertoire de l?application, sinon changer la partie Initialization de FMeteos.

Conclusion :


Vous pouvez déplacer la fenêtre avec la souris, sa position est enregistrée dans le fichier Meteo.ini.

Avec un clic droit et le menu popup vous pouvez :

- Activer l?AlphaBlending avec apparition progressive de la fenêtre lorsque le curseur de la souris entre et la disparition progressive lorsqu?il sort. La valeur min de l?alphablending est enregistrée dans le fichier de configuration Meteo.ini
- Changer la localité
- Quitter l?application

Si quelqu?un a des talents de dessinateur et dessine une image sympa de fond pour la fenêtre, ça m?intéresse.

Codes Sources

A voir également

Ajouter un commentaire Commentaires
poulinr
Messages postés
32
Date d'inscription
mardi 14 novembre 2000
Statut
Membre
Dernière intervention
6 mai 2006

3 avril 2006 à 20:34
Re-re-re

Voilà j'ai compris. Après 14hr la prédiction de la journée devient celle de la soirée ou nuit. Ainsi, en mettant Prevision1.MontrerPrevision(Previsions.Jours[0]); la prévision de la journée est valide jusqu'à 14hr. Après cette heure il faut passer en mode 'nuit' sur l'affichage (autrement on obtient N/A).
poulinr
Messages postés
32
Date d'inscription
mardi 14 novembre 2000
Statut
Membre
Dernière intervention
6 mai 2006

3 avril 2006 à 09:51
Encore moi ...

Ou ça serait ceci:

Before 2 PM Local Time:
- Display Day 0 ?day? Day-part as ?Today?
- Display Day 0 ?night? Day-part as ?Tonight?
After 2 PM Local Time:
- Display Day 0 ?night? Day-part as ?Tonight?
- Display Day 1 ?day? Day-part as ?Tomorrow?

DONC:

Avant 2PM on a la prévision de la journée (day 0)
Et la prévision de la soirée même journée

Après 2 PM on affiche alors la prévision pour la soirée seulement
(ou aussi celle du lendemain au besoin)

-------------------------

Il m'apparait donc que tu n'as pas sortie cette prévision de la soirée pour avant 2PM. Est-ce exact?

Merci.
poulinr
Messages postés
32
Date d'inscription
mardi 14 novembre 2000
Statut
Membre
Dernière intervention
6 mai 2006

3 avril 2006 à 09:22
De retour avec ce code que me tenaille :)) J'ai remarqué qu'on pouvait prendre la prévision pour la demi-journée, ce que tu as fait d'ailleurs et appelé le procédure TDemiPrevision. Maintenant, ce que j'aimerais, est d'afficher cette demi-prévision (où l'est-elle déjà?) .. par exemple, tôt le matin on afficherait la prévision de l'après-midi (même journée) ... Je ne sais pas si je m'exprime bien? Bref, ce que je cherche, est d'avoir le matin la prévision pour plus tard dans la même journée .. (après-midi ou soirée) .. et non pas seulement la température courrante et les prévisions du lendemain, du surlendemain (c.a.d: Previsions.Jours[1]), Previsions.Jours[2])) etc. etc. Est-ce posssible selon la compréhension que tu as des prévisions de 'weather'? Et concrètement, cela a-t-il à voir avec cette partie du code:

'd' : RecupererPrevisionDemiJour(P.Jour, N);
'n' : RecupererPrevisionDemiJour(P.Nuit, N);

Merci.
poulinr
Messages postés
32
Date d'inscription
mardi 14 novembre 2000
Statut
Membre
Dernière intervention
6 mai 2006

31 mars 2006 à 22:21
J'ai moi aussi modifié le code .... que j'aime bcp. J'ai corrigé pour la liste des villes avec espace et introduit une liste à choisir, mis une image au choix pour le fond (qui bientôt va changer selon la température actuelle). Ajouté une option pour réduire la fiche a seulement le nom de la ville et Temp.



A plus... :)
regismarion
Messages postés
22
Date d'inscription
jeudi 22 mai 2003
Statut
Membre
Dernière intervention
29 mai 2008

30 mars 2006 à 14:59
Bonjour après quelques recherches j'ai ajouté à cet excellent code 'affichage nocturne automatique,
un baromètre avec situation en cours (anticyclone etc..),mis au point l'affichage des phases lunaires
acquisition de la photo satellite'
si éventuellement quelqu'un veut le source modifié merçi de me passer un mail (avec les dossiers images 9 Mo)
A+

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.