dotNETportal.cz

Dobrý den,

pracuji na aplikaci, kde by se měl přehrávat zvuk. Když nastavím

 Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
    Public Const SND_ASYNC = &H1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        i = Int(Rnd() * 3) + 1
        If i = 1 Then
            Call mciExecute("Play C:\ptaci\zvuky\kukacka.wav")
            Button1.Text = "kukačka"
        ElseIf i = 2 Then
            Call mciExecute("Play C:\ptaci\zvuky\hrdlicka.wav")
            Button1.Text = "hrdlička"
        ElseIf i = 3 Then
            Call mciExecute("Play C:\ptaci\zvuky\pustik.wav")
            Button1.Text = "puštík"
        End If
    End Sub

Aplikace funguje. Pokud ale chci ty zvukové soubory (respektive celou složku ptaci) umístit do Program Files a kód upravím

Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
    Public Const SND_ASYNC = &H1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        i = Int(Rnd() * 3) + 1
        If i = 1 Then
            Call mciExecute("Play C:\Program Files\ptaci\zvuky\kukacka.wav")
            Button1.Text = "kukačka"
        ElseIf i = 2 Then
            Call mciExecute("Play C:\Program Files\ptaci\zvuky\hrdlicka.wav")
            Button1.Text = "hrdlička"
        ElseIf i = 3 Then
            Call mciExecute("Play C:\Program Files\ptaci\zvuky\pustik.wav")
            Button1.Text = "puštík"
        End If
    End Sub

Aplikace fungovat přestane. Hlásí, že nenalezl cestu k zadaným souborům. Poraďte, prosím co s tím. Děkuji Adéla

Dobrý den

pokud aplikace přestane fungovat při pouhém překopírování zvuků jinam, zkontroloval bych:

1) Zda máte dobře zadanou cestu. (Např. pokud používáte 64 bitový systém zda nemáte dané soubory ve složce Program Files 64)

2) Zda má aplikace dostatečná oprávnění pro čtení v dané složce.

Pokud zvuky budou vždy v program files tak bych taky asi nezadával cestu natvrdo, ale použil bych:

'vrátí cestu do Program Files
My.Computer.FileSystem.SpecialDirectories.ProgramFiles

To vám zajistí, že se budete vždy odkazovat na správné umístění, protože ne vždy musí být Program Files a složky uživatelů na stejném disku jako systém.

Musím tam ještě nadeklarovat nějaké proměnné? A byla by ta syntexe

            Call mciExecute("Play " & My.Computer.FileSystem.SpecialDirectories.ProgramFiles & "\ptaci\zvuky\hrdlicka.wav")

takto dobře? Když to totiž zapíšu takhle, ohlásí mi "Zařízení není otevřené nebo ho MCI neropoznává" - Co s tím? Děkuji za odpověď.

Vypadá to OK, jen pro spojování řetězců reprezentující nějákou cestu používejte IO.Path.Combine

např:

IO.Path.Combine(My.Computer.FileSystem.SpecialDirectories.ProgramFiles,"ptaci\zvuky\hrdlicka.wav"

nabudete si muset hlídat zda Vám ve spojované části nechybí nebo nepřebývá lomítko;)

Jinak bych dal na doporučení kolegy v příspěvku podemnou.

Díky moc, už to funguje a je to fakt mnohem snadnější. Adéla

Opravdu začněte používat System.Media.SoundPlayer nebo Managed DirectX (Microsoft.DirectX.AudioVideoPlayback).

Vy nemáte pocit, že na uvedenom linku je ten istý dotaz a že to, čo som tam uviedol, rieši túto otázku?

Dobrý den,

lze toho docílit např. tak jak Vám říkal pan Linhart tj. použítí DirectX.Nejprve si stáhněte DirectX SDK.Zapněte Visual Basic.V menu zvolte Project pak Add reference a najděte tam Microsoft.DirectX a Microsoft.Directx.AudioVideoPlayback.Poté musíte připsat tyto dva řádky kódu(úplně nahoru).

Imports Microsoft.DirectX
Imports Microsoft.DirectX.AudioVideoPlayback

Teď napíšete tento lehký kód a máte hotovo:

    Dim sound As Audio
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        sound = New Audio("C:\sound.mp3")
        sound.Play()
    End Sub

Přeji hezký večer.