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)
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
Responder

Volver a “Fuentes”