Přehrávání WAVů z Resource souboru
Postup: Nejprve
je nutné vytvořit si odpovídající resource soubor. Vložte do souboru s
příponou rc následující řádek: MySound WAVE
d:\mp3\WAV\sodom.wav a tento soubor zkompilujte mocí rc.exe. Pak jej připojte
do projektu. Jméno MySound je identifikátor zdroje. A nyní zapište následující
kód:
Pro přehrávání wavů z resource souboru budeme používat API
funkci PlaySound, která je součástí knihovny winmm.dll (Windows
Multimedia DLL). Šlo by použít i funkci sndPlaySound, ale ta požaduje
nalezení, nahrátí, zamčení, odemčení a uvolnění zdroje z paměti.
PlaySound dělá všechny tyto operace sama.
Private Declare Function
PlaySound Lib "winmm.dll" Alias "PlaySoundA" ( _
ByVal lpszName As String, _
ByVal hModule As Long, _
ByVal dwFlags As Long) As Long
Private Const SND_ASYNC& = &H1
Private Const SND_NODEFAULT& = &H2
Private Const SND_RESOURCE& = &H40004
Dim hInst As Long
Dim sSoundName As String
Dim lFlags As Long
Dim lRet As Long
Private Sub Command1_Click()
hInst = App.hInstance
sSoundName = "MySound"
lFlags = SND_RESOURCE + SND_ASYNC + SND_NODEFAULT
lRet = PlaySound(sSoundName, hInst, lFlags)
End Sub
Projekt musí být zkompilován do EXE, aby proběhlo přehrávání.
