Indy Head Probleme

[blink182]

mit Indy funktioniert der download an sich.

Zitat von http://www.delphi-forum.de/viewtopic.php?p=550387&sid=3da0da5060469fb20b0a322 0ee5c7fad:

Delphi-Quellcode:

procedure GetYoutubeDownloadURL(URL: string);
var
  HTTP: TIdHTTP;
  Quelltext: string;
  VideoID: string;
  T: string;
  Pos1: integer;
begin
  HTTP := TIdHTTP.Create(nil);
  HTTP.Request.UserAgent := 'Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)';
  Http.HandleRedirects:=true;
  Quelltext := HTTP.Get(URL);
  //Titel herausfiltern
//  Download.Titel := Copy(Quelltext,Pos('<title>',Quelltext)+7,Pos('</title>', Quelltext)-Pos('<title>', Quelltext)-7);
  //VideoID herausfiltern
  VideoID := Copy(Quelltext,Pos('video_id', Quelltext)+12,Pos('video_id', Quelltext)+0-Pos('video_id', Quelltext)+11);
  //T herausfiltern
  Pos1 := Pos('"t": "', Quelltext)+6;
  T := Copy(Quelltext, Pos1,PosEx('"',Quelltext,Pos1+1)-Pos1);

  try
    HTTP.Get('http://de.youtube.com/get_video?video_id='+VideoID+'&t='+T);
  except

  end;

//  Download.URL := HTTP.Response.Location;

  HTTP.Free;
end;

so klappt es z.b.
ja und ich möchte eigentlich nur die Fortschrittsanzeige einbinden.