µTube Downloader

[Tommy1988]

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;