IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VB.NET Discussion :

Récuperer la longueur d'un .wav


Sujet :

VB.NET

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre éclairé
    Profil pro
    Inscrit en
    Février 2006
    Messages
    505
    Détails du profil
    Informations personnelles :
    Localisation : Canada

    Informations forums :
    Inscription : Février 2006
    Messages : 505
    Par défaut Récuperer la longueur d'un .wav
    Bonjour

    j'aimerais récuperer la longueur d'un fichier wav, dans une variable. est-ce bien compliqué?

    merci de votre aide

    J'aimerais souhaiter à tous une bonne année et en profiter pour vous remercier pour le merveilleux travail de soutiens que vous nous apportez.

  2. #2
    Membre averti
    Profil pro
    Inscrit en
    Mai 2010
    Messages
    28
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mai 2010
    Messages : 28
    Par défaut
    Salut,

    merci, bonne année à toi aussi!
    J'ai eu besoin il y a quelques temps de me servir d'une API Windows afin de
    lire un fichier MP3 sans être obligé d'avoir recours a DirectX. Utilises simplement
    la fonction MciSendString :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
     
    Public Class FormInitial
     
    Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, _
        ByVal lpstrReturnString As String, ByVal uReturnLength As Integer, ByVal hwndCallback As Integer) As Integer
     
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
     
     Dim WavFileName = Chr(34) & "C:\monwav.wav") & Chr(34)
            mciSendString("open " & WavFileName & " alias monwav", Nothing, 0, 0)
     
            Dim RetString As New String(" "c, 50)
            mciSendString("Set monwav time format milliseconds", Nothing, 0, 0)
            mciSendString("Status monwav length", RetString, RetString.Length, 0)
            MsgBox(RetString.ToString)
     mciSendString("close monwav", Nothing, 0, 0)
     
    End Sub
     
    End Class
    Pour lire le fichier il te suffit d'utiliser la commande :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
     
    mciSendString("play monwav", Nothing, 0, 0)
    bien entendu avant d'avoir "fermé" la commande.

    Voila voila, bon courage à toi!

    Cz

  3. #3
    Membre éclairé
    Profil pro
    Inscrit en
    Février 2006
    Messages
    505
    Détails du profil
    Informations personnelles :
    Localisation : Canada

    Informations forums :
    Inscription : Février 2006
    Messages : 505
    Par défaut
    Merci beaucoup je patine avec ça

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [AC-2003] Récuperer la longueur moyenne du contenu d'une colonne
    Par ted the Ors dans le forum VBA Access
    Réponses: 4
    Dernier message: 27/10/2009, 13h53
  2. [VB6]Comment faire pour récuperer des donnée sur un mp3 ou wav ?
    Par MegaBigBoss dans le forum VB 6 et antérieur
    Réponses: 13
    Dernier message: 13/06/2006, 16h08
  3. Récuperer le signal audio d'un fichier .wav
    Par vienin dans le forum Multimédia
    Réponses: 2
    Dernier message: 11/10/2005, 16h25
  4. [Kylix] jouer un fichier wav avec kilyx
    Par JlouisI dans le forum EDI
    Réponses: 1
    Dernier message: 14/06/2002, 02h05
  5. longueur d'une structure
    Par bohemianvirtual dans le forum C
    Réponses: 6
    Dernier message: 28/05/2002, 18h31

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo