Wetterdaten z.B. von Wetter.com auslesen

[funkheld]

Au ..., tolle Sache mit dem Wetterbericht.
Kann man gut nachvollziehen.

Gut gemacht.


Gruss

[funkheld]

Aus welcher Region der Welt kann man da das Wetter da auslesen?
Ich kenne den Umfang nicht.

Gruss

[Mok]

@funkheld: Wenn's nicht gerade Hintertupfingen ist, sollten sogut wie alle Städte der Welt funktionieren (Edit: sogar Adamstown und Katzenhirn! ).

Edit 2: Ok, für die Städte Jönköping und Skellefteå wird nix gefunden...

[Bisonte]

Muss man sich halt ne Stadt suchen die dann in der Nähe ist...
So gross sind die Unterschiede dann auch nicht.

(Es sei denn ein Fluss oder Gebirge ist genau dazwischen...."Wettergrenze")

[funkheld]

Jup, danke.

Sehe jetzt auch , wenn der Ort nicht stimmt, das immer "0" als Wert ausgegeben wird.

gruss

[funkheld]

Wie kann man eigentlich diese Werte auslesen mit Purebasic?

http://www.wetter.com/community/wettern ... n/?uid=280

Gruss

[STARGÅTE]

Welche Werte ?

Hinweis:
Es ist immer die gleiche Vorgehensweise:
- Website runterladen
- Mit einem Parser "die Werte" filtern

Dafür gibs es nicht immer fertige Prozeduren, sowas muss man gerade bei solchen Seiten selber schreiben.

[Bisonte]

Wenn man von Wetter.com nur die Wetterdaten haben will,
dann muss man sich da mit einer Anwendung registrieren,
genauso wie bei Yahoo Wetter. Deshalb hatte ich mir das von Google
ausgesucht: Ohne Registrierung nur Wetterdaten und nicht riesen Webseiten,
weil man die Registrierung umgehen will

[funkheld]

Hallo, mit diesem Programm in qb64 kann ich eine Grafik runterladen von der Wetterzentrale:

Code: Alles auswählen

IF Download("www.wetterzentrale.de/pics/Rmgfs064.gif", "Rmgfs064.gif", 10) THEN ' timelimit = 10 seconds
    SCREEN _LOADIMAGE("Rmgfs064.gif", 32)
ELSE: PRINT "Couldn't download Grafik."
END IF
SLEEP
SYSTEM

'----------------------- program end ------------------------
FUNCTION Download (url$, file$, timelimit) ' returns -1 if successful, 0 if not
url2$ = url$
x = INSTR(url2$, "/")
IF x THEN url2$ = LEFT$(url$, x - 1)
client = _OPENCLIENT("TCP/IP:80:" + url2$)
IF client = 0 THEN EXIT FUNCTION
e$ = CHR$(13) + CHR$(10) ' end of line characters
url3$ = RIGHT$(url$, LEN(url$) - x + 1)
x$ = "GET " + url3$ + " HTTP/1.1" + e$
x$ = x$ + "Host: " + url2$ + e$ + e$
PUT #client, , x$
t! = TIMER ' start time
DO
    _DELAY 0.05 ' 50ms delay (20 checks per second)
    GET #client, , a2$
    a$ = a$ + a2$
    i = INSTR(a$, "Content-Length:")
    IF i THEN
        i2 = INSTR(i, a$, e$)
        IF i2 THEN
            l = VAL(MID$(a$, i + 15, i2 - i - 14))
            i3 = INSTR(i2, a$, e$ + e$)
            IF i3 THEN
                i3 = i3 + 4 'move i3 to start of data
                IF (LEN(a$) - i3 + 1) = l THEN
                    CLOSE client ' CLOSE CLIENT
                    d$ = MID$(a$, i3, l)
                    fh = FREEFILE
                    OPEN file$ FOR OUTPUT AS #fh: CLOSE #fh ' erase existing file?

                    OPEN file$ FOR BINARY AS #fh
                    PUT #fh, , d$
                    CLOSE #fh
                    Download = -1 'indicates download was successfull
                    EXIT FUNCTION
                END IF ' availabledata = l
            END IF ' i3
        END IF ' i2
    END IF ' i
LOOP UNTIL TIMER > t! + timelimit ' (in seconds)
CLOSE client
END FUNCTION

[code]

[/code]

Wie geht denn so etwas mit Purebasic?

danke.

[Sirius-2337]

Hallo, mit diesem Programm in qb64 kann ich eine Grafik runterladen von der Wetterzentrale:

Wie geht denn so etwas mit Purebasic?

Code: Alles auswählen

InitNetwork()
ReceiveHTTPFile("http://www.wetterzentrale.de/pics/Rmgfs064.gif", GetTemporaryDirectory() + "Wetter.gif")