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

Mot de passe :

Se souvenir de moi



Mot de passe perdu ?

Inscrivez-vous !
:: Recherche

Recherche avancée
:: Menu Principal

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


 Bas   Précédent   Suivant



Re: U-Tube grabber
#1
Régulier
Inscrit:
10/03/2005 22:13
De France
Groupe:
Utilisateurs enregistrés
Post(s): 234
Hors Ligne
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 Integer, mnOut As Integer
Dim %i, $sBuff, %nPos

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

Function Flv2Mp3(ByVal szFLVFile As String) As Integer
    mnIn = FileOpen( szFLVFile, BINARY_INPUT )
    Flv2Mp3 = False
    If (ReadUInt32() = &H464C5601) Then
        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
    FileClose( mnIn )
End Function

Sub ReadTag()
Dim eTagType As Integer, eMediaType As Integer, nLength As Integer, xbData 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!

Contribution le : 31/01/2008 01:42
_________________
G?r?me GUILLEMIN
Le site de FBSL : http://www.fbsl.net
Tutoriel en fran?ais : http://gedd123.free.fr/Fbsl/Tutoriel.pdf
FBSL sur GRATILOG c'est ici : http://www.gratilog.net/xoops/modules ... lefile.php?cid=72&lid=430
Créer un fichier PDF de la contribution Imprimer

Sujet Auteur Date
     U-Tube grabber Gerome 22/01/2008 01:00
       Re: U-Tube grabber Constance 22/01/2008 06:52
         Re: U-Tube grabber Gerome 22/01/2008 09:35
           Re: U-Tube grabber bartman 22/01/2008 13:25
             Re: U-Tube grabber Gerome 22/01/2008 16:18
               Re: U-Tube grabber Gerome 26/01/2008 14:04
                 Re: U-Tube grabber Gerome 29/01/2008 00:10
                   Re: U-Tube grabber philho 29/01/2008 22:27
       Re: U-Tube grabber Gerome 31/01/2008 01:42
         Re: U-Tube grabber philho 31/01/2008 21:15
       Re: U-Tube grabber Gerome 01/02/2008 01:54
         Re: U-Tube grabber philho 01/02/2008 21:50
           Re: U-Tube grabber Gerome 01/02/2008 23:53
       Re: U-Tube grabber philho 02/02/2008 20:36
         Re: U-Tube grabber Gerome 02/02/2008 20:46
           Re: U-Tube grabber philho 02/02/2008 21:30
             Re: U-Tube grabber Gerome 02/02/2008 23:51
       Re: U-Tube grabber Constance 10/02/2008 22:46
         Re: U-Tube grabber Gerome 10/02/2008 23:00
       Re: U-Tube grabber Constance 10/02/2008 23:03
         Re: U-Tube grabber Gerome 10/02/2008 23:13
       Re: U-Tube grabber Constance 10/02/2008 23:45
       Re: U-Tube grabber Constance 11/02/2008 23:35
         Re: U-Tube grabber Gerome 11/02/2008 23:42
           Re: U-Tube grabber Constance 11/02/2008 23:56
             Re: U-Tube grabber Gerome 12/02/2008 00:04
               Re: U-Tube grabber Constance 12/02/2008 00:07
                 Re: U-Tube grabber Gerome 12/02/2008 00:19
                   Re: U-Tube grabber Sylvie 12/02/2008 07:15
       Re: U-Tube grabber Gerome 12/02/2008 13:56
         Re: U-Tube grabber Sylvie 12/02/2008 20:23
       Re: U-Tube grabber Constance 12/02/2008 19:11
       Re: U-Tube grabber Constance 12/02/2008 21:04
       Re: U-Tube grabber Constance 24/02/2008 12:26
         Re: U-Tube grabber Gerome 26/02/2008 00:05
           Re: U-Tube grabber Gerome 04/03/2008 20:53
       Re: U-Tube grabber Gerome 25/02/2008 15:33
       Re: U-Tube grabber Constance 15/03/2008 22:58
         Re: U-Tube grabber Gerome 16/03/2008 21:06
           Re: U-Tube grabber Gerome 16/03/2008 21:43
       Re: U-Tube grabber Constance 16/03/2008 22:19
         Re: U-Tube grabber Gerome 16/03/2008 22:40
       Re: U-Tube grabber Constance 17/03/2008 12:10
       Re: U-Tube grabber Gerome 17/03/2008 23:36
       Re: U-Tube grabber Constance 18/03/2008 07:47
         Re: U-Tube grabber Gerome 18/03/2008 11:00
       Re: U-Tube grabber Constance 18/03/2008 13:41
         Re: U-Tube grabber Gerome 18/03/2008 22:52
       Re: U-Tube grabber Gerome 26/03/2008 17:30
       Re: U-Tube grabber Constance 26/03/2008 20:49
         Re: U-Tube grabber Gerome 27/03/2008 21:45
           Re: U-Tube grabber Gerome 20/04/2008 19:57
       Re: U-Tube grabber Constance 20/04/2008 20:18
         Re: U-Tube grabber nessie 23/04/2008 23:44
       Re: U-Tube grabber Constance 24/04/2008 07:24
         Re: U-Tube grabber nessie 24/04/2008 17:49
       Re: U-Tube grabber Gerome 26/04/2008 22:20
       Re: U-Tube grabber Gerome 29/04/2008 01:38
         Re: U-Tube grabber 29/04/2008 10:16
           Re: U-Tube grabber Gerome 29/04/2008 11:13
             Re: U-Tube grabber 29/04/2008 11:36
       Re: U-Tube grabber Gerome 29/04/2008 12:42
       Re: U-Tube grabber Gerome 29/04/2008 22:58
         Re: U-Tube grabber Gerome 08/05/2008 17:34
       Re: U-Tube grabber Constance 16/05/2008 17:03
       Re: U-Tube grabber nicoFBSL 17/05/2008 11:19
       Re: U-Tube grabber Gerome 17/05/2008 11:19
       Re: U-Tube grabber Constance 17/05/2008 15:53
         Re: U-Tube grabber nicoFBSL 17/05/2008 16:59
           Re: U-Tube grabber Gerome 17/05/2008 20:24
       Re: U-Tube grabber Constance 23/05/2008 18:36
         Re: U-Tube grabber Gerome 02/06/2008 23:35
       Re: U-Tube grabber Constance 03/06/2008 07:10
       Re: U-Tube grabber Theodocle_Fion 03/06/2008 11:08
         Re: U-Tube grabber Constance 03/06/2008 11:42
           Re: U-Tube grabber retour 03/06/2008 17:55
       Re: U-Tube grabber Gerome 09/06/2008 10:38
       Re: U-Tube grabber Gerome 16/09/2008 23:33
       Re: U-Tube grabber Constance 25/01/2009 20:53
         Re: U-Tube grabber manu 28/01/2009 02:26
           Re: U-Tube grabber polgil 28/01/2009 14:37





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]