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!

Hi !

A essayer avec FBSL, comme il est codé en C et qu'il supporte les Threads :)

@+

Gerome GUILLEMIN
http://www.fbsl.net

Oups, j'avais oublié le 10/10 :)

Sympa comme tout!
J'adore :)
Merci

Plutôt sympa je trouve :)

Sympa ton code en tout cas, beau travail, surtout sur les API :)

Hello,

Mon encodeur a commencé à être développé en 1998, et c'est marrant je ne connaissait pas ce neoplanet, marrant comme truc.
Sinon voilà une capture de mon vieux soft qui va feter ses 9 ans :
http://gedd123.free.fr/0eb75e40.gif

@+
Gerome GUILLEMIN

Hoho :)

Sympa, mais je vois que ton 'skin' s'est inspiré d'un des miens que j'avais développé à travers un logiciel d'encodage CDA / MP3 dans les années 1999 et qui se nomme MP3XTC :)

Hello,

Je viens juste de tester ce petit bijou : excellentissime!
Merci pour ce sample :)

Gerome GUILLEMIN ( auteur du langage FBSL )

Bonsoir,

Je ne discute pas avec un type de mauvaise foi de ton genre.

Le jour où tu sauras gérer tes émotions et où tu sauras faire autre chose que de critiquer sans connaitre les choses, on pourra peut etre reprendre une discussion, mais pour le moment je ne puis continuer à discuter avec toi car je ne peux non plus accepter de lire n'importe quoi, et surtout le pire : dire en permanance des absurdités!
Quoi qu'il en soit, laisses mes projets tranquilles, FBSL n'a pas besoin de gens comme toi, moi non plus d'ailleurs.
Ciao !