• interfaz grafica para youtube-dl(descargar videos de youtube)

 #495133  por joselin2
 07 Sep 2019, 04:44
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][ Debe registrarse para ver este enlace ][/img]
link ejecutables.
[ Debe registrarse para ver este enlace ]
link codigo
[ Debe registrarse para ver este enlace ]
 #495209  por joselin2
 28 Sep 2019, 06:43
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, '[ Debe registrarse para ver este enlace ]') 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