hola , soy joselin2 el que sigue despues de joselin ,compartola interfaz grafica
hecha de codigos de la web (solo soy el ensamblador de ideas), para descargar videos de youtube
requiere en la misma carpeta fmpeg.exe y youtube dl.exe echo en delphi xe7
mejorar a gusto y disculpar la desprolijidad del codigo
[img][Enlace externo eliminado para invitados][/img]
link ejecutables.
[Enlace externo eliminado para invitados]
link codigo
[Enlace externo eliminado para invitados]
alguien puede arreglar y explicarme porque no se ve la imagen
(esa thumbnail de la cara de alejandra guzman no le hace justicia)
(esa thumbnail de la cara de alejandra guzman no le hace justicia)
actualizacion 28/9/2019 no copiaba las opciones de audio despues de actualizar youtube-dl
en el editchange del paste de la url se agrega: una comprobacion de cadena(si contiene 'dash audio' o 'audio only tiny' ) y se lo asigna a una cadena fija
audioselect:=''
procedure TForm1.Edit1Change(Sender: TObject);
var
s,url,url2,DATOs:string;
info : TStringList;
Cadena, CadenaTmp, Palabra ,audioselect: String;
PosIni, PosFin,posfin2 : Integer;
begin
s:=('"'+ExtractFilePath(Application.ExeName)+'youtube-dl.exe"');
url:=edit1.text;
url2:=edit1.Text;
if ContainsText(url, '[Enlace externo eliminado para invitados]') then
begin
combobox1.itemindex :=-1;
combobox2.itemindex :=-1;
combobox1.Items.Clear;
combobox2.Items.Clear;
// diferenciar youtube de otras web aca
datos:=(DosCommand(S+ ' -F '+ url)) ;
PosFin := Pos('resolution note',datos);
delete(datos,1 ,PosFin+15);
//update 28/9/2019
if ContainsText(datos, 'DASH audio') then
audioselect:= 'DASH audio'
else
audioselect:= 'audio only tiny' ;
//fin update 28/9/219
// while Pos('DASH audio',datos)>0 do
//UPDATE 28/9/2019
while Pos(audioselect,datos)>0 do
//fin update 28/9/219
begin
el resto queda igual ,
falta agregar descargar por listas de reproducion y otras cosas
en el editchange del paste de la url se agrega: una comprobacion de cadena(si contiene 'dash audio' o 'audio only tiny' ) y se lo asigna a una cadena fija
audioselect:=''
procedure TForm1.Edit1Change(Sender: TObject);
var
s,url,url2,DATOs:string;
info : TStringList;
Cadena, CadenaTmp, Palabra ,audioselect: String;
PosIni, PosFin,posfin2 : Integer;
begin
s:=('"'+ExtractFilePath(Application.ExeName)+'youtube-dl.exe"');
url:=edit1.text;
url2:=edit1.Text;
if ContainsText(url, '[Enlace externo eliminado para invitados]') then
begin
combobox1.itemindex :=-1;
combobox2.itemindex :=-1;
combobox1.Items.Clear;
combobox2.Items.Clear;
// diferenciar youtube de otras web aca
datos:=(DosCommand(S+ ' -F '+ url)) ;
PosFin := Pos('resolution note',datos);
delete(datos,1 ,PosFin+15);
//update 28/9/2019
if ContainsText(datos, 'DASH audio') then
audioselect:= 'DASH audio'
else
audioselect:= 'audio only tiny' ;
//fin update 28/9/219
// while Pos('DASH audio',datos)>0 do
//UPDATE 28/9/2019
while Pos(audioselect,datos)>0 do
//fin update 28/9/219
begin
el resto queda igual ,
falta agregar descargar por listas de reproducion y otras cosas