FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

Développement d'applications avec le langage Panoramic
 
AccueilAccueil  FAQFAQ  RechercherRechercher  S'enregistrerS'enregistrer  MembresMembres  GroupesGroupes  Connexion  
Derniers sujets
» Panoramic et ses curiosités
par Klaus Aujourd'hui à 2:20

» Synedit Parameters
par Klaus Aujourd'hui à 1:33

» Utilitaire de suppression de fichiers
par Yannick Hier à 23:03

» Code à vérifier SVP (Oups ! résolu)
par Jean Claude Jeu 22 Juin 2017 - 21:16

» Compilateur FBPano
par jean_debord Jeu 22 Juin 2017 - 9:56

» Bienvenue à Virtualalan !
par UltraVox Jeu 22 Juin 2017 - 9:18

» Concours de Morpions
par jjn4 Jeu 22 Juin 2017 - 0:04

» ShortName$(F) [Cloturé]
par papydall Mer 21 Juin 2017 - 16:19

» Remplacer espace par tiret dans noms des dossiers / fichiers
par papydall Mer 21 Juin 2017 - 15:27

» Menu personalisé avec icones et menu contextuel
par Laurent (Minibug) Mer 21 Juin 2017 - 12:44

» La liste des choses à faire ...
par Jack Mar 20 Juin 2017 - 22:49

» Quoi de neuf à propos de Goric 3D ? (@Jack)
par UltraVox Mar 20 Juin 2017 - 21:06

» Nom court et anti fenetre dos
par silverman Mar 20 Juin 2017 - 18:31

» Ludothèque Panoramic
par jjn4 Mar 20 Juin 2017 - 18:09

» Proposition à la communauté
par Yannick Mar 20 Juin 2017 - 15:02

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Juin 2017
LunMarMerJeuVenSamDim
   1234
567891011
12131415161718
19202122232425
2627282930  
CalendrierCalendrier

Partagez | 
 

 Capture vidéo et audio sur le web

Voir le sujet précédent Voir le sujet suivant Aller en bas 
Aller à la page : 1, 2  Suivant
AuteurMessage
JL35



Nombre de messages : 5882
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Capture vidéo et audio sur le web   Lun 7 Juil 2014 - 15:39

Je mets quand même mon petit programme de capture (voir rubrique bavardages), avec une petite réticence due au fait que l'essentiel du travail est fait par des modules externes, le programme Panoramic n'étant que de l'habillage (interface).
Le but est de capturer des vidéos ou des sons (musiques) sur des sites comme YouTube, DailyMotion, etc, en donnant simplement l'url de la vidéo en question.
Il existe des programmes pour faire ça, et on peut même le faire tout simplement en ligne en copiant tout simplement l'url.
Mais je voulais le faire depuis un programme Panoramic, pour pouvoir ajouter des fonctionnalités.

Les ressources externes nécessaires (essentiellement 2 modules à télécharger) sont décrites en tête du programme.
- youtube-dl.exe
- ffmpeg.exe, ffprobe.exe, ffplay.exe, qui sont utilisés par la majorité des programmes de travail et conversions vidéos, et dont les possibilités sont infinies (taper ffplay -h, pour voir...)
Et il me paraît nécessaire également de tout mettre dans un seul et même répertoire, qui sera le répertoire d'exécution et où seront téléchargées les vidéos.

Le programme Panoramic ci-dessous est une interface, avec listage du répertoire, affichage d'infos sur les fichiers, conversions, etc.
Il est possible de convertir une vidéo téléchargée en avi (xvid), d'en extraire la bande son, etc., les possibilités des modules embarqués sont énormes, à étudier pour ceux que ça intéresse (taper exécutable.exe -h en ligne de commande pour voir les paramètres possibles).
Il est possible de préparer une liste d'urls, de la soumettre au programme et de lancer le téléchargement de l'ensemble.

S'il y en a que ça intéresse, le programme est très évolutif, après étude des paramètres des modules intégrés (et là, bon courage !). Et il contient quelques subs qui pourraient être utilisées ailleurs.
Code:
' ==============================================================================
' Capture vidéo et/ou audio de vidéos sur YouTube, DailyMotion, etc. à partir de
' l'url de la vidéo.
' Ressources externes utilisées:
' =============================
' - youtube-dl.exe, téléchargeable ici: http://rg3.github.io/youtube-dl/download.html
' - ~~~~~~~~~~~~~~
' - ffmpeg.exe (avec ffprobe.exe et ffplay.exe), version Windows,téléchargeable
'  ~~~~~~~~~~ ici: http://ffmpeg.zeranoe.com/builds/ choisir la version Windows
'              Static 32 ou 64 bits, décompresser, puis récupérer les 3 exécutables
'              ffmpeg, ffprobe et ffplay dans le sous-répertoire 'bin' et les copier
'              dans le même répertoire que youtube-dl.
'              On peut supprimer le reste qui est inutile dans notre application.
' NB: il est conseillé de créer un répertoire spécial (ici C:\YouTube) qui contiendra
'    tous les utilitaires ci-dessus, sera le répertoire d'exécution du programme,
'    et recevra tous les téléchargements.
'
' On peut lancer le téléchargement d'une vidéo donnée par son url, ou seulement le
' son au format MP3. Ou bien extraire ultérieurement le son de la vidéo enregistrée.
' On peut établir une liste d'urls et télécharger successivement
' (et automatiquement) tous les éléments de la liste.
' ==============================================================================
LABEL Capture, Dir, Caract, Voir, Convert, Extract, Suppr
DIM rp$,ra$,ytub$,ffm$,fr$,url$,a$,b$,c$,f$,i%,sz%,nf%,szt%,rc$,brv%,du%,du1%,h%,m%,s%
DIM typ%,ur%,suf$
rp$ = "C:\YouTube": ' répertoire de travail et d'enregistrement
ytub$ = rp$+"\youtube-dl.exe "
ffm$ = rp$+"\ffmpeg.exe "
rc$ = CHR$(13)+CHR$(10)
' conversion mp4 -> avi: ffmpeg.exe -i Fichier.mp4 -f avi Chemin.avi
HEIGHT 0,800: COLOR 0,200,255,255
font_bold 0: CAPTION 0,"   -   CAPTURE   VIDÉO   ET   AUDIO   (YouTube, etc.)   -"
ALPHA 18: TOP 18,5: CAPTION 18,"   Liste de la ou des urls à capturer (coller):"
MEMO 1: TOP 1,20: WIDTH 1,480: HEIGHT 1,200
BUTTON 2: TOP 2,60: LEFT 2,WIDTH(1): WIDTH 2,100: HEIGHT 2,30: CAPTION 2,"Capture Vidéo"
ON_CLICK 2,Capture
BUTTON 3: TOP 3,TOP(2)+50: LEFT 3,LEFT(2): WIDTH 3,WIDTH(2): HEIGHT 3,30: CAPTION 3,"Capture Audio"
ON_CLICK 3,Capture
ALPHA 8: TOP 8,TOP(1)+HEIGHT(1)+5: LEFT 8,70
CAPTION 8,"Répertoire de "+rp$+" (FLV, MP4, AVI, MP3: clic pour infos) :"
MEMO 9: WIDTH 9,500: HIDE 9
LIST 10: TOP 10,TOP(1)+HEIGHT(1)+20: HEIGHT 10,500: WIDTH 10,WIDTH(0)-16
COLOR 10,255,255,190: ON_CLICK 10, Caract
font_name 10,"Source Code Pro": FONT_SIZE 10,10
FORM 20: BORDER_SMALL 20: TOP 20,340: LEFT 20,150: HEIGHT 20,220: WIDTH 20,300
HIDE 20: FONT_NAME 20,"Lucida Console": FONT_SIZE 20,10: FONT_BOLD 20
MEMO 21: PARENT 21,20: FULL_SPACE 21: COLOR 21,200,255,200
BUTTON 22: PARENT 22,20: TOP 22,HEIGHT(20)-95: LEFT 22,5: CAPTION 22,"Voir/Écouter"
WIDTH 22,135: ON_CLICK 22,Voir
BUTTON 23: PARENT 23,20: TOP 23,TOP(22): LEFT 23,WIDTH(20)-155: WIDTH 23,135
CAPTION 23,"Convertir AVI": ON_CLICK 23,Convert
ALPHA 26: PARENT 26,20: TOP 26,TOP(23)+25: LEFT 26,LEFT(23)
BUTTON 27: PARENT 27,20: TOP 27,TOP(22)+30: LEFT 27,LEFT(22): WIDTH 27,135
CAPTION 27,"Supprimer": ON_CLICK 27,Suppr
BUTTON 28: PARENT 28,20: TOP 28,TOP(27): LEFT 28,LEFT(23): WIDTH 28,WIDTH(23)
CAPTION 28,"Extraire MP3": ON_CLICK 28,Extract
GOSUB Dir

END
' ==============================================================================
Capture:
IF COUNT(1) = 0 THEN RETURN
IF CLICKED(2) = 1
    typ% = 0: ' capture vidéo
ELSE
    typ% = 1: ' capture uniquement audio -> mp3
END_IF
FOR ur% = 1 TO COUNT(1)
    url$ = ITEM_READ$(1,ur%)
    IF typ% = 0
        Captvideo(url$,rp$)
    ELSE
        Captaudio(url$,rp$)
    END_IF
    GOSUB Dir
NEXT ur%
RETURN
' ==============================================================================
Dir:
Dir(rp$,"/B")
CLEAR 9: CLIPBOARD_PASTE 9
CLEAR 10
nf% = 0: szt% = 0
FOR i% = 1 TO COUNT(9)
    a$ = ITEM_READ$(9,i%): suf$ = UPPER$(RIGHT$(a$,4))
    IF suf$ = ".FLV" OR suf$ = ".MP4" OR suf$ = ".AVI" OR suf$ = ".MP3"
        FILEBIN_OPEN_READ 1,CHR$(34)+rp$+"\"+a$+CHR$(34)
        sz%=FILEBIN_SIZE(1): FILEBIN_CLOSE 1
        nf% = nf%+1: szt% = szt%+sz%
        ITEM_ADD 10,RIGHT$("        "+STR$(sz%),9)+" "+a$
    END_IF
NEXT i%
ITEM_ADD 10, " ->  TOTAL: "+STR$(nf%)+" fichiers, "+STR$(szt%)+" octets."
RETURN
' ==============================================================================
Caract:
' caractéristiques d'une vidéo
b$ = MID$(ITEM_INDEX$(10),11,100)
suf$ = UPPER$(RIGHT$(b$,4))
f$ = rp$ + "\" + b$: VideoInfos(f$)
CAPTION 20, b$
CLEAR 21: CLIPBOARD_PASTE 21
SHOW 23: SHOW 28
IF suf$ = ".AVI" OR suf$ = ".MP3"
    HIDE 23: IF SUF$ = ".MP3" THEN HIDE 28
END_IF
SHOW 20: TO_FOREGROUND 20
a$ = CLIPBOARD_STRING_PASTE$: brv% = 0: i% = INSTR(a$,"Br.Vid:")
IF i% > 0 THEN a$ = MID$(a$,i%+8,10): i%=INSTR(a$," "): brv%=VAL(LEFT$(a$,i%-1))
RETURN
' ==============================================================================
Voir:
Nomcourt(f$)
EXECUTE_WAIT rs_nc$
RETURN
' ==============================================================================
Convert:
du% = VAL(RIGHT$(TIME$,2))+60*VAL(MID$(TIME$,4,2))+3600*VAL(LEFT$(TIME$,2))
FOR i% = LEN(f$) TO 1 STEP -1
    IF MID$(f$,i%,1) = "." THEN EXIT_FOR
NEXT i%
fr$ = LEFT$(f$,i%)+"AVI": ' même nom et emplacement que le fichier d'origine
MP4toAVI(f$,fr$)
du1% = VAL(RIGHT$(TIME$,2))+60*VAL(MID$(TIME$,4,2))+3600*VAL(LEFT$(TIME$,2))
IF du1% < du% THEN du1% = du1%+24*3600
du% = du1% - du%: ' durée conversion, en secondes
h%=INT(du%/3600): m%=INT((du%-3600*h%)/60): s%=du%-3600*h%-60*m%
GOSUB Dir
CAPTION 26,STR$(h%)+":"+RIGHT$("0"+STR$(m%),2)+":"+RIGHT$("0"+STR$(s%),2)
RETURN
' ==============================================================================
Extract:
FOR i% = LEN(f$) TO 1 STEP -1
    IF MID$(f$,i%,1) = "." THEN EXIT_FOR
NEXT i%
fr$ = LEFT$(f$,i%)+"MP3": ' même nom et emplacement que le fichier d'origine
Video2Mp3(f$,fr$)
GOSUB Dir
RETURN
' ==============================================================================
Suppr:
a$ = "Suppression de " + f$ + " ?"
i% = MESSAGE_CONFIRMATION_YES_NO(a$): IF i% <> 1 THEN RETURN
FILE_DELETE f$
GOSUB Dir
HIDE 20
RETURN
' ==============================================================================
SUB VideoInfos(f$)
' infos vidéo, résultat dans le clipboard
DIM_LOCAL ffm$, finf$, a$, b$, c$, rc$, i%, j%
rc$ = CHR$(13)+CHR$(10)
ffm$ = "C:\YouTube\ffmpeg.exe "
finf$ = "C:\TEMP\\Infos.txt"
EXECUTE_WAIT "CMD.exe /C "+ffm$ + "-i " + CHR$(34)+f$+CHR$(34) + " 2> "+ finf$
EXECUTE_WAIT "CMD.exe /C DIR /TC " + CHR$(34)+f$+CHR$(34) + " | clip"
a$ = CLIPBOARD_STRING_PASTE$
i% = INSTR(a$,"/"): a$ = MID$(a$,i%-2,100)
b$ = "Date    : "+LEFT$(a$,17)
b$ = b$ + rc$ + "Taille  : "+LTRIM$(MID$(a$,18,18))
FILE_OPEN_READ 9, finf$
WHILE FILE_EOF(9) = 0
    FILE_READLN 9, a$
    IF LEFT$(a$,5) = "Input" THEN b$=b$+rc$+"Type    : "+UPPER$(MID$(a$,11,3))
    IF INSTR(a$,"Duration:") > 0
        i%=INSTR(a$,"Duration"): c$ = MID$(a$,i%+10,8)
        i% = INSTR(c$," "): IF i%>0 THEN c$ = LEFT$(c$,i%-1)
        i% = VAL(RIGHT$(c$,2)): i%=i%+60*VAL(MID$(c$,LEN(c$)-4,2))
        i%=i%+3600*VAL(LEFT$(c$,INSTR(c$,":")-1))
        b$ = b$ + rc$ + "Durée   : "+c$
        b$ = b$ + " (= "+STR$(i%)+" s.)"
        i% = INSTR(a$,"bitrate:"): c$ = MID$(a$,i%+9,10)
        b$ = b$ + rc$ + "Bitrate : " + c$
    ELSE
        IF INSTR(a$,"Video: ") > 0
            i% = INSTR(a$,"),"): IF i%>0 THEN a$=MID$(a$,i%+3,100)
            i% = INSTR(a$,"x")
            FOR j% = i% TO 1 STEP -1
                IF MID$(a$,j%,1) = " " THEN EXIT_FOR
            NEXT j%
            a$ = MID$(a$,j%+1,100): i% = INSTR(a$,",")
            c$ = LEFT$(a$,i%-1): a$ = MID$(a$,i%+2,100)
            i% = INSTR(c$," "): IF i% > 0 THEN c$=LEFT$(c$,i%-1)
            b$=b$+rc$+"Format  : "+c$
            i% = INSTR(a$,"]"): IF i%>0 THEN a$ = MID$(a$,i%+3,100)
            i% = INSTR(a$,",")
            b$=b$+rc$+"Br.Video: "+LEFT$(a$,i%-1): a$ = MID$(a$,i%+2,100)
            i% = INSTR(a$,"fps"): b$=b$+rc$+"Img/s   : "+MID$(a$,i%-3,2)
        ELSE
            IF INSTR(a$,"Audio: ") > 0
                i% = INSTR(a$," kb/s")
                FOR j% = i%-1 TO 1 STEP -1
                    IF MID$(a$,j%,1) = " " THEN EXIT_FOR
                NEXT j%
                b$=b$+rc$+"Br.Audio: "+MID$(a$,j%+1,i%+4-j%)
            END_IF
        END_IF
    END_IF
END_WHILE
FILE_CLOSE 9
FILE_DELETE finf$
CLIPBOARD_STRING_COPY b$
END_SUB
' ==============================================================================
SUB Captvideo(url$,rep$)
' Capture d'une vidéo (ex. youtube) url$, résultat dans le répertoire rep$
DIM_LOCAL rep$, ytb$, rs$
rep$ = "C:\YouTube": ' répertoire de travail
ytb$ = "youtube-dl.exe ": ' logiciel de capture
rs$ = DIR_CURRENT$: DIR_CHANGE rep$: ' répertoire récepteur
EXECUTE_WAIT "CMD.exe /C " + ytb$ + url$
DIR_CHANGE rs$
END_SUB
' ==============================================================================
SUB Captaudio(url$,rep$)
' Extraction audio d'une vidéo (ex. youtube) url$, résultat dans le répertoire rep$
DIM_LOCAL ytb$,rep$, rs$
rep$ = "C:\YouTube": ' répertoire de travail
ytb$ = "youtube-dl.exe ": ' logiciel de capture
rs$ = DIR_CURRENT$: DIR_CHANGE rep$: ' répertoire récepteur
EXECUTE_WAIT "CMD.exe /C " + ytub$ + "--extract-audio --audio-format mp3 " + url$
DIR_CHANGE rs$
END_SUB
' ==============================================================================
SUB Video2Mp3(f1$,f2$)
' Extraction de la bande son d'une vidéo (ex. youtube)
' f1$ fichier vidéo, f2$ fichier .mp3
DIM_LOCAL rep$, ffm$, arg$, rs$
rep$ = "C:\YouTube": ' répertoire de travail
rs$ = DIR_CURRENT$: DIR_CHANGE rep$: ' répertoire récepteur
ffm$ = "ffmpeg.exe ": ' conversions
arg$ = " -y -vn -ar 44100 -ac 2 -ab 192k -f mp3 "
' EXECUTE_WAIT "CMD.exe /C "+ffm$+"-i "+CHR$(34)+f1$+CHR$(34)+arg$+CHR$(34)+f2$+CHR$(34)
file_open_write 9,"Exec.bat"
    file_writeln 9,"@echo off"
    file_writeln 9,ffm$+"-i "+CHR$(34)+f1$+CHR$(34)+arg$+CHR$(34)+f2$+CHR$(34)
file_close 9
execute_wait "cmd.exe /c Exec.bat"
file_delete "Exec.bat"
DIR_CHANGE rs$
END_SUB
' ==============================================================================
SUB Mp4toAvi(f1$,f2$)
' Conversion vidéo mp4 en avi (xvid)
DIM_LOCAL rep$, ffm$, arg$, rs$
rep$ = "C:\YouTube": ' répertoire de travail
rs$ = DIR_CURRENT$: DIR_CHANGE rep$: ' répertoire récepteur
ffm$ = "ffmpeg.exe ": ' conversions
' arguments: -y surcharger l'existant éventuel, -i fichier in,
' c:v libxvid: conversion xvid, -q:v 10: qualité (1: meilleur à 31: plus mauvais)
' arg$ = "-y -i "+CHR$(34)+f1$+CHR$(34)+" -c:v libxvid -q:v 10"
' arg$ = arg$ + " -acodec mp3 -ac 2 -deinterlace "
arg$ = "-y -i "+CHR$(34)+f1$+CHR$(34)+" -c:v mpeg4 -vtag xvid -q:v 9"
' EXECUTE_WAIT "CMD.exe /C " + ffm$ + arg$ + " " + CHR$(34)+f2$+CHR$(34)
file_open_write 9,"Exec.bat"
    file_writeln 9,"@echo off"
    file_writeln 9,ffm$ + arg$ + " " + CHR$(34)+f2$+CHR$(34)
file_close 9
execute_wait "cmd.exe /c Exec.bat"
file_delete "Exec.bat"
DIR_CHANGE rs$
END_SUB
' ==============================================================================
SUB Dir(rep$, arg$)
' Liste des fichiers du répertoire rep$, options arg$, résultat -> CLIPBOARD
' (à coller par exemple dans un Memo). Exécution sans fenêtre noire.
' Arguments optionnels:
'    /A:D répertoires, /A:-D fichiers, /B format abrégé"
'    /-C pas de séparateur de milliers, /-N fichiers à gauche (abrégés)
'    /O: (tri) N tri alpha, E tri par extension, G répertoires en tête,
'        S tri par taille, D tri par date croissante (-D date décroissante)
'    /S y compris sous-répertoires, /X avec noms abrégés.
DIM_LOCAL prg_a$, s_cr$, b_at$
prg_a$ = "CMD.exe /c DIR " + rep$ + " " + arg$ + " | clip"
s_cr$ = "Z:\Vbscript.vbs": b_at$ = "Z:\Bat.bat"
FILE_OPEN_WRITE 9, b_at$: FILE_WRITELN 9, prg_a$: FILE_CLOSE 9: ' Fichier .bat
prg_a$ = "CreateObject(" + CHR$(34) + "Wscript.Shell" + CHR$(34) + ").Run "
prg_a$ = prg_a$ + CHR$(34) + b_at$ + CHR$(34) + ",0,True"
FILE_OPEN_WRITE 9, s_cr$: FILE_WRITELN 9, prg_a$: FILE_CLOSE 9: ' script vbs
EXECUTE_WAIT "WSCRIPT.exe " + s_cr$: ' Exécution du script
FILE_DELETE b_at$: FILE_DELETE s_cr$
END_SUB
' ==============================================================================
SUB Nomcourt(Path$)
' Conversion de Path long en Path court (sans espace) -> rs_nc$
IF VARIABLE("rs_nc$") = 0 THEN DIM rs_nc$
DIM_LOCAL nc_fbat$,nc_tmp$,nc_court$
nc_fbat$ = "C:\Temp\Nomcourt.bat": nc_tmp$ = "C:\Temp\temp"
FILE_OPEN_WRITE 9, nc_fbat$
FILE_WRITELN 9, "@echo off"
FILE_WRITELN 9, "for %%A in ("+CHR$(34)+Path$+CHR$(34)+") do echo.%%~sfA >"+nc_tmp$
FILE_CLOSE 9
EXECUTE_WAIT nc_fbat$
FILE_OPEN_READ 9, nc_tmp$
FILE_READLN 9, rs_nc$
FILE_CLOSE 9: FILE_DELETE nc_tmp$: FILE_DELETE nc_fbat$
END_SUB
' ==============================================================================
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Yannick

avatar

Nombre de messages : 7825
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Dim 13 Juil 2014 - 15:03

j' ai un petit souci avec tes adresses de fichiers...


Je pensais que ce fichier était auto-créé donc j' ai changé tout les c:/ et z:/ par l' adresse du dossier principal du programme
mais bon...
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
JL35



Nombre de messages : 5882
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: Capture vidéo et audio sur le web   Dim 13 Juil 2014 - 22:15

Il semble que ce soit un problème avec l'exécution d'un script, à quel endroit ?
Probablement dans la sub Dir(), ça semble être le seul script vbs... et il semble que l'exécution du vbscript (Wscript.exe) ne trouve pas le script.vbs
Le script est bien créé de toutes pièces dans la sub.
Tu as bien remplacé mes Z:\ (qui ne doit pas exister chez toi) par des C:\TEMP\ ?

Si les vbscripts ne s'exécutent pas chez toi (ça arrive, ça dépend de la config, mais enfin c'est assez rare), je peux te fournir une autre sub Dir() équivalente, en pur Panoramic, sans script.
Mais ça ne doit pas être le cas chez toi, puisque tu as une erreur Windows Script Host, c'est plutôt un problème de localisation de fichier.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Invité
Invité



MessageSujet: Re: Capture vidéo et audio sur le web   Dim 13 Juil 2014 - 22:53

Bonsoir

J'ai pas testé, mais dans ton autre programme que j'ai essayé pour voir surtraitements d'image je crois, j'ai vu une erreur, et je crois quel se répète ici.

Tu définis les variables des dossiers en haut, et à l'exécution, tu les redéfinis à nouveau. Je ne pense pas que Ygenorimi a un disque Z.

Les variables sont redéfinis deux fois.
Pour ce programme de capture vidéo, j'ai préféré faire autrement:
Je récupère avec un clic droit sur la vidéo, l'url de celle-ci, et je lance le programme panoramic qui prend en compte la copie. Pour cette raison, je garde ma solution (personnelle) qui me convient.
Revenir en haut Aller en bas
JL35



Nombre de messages : 5882
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: Capture vidéo et audio sur le web   Dim 13 Juil 2014 - 23:56

Tu as probablement raison cosmos, mais de toute façon il vaut mieux vérifier tous les chemins définis dans le programme pour les adapter à son cas personnel (faire une recherche sur :\ par exemple).
Il faudrait que je perde cette habitude de mettre mon disque mémoire Z: partout, c'est bien pratique pour moi comme volume temporaire (ça ne laisse pas de traces), mais je suis un des rares (le seul ?) à l'utiliser.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Invité
Invité



MessageSujet: Re: Capture vidéo et audio sur le web   Lun 14 Juil 2014 - 2:21

Je ne sais pas si je me suis mal exprimé. Je dis simplement qu'en appliquant les modifications des fichiers au début du programme, tu as redéfinis ceux-ci à la fin. Ce qui fait que celui qui lance le programme avec ses données de départ, sont modifiées en bas.

Pour le traitement d'image:
regarde:
 

Donc le programme utilisateur ne peux fonctionner si le fichier est défini dans un autre dossier.

J'ai vu quelque chose de similaire dans la capture de vidéo, mais avec les modifications faites depuis, j'ai perdu l'endroit
Revenir en haut Aller en bas
JL35



Nombre de messages : 5882
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: Capture vidéo et audio sur le web   Lun 14 Juil 2014 - 12:06

C'est volontairement que je redéfinis les adresses dans chaque sub, que je considère comme un élément indépendant à insérer dans un programme sans se soucier de ce qu'elle contient, elle doit se suffire à elle-même sans avoir besoin d'éléments extérieurs, uniquement des paramètres qu'on lui passe dans les parenthèses.
L'inconvénient si on diffuse le programme c'est qu'il faut vérifier toutes les adresses en référence, ce n'est jamais la même chose d'un utilisateur à l'autre.
Ce serait mieux évidemment de regrouper tout en tête, comme j'essaie de faire habituellement, mais si on veut que les subs soient indépendantes du reste du programme ça pose un problème.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Yannick

avatar

Nombre de messages : 7825
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Lun 14 Juil 2014 - 12:15

@ JL35,

Mon problème vient apparemment du script en lui même.

Pour les adresses (url) le truc est que tu définis ton répertoire utilisateur
dans une variable constante en début de programme puis dans les appels aux subs
tu passes cette adresse en paramètre puis tu la redéfinis dans la sub... scratch Suspect
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Yannick

avatar

Nombre de messages : 7825
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: Re   Lun 14 Juil 2014 - 12:19

Suite après bug... Laughing 

Perso, j' ai créé un dossier sur le bureau nommé "Youtube_Dowloader".
Tout est dedans et tout se fait dedans.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Yannick

avatar

Nombre de messages : 7825
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Lun 14 Juil 2014 - 12:38

Création du fichier b_at$
Code:

prg_a$ ="CMD.exe /c DIR "+path$+" "+arg$+" |clip"

Création du fichier s_cr$
Code:

prg_a$ ="CreateObject("+chr$(34)+"Wscript.Shell"+chr$(34)+").run"
prg_a$ =prg_a$+chr$(34)+b_at2$+chr$(34)+",0,True"

Réponse 


b_at2$ a été créé pour éviter une adresse type :

C:\Users\Yannick\Desktop\Youtube_Downloader\\Bat.bat
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
JL35



Nombre de messages : 5882
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: Capture vidéo et audio sur le web   Lun 14 Juil 2014 - 12:49

Donc on parle bien de la sub Dir()
Je ne vois pas de quoi tu parles en disant que je définis quelque chose, que je passe en paramètre à la sub et que je redéfinis dans la sub elle-même ... c'est quoi ?

Au vu de tes affichages, tout semble pourtant correct, tu dois avoir un problème avec l'exécution des scripts vbs...

Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Yannick

avatar

Nombre de messages : 7825
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Lun 14 Juil 2014 - 12:53

Pourtant cela fonctionnait avec d' autres scripts... scratch 

Celui pour éviter la fenêtre noire fonctionne bien dans
Personnal Panoramic Editor
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Yannick

avatar

Nombre de messages : 7825
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Lun 14 Juil 2014 - 12:57

Le problème ne viendrait il pas de " |clip"

je suis sous W7
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
JL35



Nombre de messages : 5882
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: Capture vidéo et audio sur le web   Lun 14 Juil 2014 - 12:58

Désolé je n'ai plus le temps...
C'est un pis-aller, mais je te suggère en dépannage de remplacer la sub Dir() par celle-ci en pur panoramic:
Code:
SUB Dirf(rep$,ext$)
' Liste des fichiers de rep$, d'extension ext$ (si ext$= "*", tous les fichiers)
' Résultat: chaîne dans le clipboard, fichiers triés, sous-répertoires en tête
' (NB: rep$ accepte les noms de répertoires contenant des espaces).
DIM_LOCAL svr$, a$, f$, ndl%, i%, nt%
ndl% = 5000: WHILE OBJECT_EXISTS(ndl%)=1: ndl%=ndl%+1000: END_WHILE
DLIST ndl%
svr$ = DIR_CURRENT$: DIR_CHANGE rep$
IF ext$<>"*" AND LEFT$(ext$,1)<>"." THEN ext$="."+ext$
ext$ = UPPER$(ext$)
nt% = 0
f$=FILE_FIND_FIRST$: WHILE f$="." OR f$="..": f$=FILE_FIND_NEXT$: END_WHILE
IF f$ = "_" THEN nt% = 1: ' répertoire vide
WHILE f$ <> "_"
    IF ext$ = "*" OR UPPER$(FILE_EXTRACT_EXTENSION$(f$)) = ext$
        IF FILE_EXISTS(f$) = 0 THEN f$ = " "+f$
        ITEM_ADD ndl%,f$
    END_IF
    f$ = FILE_FIND_NEXT$
END_WHILE
FILE_FIND_CLOSE
DIR_CHANGE svr$: ' restore le répertoire d'origine
IF nt% = 1
    ' répertoire vide
    a$ = ""
ELSE
    SORT ndl%: a$ = ""
    FOR i% = 1 TO COUNT(ndl%)
        f$ = ITEM_READ$(ndl%,i%): IF LEFT$(f$,1)=" " THEN f$="[D]"+MID$(f$,2,100)
        a$=a$+f$+CHR$(13)+CHR$(10)
    NEXT i%
    a$ = LEFT$(a$,LEN(a$)-2)
END_IF
DELETE ndl%
CLIPBOARD_STRING_COPY a$
END_SUB
et de remplacer l'appel ligne 80 par
Code:
Dirf(rp$,"*")


ps effectivement, peut-être clip... non, je ne crois pas, il est intégré dans w7 il me semble (j'y suis aussi).
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Yannick

avatar

Nombre de messages : 7825
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: Re: Capture vidéo et audio sur le web   Mar 15 Juil 2014 - 3:30

Eureka !!! Ce n'était qu'une histoire d'adresse longue.
J'ai changé mes noms d'URL longs en nom court et rajouté quelques espaces
séparateurs et tout est rentré dans l' ordre.

PS: j'ai du prendre les plugins en 64 bits aussi...
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
JL35



Nombre de messages : 5882
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: Capture vidéo et audio sur le web   Mar 15 Juil 2014 - 12:51

Tant mieux !
Tu as vu dans la programme la sub Nomcourt qui convertit les noms longs en courts sans espaces.
Dès qu'il y a un espace ça met la panique.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Yannick

avatar

Nombre de messages : 7825
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Mar 15 Juil 2014 - 13:05

Je suis entrain de reprendre ton prog en entier pour adapter
l' interface à mes petites manies... Laughing ...on ne se refait pas... Laughing 

Bref, je crois que je vais intégrer un "init" pour transformer dès le départ toutes les urls
en noms courts. Ce sera, fait et plus à faire, plus loin dans les subs... Laughing
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
JL35



Nombre de messages : 5882
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: Capture vidéo et audio sur le web   Mar 15 Juil 2014 - 14:13

Il est bien évident qu'étant entre programmeurs, les programmes donnés ici sont faits pour être bricolés, adaptés, améliorés (de préférence !), bref chacun les met à sa sauce personnelle. Et pour que s'il en ressort des idées (géniales, de préférence aussi !), qu'elles soient partagées avec tout le monde.

Mais ce que tu dis me fait tilter: transformer les urls en noms courts ???
Les chemins des fichiers locaux, oui, mais pas les adresses web, d'abord je ne crois pas qu'elles contiennent d'espaces, et puis même, on ne saurait pas faire et ça ne passerait pas autrement que telles qu'elles sont.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Yannick

avatar

Nombre de messages : 7825
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Mar 15 Juil 2014 - 20:59

Mille excuses JL35, je me suis mal exprimé.
Il est bien évident que je parlais des chemins de fichiers locaux des fichiers
tel que :
ffmeg.exe
ffprobe.exe
ffplay.exe
youtube-dl.exe

mais là j' ai un souci avec youtube-dl.exe qui bug, il ne veut plus telecharger... Sad
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Invité
Invité



MessageSujet: Re: Capture vidéo et audio sur le web   Mar 15 Juil 2014 - 23:18

Ygenorimi a écrit:
mais là j' ai un souci avec youtube-dl.exe qui bug, il ne veut plus telecharger

Je ne sais pas, mais je pense qu'il y a un quota journalier. Deux fois après avoir téléchargé des vidéos, je n'arrivai plus à télécharger. Mais le lendemain ces vidéos étaient téléchargeables.
Revenir en haut Aller en bas
JL35



Nombre de messages : 5882
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: Capture vidéo et audio sur le web   Mer 16 Juil 2014 - 0:12

Bizarre, ça ne m'est pas arrivé, mais il faut dire que je ne l'ai pas utilisé beaucoup.
Je n'ai vu nulle part qu'il pouvait y avoir un quota pour youtube-dl, mais qui sait, à voir de plus près peut-être...
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Yannick

avatar

Nombre de messages : 7825
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Mer 16 Juil 2014 - 0:47

Sans compter sur celle qui sont protégées et provoque un bug... Sad
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
JL35



Nombre de messages : 5882
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: Capture vidéo et audio sur le web   Mer 16 Juil 2014 - 0:56

C'est possible ça ? de pouvoir les lire sans pouvoir les enregistrer ? peut-être, mais je ne vois pas comment ça peut marcher...
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Yannick

avatar

Nombre de messages : 7825
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Jeu 17 Juil 2014 - 14:55

J' ai réussi à extraire les options de youtube-dl
mais...je suis incapable de m' en servir correctement.
Spoiler:
 

Quelqu' un pourrait il me dire comment proposer un titre pour le fichier de sortie ?

( certains sont intransformables en chemin court$ et ne peuvent pas être renommé par file_rename )
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
JL35



Nombre de messages : 5882
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: Capture vidéo et audio sur le web   Jeu 17 Juil 2014 - 16:50

Obtenir la liste des options, c'est facile: 1ère option '-h'
Pour s'en servir, c'est une autre paire de manches, c'est pourquoi je me suis cantonné aux plus faciles, il y a certainement des possibilités inouïes, mais il faudrait un spécialiste.

Pour le chemin court des fichiers résultats, c'est étonnant que tu ne puisses pas, s'ils sont bien sur ton disque dur.
Et pour les renommer, avec file_rename, et s'il y a bien les quotes, pareil, mais on ne peut pas juger sans un exemple.

Tu pourrais également essayer la commande Rename du système de commandes, pour voir, par exemple:
Code:
EXECUTE_WAIT "Cmd.exe /C REN "+"C:\...\Mon fichier long.mp4" Nouveaunom.mp4
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: Capture vidéo et audio sur le web   

Revenir en haut Aller en bas
 
Capture vidéo et audio sur le web
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 2Aller à la page : 1, 2  Suivant
 Sujets similaires
-
» Capture vidéo et audio sur le web
» importer une capture vidéo en swf ?
» Logiciel Capture vidéo
» Transmetteur Audio/Video
» Petite vidéo

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC 32 bits :: Vos sources, vos utilitaires à partager-
Sauter vers: