Bienvenue invité. SVP enregistrez vous pour être membre.
:: Connexion
Identifiant :

Mot de passe :

Se souvenir de moi



Mot de passe perdu ?

Inscrivez-vous !
:: Recherche
:: Menu Principal

Parcourir ce sujet:   2 Utilisateur(s) anonyme(s)



(1) 2 3 4 ... 9 »


#1 U-Tube grabber
Gerome Contribution le : 22/01/2008 01:00
Hello,

Toujours dans le trip du développement avec mon langage, j'ai créé pour vous une petite interface permettant de récupérer les FLV (FLash Video) du site YouTube.

Tres simple à utiliser, il y a juste à mettre l'url de la video au format YouTube et le logiciel fera le reste à savoir, récupération automatique du titre de la chanson + sauvegarde du fichier résultant au format FLV!

Lien : http://gedd123.free.fr/Radio/U-TUBE.7z
Dans cette archive se trouve la version compilée + le code source complet de U-Tube grabber!

Une capture ?


@bon entendeur!


#2 Re: U-Tube grabber
Constance Contribution le : 22/01/2008 06:52
Juste une question, vu que l'interface a l'air des plus simples (c'est un bon point) mais que du coup je ne vois pas trop où l'option pourrait être réglée ... comment le programme fait si on passe par un proxy ?
Il récupère les paramètres proxy de Windows/IE ou bien on peut les régler dedans directement ?


#3 Re: U-Tube grabber
Gerome Contribution le : 22/01/2008 09:35
Bonjour,

Citation :

Constance a écrit:
Juste une question, vu que l'interface a l'air des plus simples (c'est un bon point) mais que du coup je ne vois pas trop où l'option pourrait être réglée ... comment le programme fait si on passe par un proxy ?
Il récupère les paramètres proxy de Windows/IE ou bien on peut les régler dedans directement ?


Il est censé utiliser les paramètres de IE :)
Le code source est fourni pour celles/ceux que ça intéresse, les flags de connexion étant INTERNET_OPEN_xxx


#4 Re: U-Tube grabber
bartman Contribution le : 22/01/2008 13:25


Simple, efficace et aucun problème de Proxy rencontré.
Merci à toi Gérome.
L'essayer ! C'est l'adopter !



#5 Re: U-Tube grabber
Gerome Contribution le : 22/01/2008 16:18
Citation :

bartman a écrit:


Simple, efficace et aucun problème de Proxy rencontré.
Merci à toi Gérome.
L'essayer ! C'est l'adopter !



Merci à toi BartMan!
Le but du jeu étant d'être simple et direct mais fonctionnel avant tout!


#6 Re: U-Tube grabber
Gerome Contribution le : 26/01/2008 14:04
Bonjour,

D'autres commentaires / remarques / essais / soucis rencontrés ?
Merci de vos retours.


#7 Re: U-Tube grabber
Gerome Contribution le : 29/01/2008 00:10
Bonsoir,

J'ai mis à jour U-Tube grabbeur car j'ai rencontré des pb de parsing sur les ULS de Youtube suite à un changement du code HTML des pages de Youtube :)
+ Rajout d'un bouton 'Stop'!

Evidemment une version compilée + les sources sont fournis avec!
U-Tube Grabbeur 1.1

Enjoy!


#8 Re: U-Tube grabber
philho Contribution le : 29/01/2008 22:27
Merci pour ton efficacité (c'est peu dire)...
Pas de souci pour utiliser ce logiciel. J'en profite pour préciser que j'utilise Super (trouvé sur Gratilog) impeccable pour récupérer les Mp3 à partir des flv, puis Audacity pour les retailler si besoin. Quelqu'un a-t-il mieux ?


#9 Re: U-Tube grabber
Gerome Contribution le : 31/01/2008 01:42
Merci à toi Philo!

J'ai trouvé un moyen d'extraire la piste MP3 d'un FLV et ce sans passer par FFFMPEG & co :)
Une mise à jour sera bientôt disponible :)

Pour celles et ceux qui ont FBSL sur leur poste voilà le code d'extraction MP3 d'un FLV :

#AppType CONSOLE

Dim mnIn As IntegermnOut As Integer
Dim 
%i$sBuff, %nPos

Flv2Mp3
"Stupeflip - Je fume pu d'shit.flv" )

Function 
Flv2Mp3(ByVal szFLVFile As String) As Integer
    mnIn 
FileOpenszFLVFileBINARY_INPUT )
    
Flv2Mp3 False
    
If (ReadUInt32() = &H464C5601Then
        ReadUInt8
() 'flags
        nPos = ReadUInt32()

        FileSeek( mnIn, nPos )'
+1
        ReadUInt32
() 'prevTagSize

        Do Until FileEof(mnIn)
            ReadTag()
            ReadUInt32() '
prevTagSize
        Loop

        
If mnOut Then
            Flv2Mp3 
True
            FileClose
mnOut  )
            
mnOut 0
        End 
If
    
End If
    
FileClosemnIn )
End Function

Sub ReadTag()
Dim eTagType As IntegereMediaType As IntegernLength As IntegerxbData As String
Static xTotal As Integer

    eTagType 
ReadUInt8()
    
nLength  ReadUInt24()
    
ReadUInt32() 'timeStamp
    ReadUInt24() '
streamID

    
If nLength Then
        eMediaType 
ReadUInt8()
        
xbData ReadBytes(nLength 1)
        
'# Audio et de type MP3
        If (eTagType = &H8) And (eMediaType  16) = 2 Then
            If mnOut = 0 Then
                xTotal = 0
                mnOut = FileOpen( ".out.mp3", BINARY_NEW )
            End If
            xTotal = xTotal + nLength
            FilePut( mnOut, xbData )
            Locate(5, 5): Print xTotal, " MP3 bytes written"
        End If
    End If
End Sub

Function ReadBytes(vnLength As Integer)
    sBuff = FileGet(mnIn, vnLength): Return sBuff
End Function

Function ReadUInt32() As Integer
    sBuff = FileGet( mnIn, 4): Return CVI(sBuff, 1)
End Function

Function ReadUInt24() As Integer
    sBuff = FileGet( mnIn, 3): Return CVI(sBuff, 1)
End Function

Function ReadUInt8() As Integer
    sBuff = FileGet( mnIn, 1): Return CVI(sBuff, 1)
End Function


Enjoy!


#10 Re: U-Tube grabber
philho Contribution le : 31/01/2008 21:15
Citation :

Gerome a écrit:
...J'ai trouvé un moyen d'extraire la piste MP3 d'un FLV et ce sans passer par FFFMPEG & co :)
Une mise à jour sera bientôt disponible...


...Euh, j'ai droit à combien de voeux ?



 Haut   Précédent   Suivant
(1) 2 3 4 ... 9 »




Enregistrer votre réponse
Compte*
Nom   Mot de passe    
Message:*


Vous ne pouvez pas débuter de nouveaux sujets.
Vous pouvez voir les sujets.
Vous ne pouvez pas répondre aux contributions.
Vous ne pouvez pas éditer vos contributions.
Vous ne pouvez pas effacez vos contributions.
Vous ne pouvez pas ajouter de nouveaux sondages.
Vous ne pouvez pas voter en sondage.
Vous ne pouvez pas attacher des fichiers à vos contributions.
Vous ne pouvez pas poster sans approbation.

[Recherche avancée]