[Delphi] Youtube Downloader coden?

[oxmox]

Hi,
ich habe wieder eine Frage an euch^^

und zwar will ich mir ein Programm in Delphi schreiben, dass mir Videos von youtube downloadet.
Hab schon paar Sachen versucht, hat aber nicht geklappt.
wollte zuerst mit diesem Code hier arbeiten

javascript:if(document.location.href.match(/http:\/\/[a-zA-Z\.]*youtube\.com\/watch/)){document.location.href='http://www.youtube.com/get_video?fmt='+(isHDAvailable?'22':'18')+'&video_ id='+swfArgs['video_id']+'&t='+swfArgs['t']}

hat aber nicht ganz so geklappt, wie ich es mir vorgestellt habe

hoffe ihr könnt mir helfen.

PS: ich weiß, dass es bereits eine Menge solcher Programme gibt.

//SuFu + google benutzt, aber nichts gefunden.

[BlackHook]

Ich mache ein bisschen was in Delphi. Kanst du mir sagen was dein Code mit Delphi zu tun hat ?
Ansonsten bin ich auf Alles offen.

[inmate]

Kann er überhaupt Delphi ? das ist Javascript was er da gepostet hat ^^


mfG

[err#rhuman]

Jo will warscheins mit Delphi die Ein und Ausgabe machen und dann über Delphi den Javascript Code aufrufen der dann das Video runterläd. Poste doch mal dein komletten Quelltext dann kann ich dir sagen obs an dem Delphi Source liegt weil Javascript kenn ich mich nicht besonderst aus

[oxmox]

gut erkannt... lol
is mir schon klar, dass das javaskript ist.
wie err#rhuman bereits gesagt hat, hatte ich vor den Code z.B. in ein memo-feld einzugeben um ihn später im Quelltext laden zu können.
Und ja, ich kann Delphi.

Ich werd jetzt schnell was coden und gleich hier posten.

Ist aber eigentlich eine ziemlich unschöne Lösung, wenn es funktionieren sollte.
Vllt. habt ihr ne bessere Idee.

Edit:
Code scheint bisschen unvollständig, funktioniert auch nicht , aber so war eben meine Idee, wie es funktionieren könnte.

http://img3.imagebanana.com/view/gr41h7ey/lol.bmp.png
Nachdem man einen Youtube-Link eingegeben hat und auf Downloaden klickt, bekommt man eine Fehlermeldung angezeigt, dass der Inhalt nicht heruntergeladen werde konnte.

[inout]

Wieso setzt du den Javascript-Code nicht einfach direkt in Delphi um?

1. Quelltext holen
2. Video-ID und t-Argument extrahieren
3. Download-URL zusammenbauen
4. Datei runterladen

[oxmox]

Wieso setzt du den Javascript-Code nicht einfach direkt in Delphi um?

1. Quelltext holen
2. Video-ID und t-Argument extrahieren
3. Download-URL zusammenbauen
4. Datei runterladen

Weil Delphi z.B. die Schleifenklammern{} im Quelltext ignoriert und deshalb der meiste Code vom Compiler weggelassen wird.
Könntest du mal bitte den Code hinschreiben?
Weiß nicht genau, wie ich das so umsetzen sollte.

[Sirect]

Er meint du sollst den Javascript-Code übersetzen und die Funktionen die er ausführt in Delphi coden oO

[oxmox]

Ich weiß was er gemeint hat.
Nur da ich mich mit Java nicht auskenne, weiß ich auch nicht wie genau der code funktioniert.
Kann ihn daher auch nicht umschreiben oder die Befehle dafür in Delphi schreiben (wie ich es im 1. Post bereits gesagt hatte).

Btw. thx für die Antworten. (nicht ironisch gemeint )

[inout]

so, hab dir mal ein kleines Beispiel gemacht.
Den Code habe ich nur kurz in 2min runtergetippert, aber er scheint zu funktionieren.
Benötigt die Indy Komponenten (IdHTTP).

uses idhttp,strutils;

function youtube_dl(const url,_file:string; var err: string):boolean;

  function gettostr(const yurl:string; var src,err:string):boolean;
  begin
    result:=true;
    with tidhttp.Create do
      try
        try
          src:=get(yurl);
        except
          on e:exception do
          begin
            err:=e.Message;
            result:=false;
          end;
        end;
      finally
        free;
      end;
  end;

  function gettofile(const yurl,_file:string; var err:string):boolean;
  var fs:tfilestream;
  begin
    result:=true;
    try
      fs:=tfilestream.Create(_file,fmcreate or fmsharedenynone);
      try
        with tidhttp.Create do
          try
            handleredirects:=true;
            try
              get(yurl,fs);
            except
              on e:exception do
              begin
                err:=e.Message;
                result:=false;
              end;
            end;
          finally
            free;
          end;
      finally
        fs.Free;
      end;
    except
      on e:exception do
      begin
        err:=e.Message;
        result:=false;
      end;
    end;
  end;

  function getvidid(const url:string; var id:string):boolean;
  var p:integer;
  begin
    p:=pos('watch?v=',url);
    result:=p>0;
    if result then id:=copy(url,p+8,length(url));
  end;

  function getstrb(const s,left,right:string; var str:string):boolean;
  var p,q:integer;
  begin
    result:=false;
    p:=pos(left,s);
    if p>0 then
    begin
      q:=p+length(left);
      p:=posex(right,s,q);
      if p>0 then
      begin
        str:=copy(s,q,p-q);
        result:=true;
      end;
    end;
  end;

var s,id,t:string;
begin
  result:=false;
  if getvidid(url,id) then
  begin
    if gettostr(url,s,err) then
    begin
      if getstrb(s,'"t": "','"',t) then
        result:=gettofile(format('http://www.youtube.com/get_video?video_id=' +
          '%s&t=%s&el=detailpage&ps=&fmt=34', [id,t]),_file,err)
      else err:='t arg not found';
    end;
  end else err:='vid id not found';
end;

Möglicher Aufruf:

var err:string;
begin
  //Video-URL anpassen.
  if youtube_dl('http://www.youtube.com/watch?v=...','c:\vid.flv',err) then
    showmessage('ok')
  else showmessage('error: '+err);
end;