AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

  • CodeS-SourceS
  • RSS CodeS-SourceS
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • Aide à la navigation du site
begin process at 2009 07 12 05:34:32
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

26 commentaire(s) de GEDDi sur des sources sur tout CodeS-SourceS

Le : 31/01/2008 01:54:28
Source : EXTRACTION AUDIO FLV VERS MP3
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!

Le : 07/12/2007 19:41:49
Source : TROMPER GETPROCADDRESS
Hi !

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

@+

Gerome GUILLEMIN
http://www.fbsl.net

Le : 21/10/2007 13:03:37
Source : CALCUL DE CRC16
Oups, j'avais oublié le 10/10 :)

Le : 21/10/2007 13:03:04
Source : CALCUL DE CRC16
Sympa comme tout!
J'adore :)
Merci

Le : 17/10/2007 11:30:18
Source : AGENDA AVEC BASE DE DONNEES
Plutôt sympa je trouve :)

Le : 14/10/2007 23:51:28
Source : MOT DE PASSE EXCEL (AUTRE VARIANTE)
Mwé, pas tres original ton idée, et pas rapide non plus!

Le : 13/10/2007 14:13:41
Source : STOCK INFO ** GESTION INFORMATIQUE **
Sympa ton code en tout cas, beau travail, surtout sur les API :)

Le : 10/10/2007 21:02:57
Source : LISA (LOGICIEL INTERACTIF DE SAUVEGARDE)
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

Le : 10/10/2007 10:53:28
Source : LISA (LOGICIEL INTERACTIF DE SAUVEGARDE)
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 :)

Le : 05/10/2007 20:26:30
Source : TRAITER LES RÉPONSES DES APPLICATIONS FOURNIES À L'INVITE DE COMMANDE [TRAFIC]
Hello,

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

Gerome GUILLEMIN ( auteur du langage FBSL )


1 2 3


Nos sponsors

Sondage...

CalendriCode

Juillet 2009
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du CalendriCode

Appels d'offres

Comparez les prix Nouvelle version


LG KP501
Entre 9€ et 159€


Visiter le guide achat

Photothèque Nouveau !

Photo pretty girlsPhoto femme, plage, bien être, soleil, vacances, été, détente, repos
Photo femme, plage, bien être, soleil, vacances, été, détente, repos 

Visiter la photothèque


Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,172 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.