µTube Downloader

[IceBube]

Hallo!
Tut mir leid das ich erst jetzt schreibe...

Na ok, dann versuch ich es euch besser zu erklären:

Zitat von Tommy1988:

Was muss ich rausnehmen und wo kommt folgendes hin, damit es klappt?

Nichts musst du raus nehmen! Wie schon gesagt ist "Edit1" die ID(Diese steht oben in der Adressleiste!!

Zitat von Vader:

wo finde ich die Identifikationsnummer des YouTube Videos auf der website ?

Zitat:

Fett gedruckt ist die Identifikationsnummer(ID) für den Clip
http://www.youtube.com/watch?v=ZlhXron1rFs

Zitat von Vader:

jetzt habe ich diese adresse :
http://de.youtube.com/watch?v=5v0vl6iTlC4 was muß ich da in das ID feld von den proggi eingeben ??

Soweit so gut! Nun musst du diese Adresse mit "idHttp.Head(Adresse^)" abfragen, dies ist wichtig - da man dadurch zur korrekten ID kommt!

Diese wird herausgefiltert mit :
Copy(http.URL.URI,Pos('&t=',http.URL.URI)+3,Pos('&hl=en',http.URL.URI)-6)

Zitat von Vader:

also bei mir funzt das überhaupt nicht, im gegenteil das prog hängt sich auf !!!

Wahrscheinlich hast du eine falsche ID eingeben, da ist das Problem mit dem aufhängen!!!

So hier mal eine ganze Funktion ich hoffe Sie hilft:

Delphi-Quellcode:

//Uses
uses idhttp;

function GetYouTubeID(ClipID:string):string;
var http :TidHttp;
ID:string; //Die Korrekte ID
begin
//YouTube Clip Adresse bekommen

 //Erzeugen der Http Kompo
 http := TidHttp.Create(nil);
 http.AllowCookies := False;
 http.HandleRedirects := True;
 //
 http.Request.UserAgent := 'IE8';

 //Nun die Korrekte ID des Clips holen
 http.Head('http://www.youtube.com/v/'+ClipID+'&hl=en');

 //Korrekte ID
 ID := Copy(http.URL.URI,Pos('&t=',http.URL.URI)+3,Pos('&hl=en',http.URL.URI)-6);

 //Resultat anzeigen
 Result := 'http://www.youtube.com/get_video?video_id='+ClipID+'&t='+ID;

 //
 http.Disconnect;
 http.Free;
end;

//Aufruf

var Link: string;
Link:= 'http://www.youtube.com/watch?v=ZlhXron1rFs'; //ID = ZlhXron1rFs
Linkadresse.Text := GetYouTubeId('ZlhXron1rFs');

Sollten noch Probleme auftreten dann teilt diese mit!

lg