mhm also bei mir klappts komischer weise.
ohne
IdHttp1.Request.UserAgent:='Mozilla/4.0';
hatte ich auch eine Fehler
Zitat:
HTTP/1.1 403 Forbidden
. Wundert mich bisschen.
sowohl
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var FS:TFilestream;
begin
FS:=TFilestream.Create('C:\bla.html',fmCreate);
IdHttp1.Request.UserAgent:='Mozilla/4.0';
IdHTTp1.Get('http://www.youtube.com/watch?gl=DE&hl=de&v=T2g5HrjlBpE',FS);
FS.Free;
Memo1.lines.LoadFromFile('C:\bla.html');
end;
// als auch
procedure TForm1.Button2Click(Sender: TObject);
begin
IdHttp1.Request.UserAgent:='Mozilla/4.0';
Memo1.text:=IdHTTp1.Get('http://www.youtube.com/watch?gl=DE&hl=de&v=T2g5HrjlBpE');
end;
funktionieren einwand frei, nur dass beim Runterladen als Datei der Code ordentlicher aussieht. Viel Glück noch^-^