Discussion :

[Roland Chastain]

Bonjour,

Je vous propose un nouvel élément à utiliser : Easy YouTube DL

Simple application pour faciliter l'usage de youtube-dl, l'outil de téléchargement de vidéos YouTube.



Qu'en pensez-vous ?

[Jipété]

Bonjour,

Ah tiens, un truc qui a l'air intéressant, et avec les sources on va pouvoir tuner tip-top l'ihm, donc je dl.

J'enregistre le zip quelque part, j'extrais le projet, je lance Laz et je lui demande d'ouvrir le .lpi (puisque, je le rappelle, cet outil n'est pas capable de comprendre que quand je double-clique sur un .lpi c'est pour l'ouvrir, ) et là, surprise et stupéfaction, rien ne s'affiche !

Enfin, si, l'ide s'affiche, mais l'inspecteur d'objets est vide et quand je fais Projet / Fiches... c'est vide, tout comme Projet / Unités... ou Projet / Retirer du projet...
Quant à Projet / Voir le code source, ça n'affiche rien.

Une idée de la subtilité qui m'a échappé ?
Config : Linux Debian Bullseye 11.3 / Laz 2.0.12
Merci,

[Roland Chastain]

Bonjour Jipété. Merci d'avoir signalé le problème.

J'ai créé le projet avec Lazarus 2.3.0. Je pense que c'est de là que vient le problème.

Il y a un outil qui sert à résoudre ce problème : fixlp

Après avoir compilé l'outil, il faut l'exécuter avec le nom du projet (le fichier lpi) comme paramètre. Le projet est modifié pour être compatible avec les anciennes versions de Lazarus.

[Jipété]

Bonsoir Roland,

Il y a un outil qui sert à résoudre ce problème : fixlp

Après avoir compilé l'outil, il faut l'exécuter avec le nom du projet (le fichier lpi) comme paramètre. Le projet est modifié pour être compatible avec les anciennes versions de Lazarus.

Merci pour le lien, l'affaire est faite.

Maintenant, il va falloir rajouter du code sous le bouton Download si on veut retrouver la vidéo téléchargée. Verrai ça demain...

Sinon, j'ai trouvé cette histoire de format pas très intuitive (aucune information pour savoir à quoi ça correspond), et que signifie ce "18" qu'on retrouve à la dernière ligne de l'exemple : hasard ou coïncidence ?
(image rétrécie pour aller à l'essentiel) :

[Roland Chastain]

Sinon, j'ai trouvé cette histoire de format pas très intuitive (aucune information pour savoir à quoi ça correspond), et que signifie ce "18" qu'on retrouve à la dernière ligne de l'exemple : hasard ou coïncidence ?

Oui, c'est vrai que ce n'est pas très parlant.

Le TEdit sert à saisir le numéro de format qui sera passé dans la ligne de commande. Il est prérempli à 18, parce que c'est généralement la valeur que j'utilise. Oui, c'est le même 18 qu'on retrouve dans la liste des formats.

[Jipété]

Salut bonjour,

J'ai apporté deux microscopiques modifs :

1- remplacé ce TMemo aux lignes non cliquables par une TListBox (lbxOutput) et j'ai rajouté une procédure :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
procedure TForm1.lbxOutputSelectionChange(Sender: TObject; User: boolean); // jpt
begin
  EDFormat.Text := lbxOutput.Items.Strings[lbxOutput.ItemIndex];
end;

plus qu'à récupérer le 1^er champ de la ligne sélectionnée (mais j'ai pas trop le temps, là…)


2- pour éviter cette erreur très moche au lancement (URL validation failed), j'ai ajouté ça dans le FormCreate :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Clipboard.AsText:='https://www.youtube.com/watch?v=zMf9XDQBAaI';// jpt

À plus et merci !

[Roland Chastain]

Merci pour tes suggestions Jipété. Ce sont de bonnes idées.

plus qu'à récupérer le 1^er champ de la ligne sélectionnée (mais j'ai pas trop le temps, là…)

Si tu n'as rien d'autre sous la main tu peux utiliser cette fonction-ci.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
function TForm1.ExtractFormatNumber(const AText: string; out ANumber: string
  ): boolean;
const
  CFormatSpecification = '(\d+)\s+(mp4|m4a|webm)\s+.+';
var
  LExpr: TRegExpr;
begin
  LExpr := TRegExpr.Create(CFormatSpecification);
  result := LExpr.Exec(AText);
  if result then
    ANumber := LExpr.Match[1];
  LExpr.Free;
end;

[Jipété]

Merci pour tes suggestions Jipété. Ce sont de bonnes idées.

Si tu n'as rien d'autre sous la main tu peux utiliser cette fonction-ci.

Maintenant, il va falloir rajouter du code sous le bouton Download si on veut retrouver la vidéo téléchargée. Verrai ça demain...

On est demain et je n'ai pas d'idée...
Tu fais comment, toi ?

[Roland Chastain]

Tu fais comment, toi ?

J'exécute toujours l'application depuis son propre répertoire, qui contient aussi youtube-dl. Donc les vidéos atterrissent là aussi.

Je ne me suis pas posé la question de savoir ce qui se passe quand on exécute l'application depuis un autre répertoire. J'imagine que les vidéos sont dans le répertoire depuis lequel on lance l'application, non ?

[Jipété]

Bonjour,

J'exécute toujours l'application depuis son propre répertoire, qui contient aussi youtube-dl. Donc les vidéos atterrissent là aussi.

Je ne me suis pas posé la question de savoir ce qui se passe quand on exécute l'application depuis un autre répertoire. J'imagine que les vidéos sont dans le répertoire depuis lequel on lance l'application, non ?

Oui.
Je ne m'en étais pas rendu compte jusqu'à présent,

Pour me faire pardonner, l'astuce pour avoir la scrollbar horizontale (mais dommage, je n'ai pas trouvé comment comment ne pas l'avoir au lancement -- bah...)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
procedure TForm1.FormResize(Sender: TObject);
// source : https://forum.lazarus.freepascal.org/index.php/topic,11778.msg80832.html#msg80832
begin
  lbxOutput.ScrollWidth := lbxOutput.Width+25; // jpt
end;

et ça donne ça :

qui permet de voir ce qui se cache à droite,

Pour obtenir cette image, j'ai d'abord cliqué sur List Formats puis sur la ligne 133.

Ensuite j'ai lancé le download et là, force est de constater qu'on se croirait revenu au bon vieux temps des modems 1200 bauds, tellement le dl se traine...
10 minutes pour 35 Mo, j'ai arrêté, tant pis pour Bach.
C'est à regretter d'avoir fait installer la fibre,
Doit y avoir un truc à optimiser quelque part mais je ne vois pas trop où.
Peut-être dans procedure TPipeThread.Show; ?

Une idée ?

[Roland Chastain]

Merci Jipété. Je viens de publier une version améliorée, reprenant je crois toutes les modifications que tu as suggérées. Il y a maintenant une interface en français.

Easy YouTube DL 0.2

P.-S. Pour la lenteur du téléchargement, je peux me tromper mais je ne pense pas que l'application y soit pour quelque chose.

[Jipété]

P.-S. Pour la lenteur du téléchargement, je peux me tromper mais je ne pense pas que l'application y soit pour quelque chose.

Si ce n'est pas l'application, alors c'est le helper de youtube, qui n'est rien d'autre qu'un container zippé de 818 fichiers dont l'immense majorité c'est des script python.
unzip -l youtube-dl ça donne ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Archive:  youtube-dl
warning [youtube-dl]:  22 extra bytes at beginning or within zipfile
  (attempting to process anyway)
  Length      Date    Time    Name
---------  ---------- -----   ----
    16130  1999-12-31 19:01   youtube_dl/aes.py
     2981  1999-12-31 19:01   youtube_dl/cache.py
    94259  1999-12-31 19:01   youtube_dl/compat.py
    20585  1999-12-31 19:01   youtube_dl/__init__.py
     9199  1999-12-31 19:01   youtube_dl/jsinterp.py
    42491  1999-12-31 19:01   youtube_dl/options.py
     8861  1999-12-31 19:01   youtube_dl/socks.py
    31486  1999-12-31 19:01   youtube_dl/swfinterp.py
     7064  1999-12-31 19:01   youtube_dl/update.py
   170851  1999-12-31 19:01   youtube_dl/utils.py
       68  1999-12-31 19:01   youtube_dl/version.py
   112834  1999-12-31 19:01   youtube_dl/YoutubeDL.py
    14774  1999-12-31 19:01   youtube_dl/downloader/common.py
     3209  1999-12-31 19:01   youtube_dl/downloader/dash.py
... 9 autres puis
     6400  1999-12-31 19:01   youtube_dl/extractor/abcnews.py
     4740  1999-12-31 19:01   youtube_dl/extractor/abcotvs.py
... environ 787 autres fichiers dans le même dossier puis
     2240  1999-12-31 19:01   youtube_dl/postprocessor/common.py
     5814  1999-12-31 19:01   youtube_dl/postprocessor/embedthumbnail.py
      877  1999-12-31 19:01   youtube_dl/postprocessor/execafterdownload.py
    26138  1999-12-31 19:01   youtube_dl/postprocessor/ffmpeg.py
      955  1999-12-31 19:01   youtube_dl/postprocessor/__init__.py
     1652  1999-12-31 19:01   youtube_dl/postprocessor/metadatafromtitle.py
     2926  1999-12-31 19:01   youtube_dl/postprocessor/xattrpp.py
      467  1999-12-31 19:01   __main__.py

Bon courage à celui qui va aller mettre les mains là-dedans.