Forum Coders' city Strona Główna Coders' city
Nasza pasja to programowanie!
 

 PomocPomoc   SzukajSzukaj   UżytkownicyUżytkownicy   GrupyGrupy  RejestracjaRejestracja 
Archiwum starego forum + teoria    RSS & Panel/SideBar
 ProfilProfil   Zaloguj się, by sprawdzić wiadomościZaloguj się, by sprawdzić wiadomości   ZalogujZaloguj 

Potrzebuję szybkiej odpowiedzi na moje pytanie... Zasady

[WinAPI] Problem z odtwarzaniem dźwięków .wav



 
Odpowiedz do tematu    Forum Coders' city Strona Główna -> Biblioteki
Zobacz poprzedni temat :: Zobacz następny temat  
Autor Wiadomość
p4welo



Dołączył: 21 Wrz 2005
Posty: 145
Skąd: Wrocław/Wodzisław Śląski

PostWysłany: Nie Gru 18, 2005 11:36 am  OP    Temat postu: Problem z odtwarzaniem dźwięków .wav Odpowiedz z cytatem Pisownia

Uwaga: to pytanie dotyczy WinAPI (API systemowe Windowsa)!

Mam pewien problem. Zastosowałem do odtwarzania dźwięków funkcję:
Kod:
Public Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Const SND_SYNC = &H0
Const SND_NODEFAULT = &H2
Const SND_ALIAS = &H10000
Const SND_ASYNC = &H1
Const SND_FILENAME = &H20000
Const SND_LOOP = &H8
Const SND_NOSTOP = &H10
Const SND_NOWAIT = &H2000


Oraz w pewnym miejscu:
Kod:
Dim r as Integer
r = sndPlaySound(byval app.Path & "\audio\tlo.wav", SND_LOOP + SND_ASYNC)


Moim celem jest odtwarzanie pliku tlo.wav, aż zmienna nie osiągnie pewnej wartości. Jakich poleceń użyć, aby przerwać odtwarzanie pliku .wav???
(WinAPI)

_________________
Here comes the rain again, falling from the stars.
Drenched in my pain again, becoming who we are.
As my memory rests, but never forgets what I lost.
Wake me up when september ends.
Powrót do góry
Zobacz profil autora Wyślij prywatną wiadomość Numer GG
samolot



Dołączył: 26 Sty 2006
Posty: 8253
Skąd: Toruń

PostWysłany: Wto Sty 31, 2006 10:25 pm      Temat postu: Re: Problem z odtwarzaniem dźwięków .wav Odpowiedz z cytatem Pisownia

p4welo napisał:
Cytat:
Moim celem jest odtwarzanie pliku tlo.wav, aż zmienna nie osiągnie pewnej wartości. Jakich poleceń użyć, aby przerwać odtwarzanie pliku .wav???
Wstaw tam gdzie chcesz przerwać odtwarzanie taki sam kod (ale z pustą ścieżką do pliku .vaw):
Kod:
Dim r As Integer
r = sndPlaySound(ByVal "", &H20000 + &H1 + &H8)

(WinAPI)

_________________
Nie zadawaj bezcelowych pytań / Windows 8.1 / Windows 10 / VB2008 / VB 2010 / VB 2012 / Pisz poprawnie
Powrót do góry
Zobacz profil autora Wyślij prywatną wiadomość Wyślij email
Wyświetl posty z ostatnich:   
Odpowiedz do tematu    Forum Coders' city Strona Główna -> Biblioteki Wszystkie czasy w strefie CET (Europa)

Strona 1 z 1

 
Skocz do:  
Możesz pisać nowe tematy
Możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach
Możesz dodawać załączniki na tym forum
Możesz pobierać pliki z tego forum




Debug: strone wygenerowano w 0.09772 sekund, zapytan = 11
contact

| Darmowe programy i porady Jelcyna | Tansze zakupy w Helionie | MS Office Blog |