Youtube Quelltext anzeigen

[Larsi]

Hi,

Icebube hat in seinem Tutorial zum Youtube Videos downloaden geschrieben, dass die Signatur im Quelltext ist. Doch wie kann ich den Quelltext anzeigen lassen?

Ich habe zwei Sachen versucht aber die erste geht nicht, da eine Fehlermeldung "Unknown Prozocol" kommt und die andere liefert den falschen Quelltext.

1. Möglichkeit:

Delphi-Quellcode:

Memo1.Text := IdHttp1.Get('Link zum Youtube Video');

2. Möglichkeit:

Delphi-Quellcode:

var
aHTMLDoc   : IHTMLDocument2;
aHTMLBody  : IHTMLElement;
swHTMLText : WideString;
begin
Webbrowser1.Navigate('Link zum Youtube Video');


  if not VarIsEmpty(WebBrowser1.Document) then

    begin

      aHTMLDoc := WebBrowser1.Document as IHTMlDocument2;

      aHTMLBody := aHTMLDoc.Get_body;

      swHTMLText := aHTMLBody.outerHTML;

      Memo1.Text := swHTMLText;

    end;

Ich hab das Ganze in Notepad kopiert doch die von Icebube beschriebene Zeile (swfargs) Zeile ist nicht vorhanden. Firefox jedoch zeigt einen komplett anderen Quellcode an, in dem diese Zeile enthalten ist. Doch wie mach ich das mit Delphi? Hat das was mit Javascript oder so zu tun?

[blink182]

probier mal

Delphi-Quellcode:

IdHttp1.Request.UserAgent:='Mozilla/4.0'; // o.ä.

mfg blink182

[Larsi]

Gleicher Fehler :( :(

[blink182]

mhm also bei mir klappts komischer weise.
ohne

Delphi-Quellcode:

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

[globetrotter77]

zeig doch mal ne Beispieladresse!

hat sich erledigt!

[toms]

Zitat:

Zitat von Larsi

und die andere liefert den falschen Quelltext.

Delphi-Quellcode:

var
//..
Webbrowser1.Navigate('Link zum Youtube Video');
  if not VarIsEmpty(WebBrowser1.Document) then
    end;

Kein Wunder wenn du navigierst und ohne zu warten den Quelltext ausliest.