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:
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