Druckbare Version
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
hat aber nicht ganz so geklappt, wie ich es mir vorgestellt habe :D
hoffe ihr könnt mir helfen.
PS: ich weiß, dass es bereits eine Menge solcher Programme gibt.
//SuFu + google benutzt, aber nichts gefunden.
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.
Kann er überhaupt Delphi ? das ist Javascript was er da gepostet hat ^^
mfG
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
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 :D, 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.
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.Zitat:
Zitat von inout
Könntest du mal bitte den Code hinschreiben?
Weiß nicht genau, wie ich das so umsetzen sollte.
Er meint du sollst den Javascript-Code übersetzen und die Funktionen die er ausführt in Delphi coden oO
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 :D )
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).
Möglicher Aufruf:Code: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;
Code: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;
thx @inout
gibt es eigentlich auch eine andere Möglichkeit, bei dem man keine Drittkomponenten braucht?
z.B. mit diesem javaskript
Du könntest die Wininet-API oder die Winsock-API nehmen, aber für sowas bieten sich die Indys doch ganz gut an.Zitat:
Zitat von oxmox
Irgendwie musste das ding halt runterladen - kannst es aber auch gerne mit der Befehlszeile machen :D