EXTRACTION AUDIO FLV VERS MP3

Commentaire de Renfield le 14/01/2008 16:17:01 administrateur CS

'lut EB.

euh... je m'interesse en fait pas trop aux vidéos, pas le temps de les regarder ^^
le Mp3 en fond dans les oreilles, pas besoin de lacher l'IDE des yeux...

dans l'absolu, ma source est mauvaise, puisqu'elle accède sans arrêt aux fichiers... on pourrait les mapper en mémoire, et faire de la voltige, mais bon, le temps de traitement semble correct, pour le moment.
j'y reviendrais peut etre, si le besoin s'en fait sentir.

Commentaire de Renfield le 14/01/2008 17:27:47 administrateur CS

Comme mentionné dans la MàJ, j'ai passé le code de lecture au FileMapping, et modifié les lectures qui n'étaient que des skip par de simples incrémentation du pointeur de lecture...

Commentaire de moustachu le 17/01/2008 09:42:05

[mode hypocrite=on]
C'est quoi un mp3

Commentaire de Renfield le 17/01/2008 09:47:10 administrateur CS

je vais modifier un peu le module, pour pouvoir lire depuis un flux en mémoire, pas forcément depuis un fichier...
parce que mes sockets interceptent un flux, hein, pas un fichier ...

alors si je peux éviter de passer par un fichier .flv intermédiaire.

je ne sais pas si le mode hypocrite est nécessaire, je ne fait que jouer avec ce qui vient sur mon poste après tout...

Commentaire de Renfield le 17/01/2008 14:31:39 administrateur CS

Mis à jour.

j'ai commenté

et il y a maintenant deux façons de faire:

Dim sFileName As String
Dim sFolder As String
    sFolder = "E:\Deezer\"
    sFileName = Dir$(sFolder & "*.flv")
    Do While LenB(sFileName)
        Flv2Mp3 sFolder & sFileName, sFolder & "Mp3\"
        sFileName = Dir$()
    Loop

ou bien

Dim xbData() As Byte
    Open "E:\Deezer\Untitled - 83_.flv" For Binary Access Read As #1
        ReDim xbData(LOF(1))
        Get #1, , xbData
    Close #1
    Flv2Mp3 xbData, "E:\Deezer\Mp3\"

Donc soit:
- Nom du fichier Flv source
- Tableau de Byte (contenu du fichier)

comme je l'ai dit plus haut, ca évite de passer par un fichier intermédiaire dans le cadre de fichiers reçus en live...

concernant le second paramètre, plusieurs cas sont possibles :
- il est possible de le laisser vierge.
  1/ depuis un fichier, on écrit dans un fichier portant le même nom (extension mp3)
  2/ depuis un flux, App.Path & "\Untitled.mp3"
- Si vous spécifiez un nom de dossier, ou un nom de fichier, il sera complété...

à noter que la fonction n'écrasera aucun fichier: elle incrémentera les noms de fichiers
à noter également que la fonction va s'assurer que l'arborescence de sortie existe bien (ou la créer si besoin est).

Commentaire de EBArtSoft le 17/01/2008 21:12:24 administrateur CS

moustachu> oulaaa malheureux fait gaffe faut toujours fermer la balise en mode hypocrite sinon on fini au gouvernement :p

Ren> [mode semi-pressé de voir la suite = tru] c'est pour quand le mode avec les socket hein dit c'est pour quand [mode semi-pressé de voir la suite = falçe]

Commentaire de moustachu le 18/01/2008 09:44:28

Ebartsoft>C'est justement parce que j'avais reçu un coup de fil que je me suis dit que j'avais pas fermé ma balise.Pfiouuu, je suis pas passé loin !

Renfield>Super commenté, ça fait plaisir ! très bien tes fonctions CrackPath et surtout GetUnique. Où as-tu appris comment était constitué un fichier flv ?

++
Moustachu

Commentaire de GEDDi le 31/01/2008 01:54:28

Hello,

Merci pour ton code!
Je l'ai adapté au FBSL :)
Voici le code pour celles et ceux que ça intéresse :
[code]
#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
[/code]

Enjoy!