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.
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).
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.
'd' : RecupererPrevisionDemiJour(P.Jour, N);
'n' : RecupererPrevisionDemiJour(P.Nuit, N);
Merci.
A plus... :)
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.