PureBoard

Verfasst: **05.04.2009 19:06**

X360 Andy hat geschrieben:4.3 - Vista - 32Bit

genau das selbe

bist du dir sicher, dass du nichts übersehen hast?
Eine komische Einstellung deines Compilers vielleicht?

Verfasst: **05.04.2009 19:23**

Nein wie immer , auch meine Vermutung das es am Virenschutz lag war falsch.

InitNetwork()
Debug ReceiveHTTPFile("http://www.google.de","file.txt")

Gibt 1 (nach ca. 10 sek ... )

Code: Alles auswählen

InitNetwork()
Debug ReceiveHTTPFile("http://www.youtube.com" ,"file.txt")

Gibt 0

Verfasst: **06.04.2009 01:19**

mit datei geht es bei mir:

Code: Alles auswählen

InitNetwork()
Debug ReceiveHTTPFile("http://www.youtube.com/robots.txt", "file.txt")

Verfasst: **06.04.2009 07:01**

Jop das geht bei mir auch

Verfasst: **06.04.2009 07:40**

Youtube checkt wohl den User-Agent etc. und vergleicht ihn mit gängigen Browsern.

PB-Request:

Code: Alles auswählen

GET / HTTP/1.1
Accept: */*
Host: www.youtube.com
Connection: close

Antwort von Youtube:

Code: Alles auswählen

HTTP/1.1 400 Bad Request
Date: Mon, 06 Apr 2009 05:39:40 GMT
Server: Apache
X-YouTube-MID: WkFSZzctYUFHdmpsZVZNUFFoWktqOGtyYXJCMW94N05fR0FkLVJUMVFTeHpiTGZQaVZQejN3
Expires: Tue, 27 Apr 1971 19:44:06 EST
X-Content-Type-Options: nosniff
Cache-Control: no-cache
Connection: close
Transfer-Encoding: chunked
Content-Type: text/plain

0

Verfasst: **07.04.2009 16:14**

dann ist insgesamt YouTube schuld, und das arme PB hat keine Mitschuld

Verfasst: **07.04.2009 17:14**

Andesdaf hat geschrieben:dann ist insgesamt YouTube schuld, und das arme PB hat keine Mitschuld

Aber wieso geht es dann bei dir (scheinbar) ?

Muss ich nun einen manuelen Post Request an Youtueb machen oder wie könnte ich das lösen ?

Verfasst: **08.04.2009 19:18**

Hi so wie der code gepostest wurde kann er garnicht gehen

die Procedure wird garnicht auf gerufen.

InitNetwork()
Procedure Videonamen(ID$)
If ReceiveHTTPFile("http://www.youtube.com/watch?v="+ID$,"xname.html")
If ReadFile(0, "xname.html")
While Eof(0) = 0
namestring$ = ReadString(0)
Debug namestring$
Wend
CloseFile(0)
EndIf
EndIf
EndProcedure

Hauptlink$ = "http://www.youtube.com/watch?v=nySMBojFkw0" ; GetGadgetText(#String_0)
VideoId$=StringField(Hauptlink$,2,"=")
VideoId$=StringField(VideoId$,1,"&")
Videonamen(VideoID$)

Wenn wenn mann ReceiveHTTPFile() geben diesen URLDownloadToFile_()

tauscht kann ich die Seite downloaden und die datei wird angelegt.

Verfasst: **08.04.2009 21:00**

natürlich wird die Procedure aufgerufen

Marc-21 hat geschrieben:Wenn wenn mann ReceiveHTTPFile() geben diesen URLDownloadToFile_()

tauscht kann ich die Seite downloaden und die datei wird angelegt.

X360 Andy hat geschrieben:URLDownloadToFile_ möchte ich eig. auch nicht nützen da hier ja wieder
Heuristik sofort anspringt.

PureBoard

ReceiveHTTPFile will Datei nicht runterladen