Einzelnen Beitrag anzeigen

Tommy1988
(Gast)

n/a Beiträge
 
#35

Re: µTube Downloader

  Alt 24. Jul 2008, 21:44
Was muss ich rausnehmen und wo kommt folgendes hin, damit es klappt?

Delphi-Quellcode:
//Komponenten: idHttp(UserAgent umstellen!)
//Edit1.Text = die ID des YouTube Videos und Ausgabe ist in Edit2

//Anfrage auf das Video(Weiterleitung...)
http.Head('http://www.youtube.com/v/'+Edit1.Text+'&hl=en');

//Korrekte ID holen und aus dem Link extrahieren und anpassen
Edit2.Text := 'http://www.youtube.com/get_video?video_id='+Edit1.Text+'&t='+Copy(http.URL.URI,Pos('&t=',http.URL.URI)+3,Pos('&hl=en',http.URL.URI)-6);
http.Disconnect;
  Mit Zitat antworten Zitat