AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Projekte kleines Wetter-Programm
Thema durchsuchen
Ansicht
Themen-Optionen

kleines Wetter-Programm

Ein Thema von markus5766h · begonnen am 9. Jun 2009 · letzter Beitrag vom 4. Feb 2011
Antwort Antwort
Seite 4 von 5   « Erste     234 5      
Benutzerbild von markus5766h
markus5766h
Registriert seit: 5. Mär 2009
Hallo,
hab' hier ein kleines Programm, welches
per Nutzung der Daten vom DWD die Wetterdaten anzeigt.

Hinweis: nach dem Programmstart tut sich erst mal 1 Minute (Voreinstellung) gar nichts.
Das Intervall bis zur ersten Datenaktualisierung lässt sich in den Einstellungen festlegen.
Diese Option ist für den Autostart gedacht, da beim Start von Windows so einiges auf's
Netzwerk zugreift (Virenscanner, Mailchecker... und wie auch immer) - um hier nicht noch
zur Belastung beizutragen, kann diese Intervalleinstellung genutzt werden.

Nachtrag : aus dem dreiteiligem Archiv ist jetzt eins geworden (Komprimierung der
Bilddateien ohne nenneswerten Qualitätsverlust)

02.02.2010 Quellcode und Fremdkomponenten sind hinzugefügt
von Simon Reinhardt (P.I.C.S) sind die Buttons, die auch als Hintergrund verwendet werden,
desweiteren wird noch die Komponente CoolTryIcon verwendet : alles im Ordner Fremdkomponenten

- der Quellcode ist nicht optimiert, Verwendung als "as is"
Miniaturansicht angehängter Grafiken
screenshot1_126.jpg   screenshot2_165.jpg  
Angehängte Dateien
Dateityp: rar wetterv6_181.rar (1,62 MB, 298x aufgerufen)
Dateityp: rar wetter_185.rar (1,65 MB, 237x aufgerufen)
 
Benutzerbild von markus5766h
markus5766h

 
Delphi XE8 Professional
 
#31
  Alt 10. Jun 2009, 10:34
@R2009

die daten vom Wetterdienst hole ich mir per UrlDownloadToFile.
danach entferne ich mittels folgender Funktion die UTF-8 Bytes
und habe danach einen Text, den ich dann nach den entspr. Werten durchsuchen kann.

Delphi-Quellcode:
function StripHTMLTags(const strHTML: string): string;
var
  P: PChar;
  InTag: Boolean;
  i, intResultLength: Integer;
begin
  P := PChar(strHTML);
  Result := '';

  InTag := False;
  repeat
    case P^ of
      '<': InTag := True;
      '>': InTag := False;
      #13, #10: ; {do nothing}
      else
        if not InTag then
        begin
          if (P^ in [#9, #32]) and ((P+1)^ in [#10, #13, #32, #9, '<']) then
          else
            Result := Result + P^;
        end; // end else begin
    end; // end case of
    Inc(P);
  until (P^ = #0); // until..repeat

  Result := StringReplace(Result, '&quot;', '"', [rfReplaceAll]);
  Result := StringReplace(Result, '&apos;', '''', [rfReplaceAll]);
  Result := StringReplace(Result, '>', '>', [rfReplaceAll]);
  Result := StringReplace(Result, '<', '<', [rfReplaceAll]);
  Result := StringReplace(Result, '&amp;', '&', [rfReplaceAll]);
  Result := StringReplace(Result, 'ä', 'ä', [rfReplaceAll]);
  Result := StringReplace(Result, 'ü', 'ü', [rfReplaceAll]);
  Result := StringReplace(Result, 'ß', 'ß', [rfReplaceAll]);
  Result := StringReplace(Result, 'ö', 'ö', [rfReplaceAll]);
  Result := StringReplace(Result, 'Ö', 'Ö', [rfReplaceAll]); // die Liste lässt sich nach Bedarf anpassen
end;
die zu suchenden Strings habe ich in arrays gespeichert
Markus H.
  Mit Zitat antworten Zitat
Benutzerbild von Mithrandir
Mithrandir
 
#32
  Alt 10. Jun 2009, 10:39
Erlauben das die AGB eigentlich?
米斯蘭迪爾
  Mit Zitat antworten Zitat
Benutzerbild von markus5766h
markus5766h

 
Delphi XE8 Professional
 
#33
  Alt 10. Jun 2009, 10:44
welche AGB ?
falls Du die vom DWD meinst :
für nicht kommerzielle Zwecke dürfen die Daten
für Verwendung in eigenen Anwendungen genutzt
werden.
Info des DWD vom 04.06.2009
Markus H.
  Mit Zitat antworten Zitat
EWeiss
 
#34
  Alt 10. Jun 2009, 10:46
Zitat von markus5766h:
welche AGB ?
Allgemeine Geschäfts Bedingungen .. glaube ich oder ?

gruss Emil
  Mit Zitat antworten Zitat
Benutzerbild von markus5766h
markus5766h

 
Delphi XE8 Professional
 
#35
  Alt 10. Jun 2009, 10:51
dass die AGB's "Allgemeine Geschäfts Bedingungen" sind,
weiss ich ; ich hätte nur gern' einen vollständigen Satz:
so in der Art "Erlauben das die AGB des DWD" - oder so ähnlich.
Ich müsste mir sonst unter Umständen überlegen, ob ich ggf.
gegen die AGB der DP verstosse ?!
Markus H.
  Mit Zitat antworten Zitat
Satty67

 
Delphi 2007 Professional
 
#36
  Alt 10. Jun 2009, 10:53
Die Daten von dt. Wetterdienst sind normalerweise frei verfügbar (mit Quell-Angabe). Aber zur Sicherheit kann man deren Website ja nochmal nach entspechendem Passus durchsuchen.

€: Man sollte den Editor nicht 10 Minuten offen lassen... inzwischen ist das Thema ja tatsächlich schon erledigt
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie

 
Delphi 2006 Professional
 
#37
  Alt 10. Jun 2009, 11:00
Warum eigentlich die Aufteilung nach Regionen? Wenn ich das Wetter von einem Ort wissen will, muss ich erst die richtige Region für den Ort finden und dann noch die Stad auswählen. Da die Einteilung der Regionen eher unüblich ist, also nicht nach Bundesländern, muss man erstmal die passende Region für den gewünschten Ort suchen.

Zum Beispiel das Wetter für kassel: In welcher Region liegt Kassel jetzt? Nordwest, Nordost, West, Mitte oder Ost? Ich hätte jetzt auf Mitte getippt, aber da war es nicht zu finden. Um es kurz zu machen, Kassel scheint nicht in der Liste zu sein, dafür aber so kleine Käffer wie Fritzlar und Gießen. Mir erschließen sich deshalb auch nicht so ganz die auswahlkriterien der Orte. Die Einwohnerzahl kann es nicht sein.

Ich würde nur eine Liste der Orte zur Auswahl anbieten und zwar alphabetisch sortiert und nicht, wie es jetzt ist, wild durcheinander. Und wenn es zu viele werden, kann man sie aufteilen in Bundesländer.
Michael
  Mit Zitat antworten Zitat
Benutzerbild von markus5766h
markus5766h

 
Delphi XE8 Professional
 
#38
  Alt 10. Jun 2009, 11:04
Hallo,
die Auswahl der Orte bzw. die Kriterien dafür sind mir auch ein Rätsel.
Viele Orte, an denen der DWD Mess-Stationen betreibt, sind nicht aufgeführt.
Eine "nur"-Auswahl nach Orten lässt sich ja noch einfügen.
Markus H.
  Mit Zitat antworten Zitat
Benutzerbild von Mithrandir
Mithrandir
 
#39
  Alt 10. Jun 2009, 11:04
Zitat von markus5766h:
dass die AGB's "Allgemeine Geschäfts Bedingungen" sind,
weiss ich ; ich hätte nur gern' einen vollständigen Satz:
so in der Art "Erlauben das die AGB des DWD" - oder so ähnlich.
Ich müsste mir sonst unter Umständen überlegen, ob ich ggf.
gegen die AGB der DP verstosse ?!


Natürlich die AGB des DWD. Wüsste nicht, warum die Veröffentlichung eines Wettertools in der DP verboten sein sollte...
米斯蘭迪爾
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

 
Delphi 12 Athens
 
#40
  Alt 10. Jun 2009, 11:10
wegen dem UTF-8-Zeugs in deiner StripHTMLTags ... schau mal, was es in der System-Unit alles dazu gibt

UTF8Decode und Co.
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 4 von 5   « Erste     234 5      


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 05:40 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz