ReceiveHTTPFile will Datei nicht runterladen

Anfängerfragen zum Programmieren mit PureBasic.
Benutzeravatar
X360 Andy
Beiträge: 1206
Registriert: 11.05.2008 00:22
Wohnort: Bodensee
Kontaktdaten:

ReceiveHTTPFile will Datei nicht runterladen

Beitrag von X360 Andy »

Ich möchte von ein Youtube Video den Namen rausfinden, dazu lade ich von dem Video den Quelltext herunter und lese die <title> Zeile einfach aus.

Wenn ich ReceiveHTTPFile so einsetze (Siehe unten) dann kommt bei mir immer 0 raus.

Mach ich irgendwas falsch oder liegt das an der PB Funktion ?

URLDownloadToFile_ möchte ich eig. auch nicht nützen da hier ja wieder
Heuristik sofort anspringt.

Und da ich dank dem [url=http://www.purebasic.fr/english
/viewtopic.php?p=179559]Bug[/url] kein WebGadget nutzen kann fällt
das auslesen des Webadgets auch weg , und vorher das Webgadget mit Setgadgettext() ändern dauert leider zu lange.

Code: Alles auswählen

If ReceiveHTTPFile("http://www.youtube.com/watch?v="+ID$,"xname.html")
If  ReadFile(0, "xname.html")
Über eine kleine Hilfe würde ich mich freuen :D
Zuletzt geändert von X360 Andy am 05.04.2009 18:57, insgesamt 3-mal geändert.
Andesdaf
Moderator
Beiträge: 2671
Registriert: 15.06.2008 18:22
Wohnort: Dresden

Beitrag von Andesdaf »

vielleicht stimmt ID$ nicht?
Vor ReceiveHTTPFile muss InitNetwork aufgerufen werden.
Win11 x64 | PB 6.20
Benutzeravatar
X360 Andy
Beiträge: 1206
Registriert: 11.05.2008 00:22
Wohnort: Bodensee
Kontaktdaten:

Beitrag von X360 Andy »

Initnetwork wird erfolgreich aufgerufen.
Und ID$ stimmt auch.
Wenn ich Debug im Browser aufrufe wird die Seite die ich will angezeigt.

Code: Alles auswählen

Debug http://www.youtube.com/watch?v="+ID$
Andesdaf
Moderator
Beiträge: 2671
Registriert: 15.06.2008 18:22
Wohnort: Dresden

Beitrag von Andesdaf »

zeig doch mal nen vollständigen Code her, vielleicht lässt sich von dort
aus was sehen.

Und behebe mal bitte den Bug mit dem Link im ersten Posting.
Win11 x64 | PB 6.20
Benutzeravatar
X360 Andy
Beiträge: 1206
Registriert: 11.05.2008 00:22
Wohnort: Bodensee
Kontaktdaten:

Beitrag von X360 Andy »

Ich rästel schon die ganze Zeit an dem "Bug" rum :?

Code: Alles auswählen

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$)
Das wäre das mit dem Namen ....
Benutzeravatar
ts-soft
Beiträge: 22292
Registriert: 08.09.2004 00:57
Computerausstattung: Mainboard: MSI 970A-G43
CPU: AMD FX-6300 Six-Core Processor
GraKa: GeForce GTX 750 Ti, 2 GB
Memory: 16 GB DDR3-1600 - Dual Channel
Wohnort: Berlin

Beitrag von ts-soft »

URLEncoder(URL$) ?
PureBasic 5.73 LTS | SpiderBasic 2.30 | Windows 10 Pro (x64) | Linux Mint 20.1 (x64)
Nutella hat nur sehr wenig Vitamine. Deswegen muss man davon relativ viel essen.
Bild
Andesdaf
Moderator
Beiträge: 2671
Registriert: 15.06.2008 18:22
Wohnort: Dresden

Beitrag von Andesdaf »

geht doch? Nach dem ausführen befindet sich eine Datei Namens
"xname.html" im Ordner GetHomeDirectory()+"\Documents".

Du solltest vielleicht den ausgabepfad bei ReceiveHTTPFile ändern auf
GetHomeDirectory oder so.
Win11 x64 | PB 6.20
Benutzeravatar
X360 Andy
Beiträge: 1206
Registriert: 11.05.2008 00:22
Wohnort: Bodensee
Kontaktdaten:

Beitrag von X360 Andy »

ts-soft hat geschrieben:URLEncoder(URL$) ?
Könntest du vieleicht noch sagen wie du das meinst ?
Wieso sollte ich die URL noch veschlüsseln ?
Andesdaf hat geschrieben:geht doch? Nach dem ausführen befindet sich eine Datei Namens
"xname.html" im Ordner GetHomeDirectory()+"\Documents".

Du solltest vielleicht den ausgabepfad bei ReceiveHTTPFile ändern auf
GetHomeDirectory oder so.
Bei mir passiert nix, ich hab die Pfade Relativ , Absolut mit Gettemp... alles schon versucht.


Und diesen scheiss Link bekomme ich nicht zum laufen !
Habs heute nicht so ... :lol:
Andesdaf
Moderator
Beiträge: 2671
Registriert: 15.06.2008 18:22
Wohnort: Dresden

Beitrag von Andesdaf »

bei mir geht's auch mit deinem Beispiel oben ohne veränderung.

Welche PureBasic Version benutzt du?
Win11 x64 | PB 6.20
Benutzeravatar
X360 Andy
Beiträge: 1206
Registriert: 11.05.2008 00:22
Wohnort: Bodensee
Kontaktdaten:

Beitrag von X360 Andy »

4.3 - Vista - 32Bit
Aber auch auf 4.2 gehts nicht ....
Muss mal ein bisschen mit der Firewall rumspielen , könnte ja daran liegen
Antworten