kleines Wetter-Programm

[markus5766h]

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"

[Mithrandir]

Du könntest das Archiv alternativ natürlich auch aufteilen... ;)

[markus5766h]

.. hab ich ausprobiert, 2 Archive, trotzdem bin ich bei den Bilddateien (JPG) dann
immer noch bei etwas über 3 Mb - und in 3 Archive aufteilen inclusive der Ordnerstruktur
halte ich nicht für so prickelnd, mal abgesehen davon, dass dann die Anzahl der
Attachements wieder nicht ausreicht.
Alles nicht so einfach ......

[Crazy Ivan]

eventuell ein archiv erstellen und dann auf die größe splitten..

[markus5766h]

o.k.
das Archiv ist jetzt in drei Teile gesplittet - geht eben nicht anders.
Korrekt entpackt muss enthalten sein:
im Programmverzeichnis : Wetter.exe, Regions.dat
Unterverzeichnisse : 'Temp', 'Karten' mit 14 Bildern, 'Bilder'

[Satty67]

Hallo... also das Programm läuft und sieht auch gut aus.

Etwas wenige Städte zur Auswahl, trifft meine Region leider viel zu ungenau (Murgtal hat immer etwas eigenes Wetter). Ist das eine vorgegeben Einschränkung durch den Wetterdienst oder lässt sich das noch erweitern?

Achja.. Wettervorschau finde ich gerade keine, nur das aktuelle Wetter?

***

3,8 MByte sind nicht wirklich viel für so ein Programm, deshalb nachfolgenden Vorschlag etsprechend schwach bewerten:

Wenn ich alle Karten mit JPEG 80% komprimiere habe ich keine groß sichtbaren Qualitätseinbußen, aber nur 1,1 MByte statt 3,7 MByte. Aber wie gesagt, ist jetzt nicht wirklich nötig, die Programmgröße an die DP-Attachment-Größe anzupassen. Mit der jetzigen Aufteilung geht es auch.

[markus5766h]

Hallo,
@Satty67 : die Städteanzahl ist vorgegeben,
eine Wettervorschau soll noch eingebaut werden
evt. auch noch Bio-Wetter

[himitsu]

Die ganzen "E"-Dateien / grauen Bilder könnte man auch live im Programm berechnen und würde so die Häfte an Bilddaten einsparen.

[markus5766h]

@himitsu : das ist richtig, ich weiß allerdings noch nicht, ob ich später diese
Bilddateien für die Nachtansicht verwenden werde - ist halt 'ne erste Version.
Ich hab' die JPG's jetzt komprimiert, ist kein großer Qualitätsverlust.

[Helmi]

Hallo,

in deinem PopUp-Menü des TrayIcons ist ein Schreibfehler.

Es muss heissen: "in den Vordergrund" und nicht "in den Vordergrung"

[Edit]
Irgendwie wird die Karte für "Südwest" nicht angezeigt, es ist immer nur
die letzt geladene Karte vorhanden.
Beispiel: Man geht auf Südost und danach auf Südwest, dann bleibt die
Karte von Südost im Hintergrund vorhanden, die Wetterdaten werden aber
von Südwest angezeigt

[markus5766h]

Hallo
@Helmi: danke, der Screibfehler wurde behoben
Ich bekomm beim Wechsel der Region auch die korrekten Wetterdaten,
oder meinst Du die Miniaturansicht -> hier musst Du die Region
und Stadt in den Einstellungen ändern. Ein Wechsel auf der Detailansicht
ändert nicht die Einstellungen für die Miniaturansicht.

aktuelle Version im ersten Beitrag.

[Helmi]

Die Wetterdaten sind schon richtig - nur das Hintergrundbild ist das Falsche (bei Südwest).
Bzw. Dieses wird nicht umgeladen (in der Dateilansicht)

[markus5766h]

Hab's gerade noch mal probiert - bei mir klappt's,
gibt es 'ne Fehlermeldung ?

[Helmi]

Nein

es wird nur nicht die karte für südwest angezeigt

[Satty67]

Bei mir wird Südwest richtig angezeigt, war ja auch meine Auswahl. Hab' allerdings die erste Version aus Post #1. Auch Regionen hin und her klicken sah jetzt Ok aus. Vielleicht beim JPEG komprimieren was durcheinander gekommen?

[markus5766h]

Hallo,
hab's mit der alten sowie der aktuellen Version probiert,
funktioniert gleichermaßen. Die Dateien haben beim Komprimieren
(Batch-Konversation mit Irfan-View) ihren Namen behalten.

[Satty67]

[OT]Liegt sicher an Helmi, der kommt aus Bayern und im Ausland kennt er sich nicht so aus[/OT]
Sorry Helmi, hast ein Scherz auf meine Kosten auf Deinem Guthaben

[Helmi]

Zitat:

Zitat von Satty67

[OT]Liegt sicher an Helmi, der kommt aus Bayern und im Ausland kennt er sich nicht so aus[/OT]

So ist es :-)

Es heisst nicht umsonst Republik Bayern :-)
(Republik = Freistaat)

*Bayernfahne schwenk*

Nichtsdestotrotz - jetzt funktionierts auch bei mir - mit der neuen Version...

[markus5766h]

... das lass ich jetzt mal unkommentiert.

Zu einem anderen 'Problem' hätt ich allerdings noch
gerne Eure Meinungen:
ab und zu werden vom DWD keine Wetterdaten wie 'Regen', 'Sonne' o.ä.
weitergegeben. Derzeit lasse ich dann für den entspr. Ort kein
Wettersymbol anzeigen.
Die Frage ist nun : kein Sysmbol anzeigen oder ein spezielles
Symbol anzeigen lassen, das auf momentan fehlende Daten hinweist ?

[markus5766h]

das "Freistaat" ist aber seeeeeeeeeeeeeehr klein geraten ...

[Helmi]

*weiterhin die Bayernfahne schwenk* :-)

Ich würde ein spezielles Symbol anzeigen lassen - so weiss man, das etwas fehlt
momentan nicht stimmt, bzw. fehlt...

[Satty67]

Zitat:

Zitat von markus5766h

ab und zu werden vom DWD keine Wetterdaten wie 'Regen', 'Sonne' o.ä.

Kein Symbol oder das Symbol für wechselhaft Wolke/Sonne ausgehöhlt. Auf jeden Fall nichts rotes (Stopp-Kreis etc.), was das Design stört.

[markus5766h]

jo, vielen Dank
als ein dezentes Symbol in der nächsten Version, ist dann V6

[Helmi]

Noch was anderes:

Beim Starten des Programmes (war bei mir der erste Start) hat sich das Programm
aufgehängt. Es hat auf keine Eingaben mehr reagiert. Ich habs dann im TaskManager
abgeschossen - kurz davor kamen aber dann Wetterdaten.
Es wurde also versucht, die Daten zu laden, das aber das Programm zum Aufhängen brachte.

Vielleicht kannst du noch etwas machen...

[Edit]
Noch etwas ist mir aufgefallen:
Wenn man mit der Maus über eine Stadt geht (z. B. München) dann werden dort keine
Daten angezeigt - erst wenn man etwas nach rechts geht (in das nächste Quadrat)
dann kommen dort die Daten für München.
Bei Nürnberg stimmts überein.

[Edit2]
Wieso kann man in den ComboBoxen für die Regionsauswahl etwas eingeben?
Wär da als Style "csDropDownList" nicht besser?

[markus5766h]

@Helmi:
wahrscheinlich hat der Download nur länger gedauert, bei mir sinds für die 7 Regionen
etwa 7 * 2Sekunden für den Download und dann noch mal einige Zeit für das decodieren
und Zuweisen der Daten. Ist der Server aber mal gut ausgelastet, kann der Download schon mal
'ne Minute dauern. Die Downloadprozedur ist abgesichert.
Zu den Positionen: ich habe teilweise bis zu 20 Symbole plus Temp.-anzeige : damit ich
diese so unterbringen kann, dass sie sich nicht überdecken, musste ich bei einigen Orten
von der tatsächlichen Position abweichen.
Zweite Möglichkeit wäre eine Verkleinerung der symbole von 60*60 Pixel auf 40*40 Pixel,
aber ich wollte nicht mit der Lupe dabei sein.
Deswegen ist das Symbol für München rechts neben dem Schriftzug.

[Helmi]

Vielleicht könntest du während die Daten geladen werden einen Hinweis bringen?

Nebenbei bemerkt - ich hab in meinem Thread zuvor noch ein 2. Edit hinzugefügt

[markus5766h]

@Helmi: die Drop-Down-Listen weredn umgestellt
der Download-Button ändert die Punkt-Farbe:
weiß beim Verbindunsaufbau
grün beim Downloadstart
gelb während des Downloads
hellgrau beim Downloadende
rot bei Fehler während des Downloads

[Helmi]

Zitat:

Zitat von markus5766h

weiß beim Verbindunsaufbau
grün beim Downloadstart
gelb während des Downloads
hellgrau beim Downloadende
rot bei Fehler während des Downloads

Vielleicht solltest irgendwo diese Angabe im Programm hinterlegen

[markus5766h]

..kommt später in der Hilfe

ich bin erst mal noch dabei, Wetterbeschreibungen zu sammeln
und in arrays abzulegen, der DWD ist mit seinen Beschreibungen
sehr kreativ .....

[R2009]

Hi Markus,

schade dass du deinen Code nicht herausgibst, hätte gerne gewusst wie du die Daten von DWD holst.

Viele Grüsse

[markus5766h]

@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, '&gt;',   '>',  [rfReplaceAll]);
  Result := StringReplace(Result, '&lt;',   '<',  [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

[Mithrandir]

Erlauben das die AGB eigentlich?

[markus5766h]

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

[EWeiss]

Zitat:

Zitat von markus5766h

welche AGB ?

Allgemeine Geschäfts Bedingungen .. glaube ich oder ?

gruss Emil

[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 ?!

[Satty67]

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 :drunken:

[Luckie]

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.

[markus5766h]

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.

[Mithrandir]

Zitat:

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 ?!

:roll:

Natürlich die AGB des DWD. Wüsste nicht, warum die Veröffentlichung eines Wettertools in der DP verboten sein sollte... :roll: :wall:

[himitsu]

wegen dem UTF-8-Zeugs in deiner StripHTMLTags ... schau mal, was es in der System-Unit alles dazu gibt :-D

UTF8Decode und Co.