mittels http google Suchergebnis runterladen und parsen

[Little John]

Mit Test funzt es schon

Ach so, ich hatte nicht daran gedacht, dass Du oben schon Code gepostet hattest. Sorry!

Per API funzt es auf jeden Fall einwandfrei:

Code: Alles auswählen

URLDownloadToFile_(0,"http://www.google.de/search?hl=de&q=Paul+C%E9zanne","C:\test.html",0,0)

Das ist ja komisch ... Das erzeugt bei mir (Windows XP) überhaupt keine Datei auf der Festplatte.

Gruß, Little John

[rolaf]

Meld, hier funzt das ganze mit dem Google-Link auch nicht, auch nicht per Api. Erhalte trotz Erfolgsmneldung nur ne abgeschnittene Datei ohne Suchergebnis.

Der Code den Google da liefert ist aber auch ne Krankheit,
wer sowas fabriziert sollte mal nen Webmasterseminar besuchen.

Bei anderen Links gehts nämlich absolut fehlerfrei.

[X360 Andy]

Ich würde sagen da muss der HTTP-Befehl noch überarbeitet werden, wär auch praktisch wenn man mit dem direkt in einen Speicherbereich downloaden könnte...

Sowie Proxy Support ♥
Naja hoffen wir auf 4.40

Meld, hier funzt das ganze mit dem Google-Link auch nicht, auch nicht per Api. Erhalte trotz Erfolgsmneldung nur ne abgeschnittene Datei ohne Suchergebnis.

Der Code den Google da liefert ist aber auch ne Krankheit,
wer sowas fabriziert sollte mal nen Webmasterseminar besuchen.

Bei anderen Links gehts nämlich absolut fehlerfrei.

Google > Youtube > http://www.purebasic.fr/german/viewtopic.php?t=19655

@ Google API
Ich hab gerade mal versucht was zusammen zu bauen,aber auch dort versagt PB mit dem Herunterladen.

Dagegen geht das ganze bei "Bing" wunderbar
Beispiel

Code: Alles auswählen

;http://api.search.live.net/xml.aspx?Appid=<Your App ID HERE!>&query=sushi&sources=web

InitNetwork()
Wort$ = InputRequester("Spiel", "Gib dein Wort ein", "")
If ReceiveHTTPFile("http://api.search.live.net/xml.aspx?Appid=3FCC90404BF356D785F1B7825406A5A95ED6516E&query=" + Wort$ + "&sources=web", "Wort.txt")
  ReadFile(0, "Wort.txt")
  While Eof(0) = 0
    String$ = ReadString(0)
    Start = FindString(String$, "<web:Total>", 0)
    If Start
      Anzahl$ = Mid(String$, Start + Len("<web:Total>"), FindString(String$, "</web:Total>", 0)-Start-Len("</web:Total>"))
    EndIf
  Wend
EndIf

If Anzahl$
  MessageRequester("Anzahl", "Für " + Wort$ + " gab es " + Anzahl$ +" Treffer")
Else
  MessageRequester("Nichts", "Für " + Wort$ + " gab es keine Treffer")
EndIf

Das Schlag den Raab Spiel lässt sich so wunderbar umsetzen.
P.s Zum Code : hatte keine Lust mich mit dem XML gedöns auseinander zu setzen

[m0]

hmm, nadann würd ich die funktion ma als nutzlos bezeichnen... gibts in der MAC API n Befehl zum Files downloaden, weis das zufällig jemand?

vielen Dank für eure Hilfe!!

[rolaf]

hmm, nadann würd ich die funktion ma als nutzlos bezeichnen...

Weil sie eine nicht konforme HTML-Datei nicht verarbeiten kann? Das halte ich für ein Gerücht, beschwere dich bei Google oder nutze die Konkurenz.

[m0]

Ich wüsste nicht was das HTTP protokoll mit ner validen HTML datei zu tun hat, http ist ja rein die übertragung, prüft ja nicht was letztendlich in der datei steht(außer crc oder ähnliches, was aber auch net von html abhängig is), außer ich hab da was grob falsch verstanden?

[Thalius]

probiers mal damit:
http://forums.purebasic.com/english/vie ... t=purehttp

Funzt in Memory.

[X360 Andy]

Sehr geil dank dir für den Link

Jetzt noch Proxy Support und ich bin wunschlos glücklich

[m0]

Perfekt das funkioniert erste sahne, vielleicht sollte man sich daran bei der http-lib orientieren vielen Dank!!!!!

[m0]

Sooo
Also jetzt hab ich ma was gebastelt, sollte aber unter windows noch getestet werden, unter osx läufts top.

http://www.purebasic.fr/german/viewtopi ... 517#249517

viel spaß
m0