Données via blitzortung.tmt.de/Data_1/Protected/strikes.txt
-
Bonjour,
J'utilise habituellement http://nom:pass@blitzortung.tmt.de/Data_1/Protected/strikes.txt pour récupérer les données mais cette adresse ne fonctionne plus. Y a t'il une solution de remplacement? -
A mon avis il ont supprimer l'ancien système de données. Il faut donc utiliser le nouveau.
-
Ok c'est bien dommage car ce txt donnait toutes les infos pour les utiliser ensuite avec un script php qui lui aussi a disparu du site blitzortung rubrique services > Miscellaneous.
Il ny' a plus que cet extrait d'exemple:$username= "User";
$password= "xxxxxxxx";
//
$map= 'http://www.blitzortung.org/Maps/F_Florida_-92.0_-76.0_38.0_24.3.png';
$west= -92.0;
$north= 38.0;
$east= -76;
$south= 24.3;
//
$region= "3";
$time_interval= 7200;
$local_strokes_file= '/var/www/Tmp/Strokes';
$tmp_strokes_file= '/var/www/Tmp/Strokes_tmp';
//
$font_file_bold= '/usr/share/fonts/truetype/ttf-dejavu/DejaVuSans-Bold.ttf';
$font_file= '/usr/share/fonts/truetype/ttf-dejavu/DejaVuSans.ttf';
$font_size_1= 10;
$font_size_2= 8;
$font_size_3= 7;
Mais ca nécessite de tout recoder pour utiliser les données brutes "raw data"! Un peu abusé cette évolution... -
Oui surtout que l'url des raw data change en permanence suivant la date et l'heure. Il faudrait un script pour télécharger les dernière données afin de les exploiter sur son serveur perso.
-
Essaies un coup si ça convient :
[code]<?php
$username= "";
$password= "";
$name="strikes.txt";
$region="1";
$strokes_dir= 'http://' . $username . ':' . $password . '@blitzortung.net/Data_' . $region . '/Protected/Strokes/';$end_time= time();
$time_interval= 7200;
$l_time=$end_time-$time_interval;
$run_time= $l_time;
$filename= $strokes_dir . gmdate("Y/m/d/H/",$run_time) . $run_time/600%6 . '0.log';$content = file_get_contents($filename);
$file = fopen($name, "w+");
fputs($file, $content);
fclose($file);?>[/code]
-
Hello,
Pour mon SFLOC2008, qui génère certaines cartes, comme sur le site de lightningradar ou chasseurs-orages, l'adaptation c'est terminée vers 2H... soit 6 heures de boulot.
[img]http://users.telenet.be/danielv38//Lightning_radar/picture4t.jpg[/img]
Noaa couplé à blitzortung
Finalement, c'est pas si mal comme technique.
S'il y a des candidats pour les sources en .net... souffler dans la buse.
Amicalement
Dan -
Bonjour,
Personnellement, j'utilise ça :[code]
$temps = time()-(3600*(date("I")+1));
$mdp="";
$password="";for($i=0; $i<=11;$i++) { $annee = date("Y", $temps-($i*600)); $mois = date("m", $temps-($i*600)); $jour = date("d", $temps-($i*600)); $heure = date("H", $temps-($i*600)); $min = (floor(date("i", $temps-($i*600))/10))*10; if($min<10) $min="0".$min; @copy("http://$mdp:$password@data.blitzortung.org/Data_1/Protected/Strokes/$annee/$mois/$jour/$heure/$min.log", "Temp/strikes-$i.txt"); if(!file_exists("Temp/strikes-$i.txt")) { $file = fopen("Temp/strikes-$i.txt", "a"); fclose($file); } $file = fopen("Temp/strikes.txt", "a"); $data = fopen("Temp/strikes-$i.txt", "r"); while (!feof($data)) { $page .= fgets($data, 60); } fputs($file, $page); fclose($file); fclose($data); $page=""; } unset($temps); unset($i); unset($annee); unset($mois); unset($jour); unset($heure); unset($min); unset($file); unset($data); unset($page); $dat=date("Ymd"); $heure2="".date("H")."H".date("i"); $font2 = imageloadfont('Config/Font/ecriture_titre.gdf'); for($typecarte=1;$typecarte<=5;$typecarte++) // Type de carte { $t=explode(" ",TypeCarte($typecarte)); $nomcarte=str_replace("_", " ", $t[1]); $cartebase=$t[0]; $ouest=$t[2]; $nord=$t[3]; $est=$t[4]; $sud=$t[5]; unset($t); $comm="Carte des impacts - $nomcarte"; echo "\r\n Carte des impacts - $nomcarte $cartebase"; // copy image if($typecarte!=7) $img= imagecreatefrompng("Config/Cartes/vide.png"); else $img= imagecreatefrompng("Config/Cartes/vide-2.png"); $img_X= imagesx($img); $img_Y= imagesy($img); // colors $noir = imagecolorallocate($img, 0, 0, 0); $c1 = imagecolorallocate($img, 255, 255, 255); $c2 = imagecolorallocate($img, 255, 255, 0); $c3 = imagecolorallocate($img, 255, 170, 0); $c4 = imagecolorallocate($img, 255, 85, 0); $c5 = imagecolorallocate($img, 255, 0, 0); $c6 = imagecolorallocate($img, 191, 0, 0); $heure= time(); $File= fopen ("Temp/strikes.txt", "r"); $strikes=0; while (!feof($File)) { fscanf ($File,"%d-%d-%d %d:%d:%s %s", $year, $mon, $day, $hour, $min, $sec, $l); $pos=explode(";", $l); $lat=$pos[1]; $lon=$pos[2]; $heure_impact= mktime($hour, $min, $sec, $mon, $day, $year)+3600+(3600*date("I")); if (($lon >= $ouest)&&($lon <= $est)&&($lat <= $nord)&&($lat >= $sud)) { $strikes++; $x=($img_X/($est-$ouest))*($lon-$ouest); $y=$img_Y-(($lat-$sud)*($img_Y/($nord-$sud))); if ($heure-$heure_impact < 1200) $couleur= $c1; else if ($heure-$heure_impact < 2400) $couleur= $c2; else if ($heure-$heure_impact < 3600) $couleur= $c3; else if ($heure-$heure_impact < 4800) $couleur= $c4; else if ($heure-$heure_impact < 6000) $couleur= $c5; else $couleur= $c6; ImageFilledEllipse ($img, $x, $y, 7, 7, $couleur); ImageEllipse ($img, $x, $y, 7, 7, $noir); } } fclose ($File);
[/code]
Il est pas complet et utilisé comme tel, ne fonctionnera pas, mais ce script permet de télécharger, mettre en forme et détecter la date et l'emplacement des impacts.
Thomas -
Intéressant tout cela,je voudrais créer une page internet avec localisation de l'utilisateur et affichage des données.
pour la localisation c'est simple mais le reste.....
Position pour smartphone [url=http://www.meteofontenay.fr/gps1.html]ici[/url] -
Voici la version vb.net (visual studio 2005) => FrameWork 2.0
[size=85]
[code]
Imports System.IOPublic Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim OffSetGmt As Integer = -2 ' offset entre l'heure locale et GMT... bien faire attention ici !!! ' Usage ("L'heure GMT actuelle", "nombre de tranche de 10 minutes souhaitées") SFlocLoadTOA(Now().AddHours(OffSetGmt), 6) End Sub Sub SFlocLoadTOA(ByVal GmtTime As DateTime, ByVal ArrayStop As Integer) ' Ajoute le 28/02/2014 suite à un changement du protocole ' Maintenant les données sont disponibles qu'en paquet de 10 minutes ' La procédure ici ne télécharge que les anciennes valeurs, le fichier de la dizaine entamée n'est pas téléchargé ' Déclaration des variables Dim Sfloc() As String Dim Boucle As Integer Dim Boucle3 As Integer Dim ArrayAnnee As New ArrayList Dim ArrayMois As New ArrayList Dim ArrayJour As New ArrayList Dim ArrayHeure As New ArrayList Dim ArrayMinute As New ArrayList Dim MonGmtTime As DateTime = GmtTime Dim ErrorMessage As String = "" Dim UrlUpDate As String = "" Dim Essai As Integer = 0 ' Url utilisée actuellement Dim url As String = "http://data.blitzortung.org/Data_1/Protected/Strokes/%annee%/%mois%/%jour%/%heure%/%minute%.log" Dim UserName As String = "User Account" Dim PassWord As String = "Password" ' Recherche de minute multiple de dix Do While Mid(MonGmtTime.ToString("mm"), 2, 1) <> "0" MonGmtTime = MonGmtTime.AddMinutes(-1) Loop ' Retire 10 minutes car la butée est le début et non la fin dans les fichiers MonGmtTime = MonGmtTime.AddMinutes(-10) ' Génération des array des heures sur 24 heures pour chaques 10 minutes For Boucle3 = 0 To 143 ArrayAnnee.Add(MonGmtTime.AddMinutes(-Boucle3 * 10).ToString("yyyy")) ArrayMois.Add(MonGmtTime.AddMinutes(-Boucle3 * 10).ToString("MM")) ArrayJour.Add(MonGmtTime.AddMinutes(-Boucle3 * 10).ToString("dd")) ArrayHeure.Add(MonGmtTime.AddMinutes(-Boucle3 * 10).ToString("HH")) ArrayMinute.Add(MonGmtTime.AddMinutes(-Boucle3 * 10).ToString("mm")) Next ' Test devrait correspondre au dernier fichier terminé disponible sur le serveur Dim test As String = ArrayAnnee(0) & "/" & ArrayMois(0) & "/" & ArrayJour(0) & " " & ArrayHeure(0) & ":" & _ ArrayMinute(0) ' GUI mise à jour TextBox1.Text = "Download in progress, please wait..." : TextBox1.Refresh() ' Efface le fichier de sortie afin de partir sur une nouvelle base If My.Computer.FileSystem.FileExists("BlitzortungDataOutput.txt").ToString = True Then Kill("BlitzortungDataOutput.txt") ' Boucle de téléchargement, on commence par le fichier plus petit en heure For Boucle3 = ArrayStop - 1 To 0 Step -1 'Préparation de l'URL UrlUpDate = url UrlUpDate = UrlUpDate.Replace("%annee%", ArrayAnnee(Boucle3)) UrlUpDate = UrlUpDate.Replace("%mois%", ArrayMois(Boucle3)) UrlUpDate = UrlUpDate.Replace("%jour%", ArrayJour(Boucle3)) UrlUpDate = UrlUpDate.Replace("%heure%", ArrayHeure(Boucle3)) UrlUpDate = UrlUpDate.Replace("%minute%", ArrayMinute(Boucle3)) ' Efface le fichier temporaire de la requet de l'url If My.Computer.FileSystem.FileExists("TemporyOutput.txt").ToString = True Then Kill("TemporyOutput.txt") ' Deux essais sont engagés avant d'abandonner Essai = 0 Do While Essai <> 2 Try ' La requête est engagée My.Computer.Network.DownloadFile(UrlUpDate, "TemporyOutput.txt", UserName, PassWord, True, 60000, True) TextBox1.Text = "Download part of date: " & ArrayAnnee(Boucle3) & "/" & ArrayMois(Boucle3) & "/" & _ ArrayJour(Boucle3) & " " & ArrayHeure(Boucle3) & ":" & ArrayMinute(Boucle3) & ":00 (Part " & _ ArrayStop - (Boucle3) & " of " & ArrayStop & ") " : TextBox1.Refresh() Catch ex As Exception ' S'il y a une erreur, on log l'erreur LogWrite("") LogWrite("Problem to download the TOA data from the Blitzortung server") LogWrite("SYS msg = " & ex.Message) LogWrite("URL used is : " & UrlUpDate) ErrorMessage = ex.Message TextBox1.Text = ex.Message : TextBox1.Refresh() End Try 'Vérifie que le fichier temporaire est bien sorti, sinon on retente If My.Computer.FileSystem.FileExists("TemporyOutput.txt").ToString = True Then 'Chargement du fichier temporaire dans la mémoire Sfloc = File.ReadAllLines("TemporyOutput.txt") 'Ouverture en mode append du fichier de sortie FileOpen(1, "BlitzortungDataOutput.txt", OpenMode.Append) For boucle = 0 To Sfloc.Length - 1 PrintLine(1, Sfloc(boucle)) Next FileClose(1) ' Effacement du fichier temporaire, sinon la requête sera bloquée car le fichier existe déjà Kill("TemporyOutput.txt") ' Le fichier était présent, donc on fixe à 2 pour sortir de la boucle Essai = 2 TextBox1.Text = TextBox1.Text & " complete" ' Laisse un mot dans le log LogWrite("Download part of date: " & ArrayAnnee(Boucle3) & "/" & ArrayMois(Boucle3) & "/" & _ ArrayJour(Boucle3) & " " & ArrayHeure(Boucle3) & ":" & ArrayMinute(Boucle3) & ":00 (Part " & _ (ArrayStop - Boucle3) & " of " & ArrayStop & ") ") ' Petite temporisation de 2 secondes avant de continuer hbwait(2000) Else ' Zut, le premier essai a raté, on incrément de 1 pour le second essai Essai = Essai + 1 ' Petite temporisation de 5 secondes avant de continuer hbwait(5000) End If Loop Next TextBox1.Text = "Execution done" : TextBox1.Refresh() End Sub Sub LogWrite(ByVal text As String) FileOpen(2, "Sfloc_Err.log", OpenMode.Append) PrintLine(2, Now.ToString("HH:mm:ss dd/MM/yyyy : ") & text) FileClose(2) End Sub Friend Sub hbwait(ByVal ms_to_wait As Long) Dim endwait As Double endwait = Environment.TickCount + ms_to_wait While Environment.TickCount < endwait System.Threading.Thread.Sleep(1) Application.DoEvents() End While End Sub
End Class
[/code]
[/size]
[size=100]Le concepteur de vue[/size]
[size=85]
[code]
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Form1
Inherits System.Windows.Forms.Form'Form remplace la méthode Dispose pour nettoyer la liste des composants. <System.Diagnostics.DebuggerNonUserCode()> _ Protected Overrides Sub Dispose(ByVal disposing As Boolean) Try If disposing AndAlso components IsNot Nothing Then components.Dispose() End If Finally MyBase.Dispose(disposing) End Try End Sub 'Requise par le Concepteur Windows Form Private components As System.ComponentModel.IContainer 'REMARQUE : la procédure suivante est requise par le Concepteur Windows Form 'Elle peut être modifiée à l'aide du Concepteur Windows Form. 'Ne la modifiez pas à l'aide de l'éditeur de code. <System.Diagnostics.DebuggerStepThrough()> _ Private Sub InitializeComponent() Me.TextBox1 = New System.Windows.Forms.TextBox Me.Button1 = New System.Windows.Forms.Button Me.SuspendLayout() ' 'TextBox1 ' Me.TextBox1.Location = New System.Drawing.Point(12, 42) Me.TextBox1.Name = "TextBox1" Me.TextBox1.Size = New System.Drawing.Size(383, 20) Me.TextBox1.TabIndex = 0 ' 'Button1 ' Me.Button1.Location = New System.Drawing.Point(13, 13) Me.Button1.Name = "Button1" Me.Button1.Size = New System.Drawing.Size(139, 23) Me.Button1.TabIndex = 1 Me.Button1.Text = "Button1" Me.Button1.UseVisualStyleBackColor = True ' 'Form1 ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(415, 83) Me.Controls.Add(Me.Button1) Me.Controls.Add(Me.TextBox1) Me.Name = "Form1" Me.Text = "Form1" Me.ResumeLayout(False) Me.PerformLayout() End Sub Friend WithEvents TextBox1 As System.Windows.Forms.TextBox Friend WithEvents Button1 As System.Windows.Forms.Button
End Class
[/code]
[/size]