WaveOutWrite: Unterschied zwischen den Versionen
(Die Seite wurde neu angelegt: __NOTOC__ Die API-Funktion waveOutWrite weißt das Ausgabegerät an, den übergebenen Audiobuffer abzuspielen. <code vb> Declare Function waveOutWrite lib "winmm....) |
|||
Zeile 26: | Zeile 26: | ||
0 bei Erfolg, ansonsten Fehlercode. | 0 bei Erfolg, ansonsten Fehlercode. | ||
+ | ==[OPTIONAL] Beispiel== | ||
+ | In diesem Beispiel wird ein Gerät zur Ausgabe von 16 Bit 44.1kHz Mono Audiodaten geöffnet, zwei Buffer werden reserviert und in diesen werden Testdaten generiert. Schlussendlich werden die beiden Buffer ausgegeben und das Device wieder geschlossen. | ||
+ | <code vb> | ||
+ | 'Module1 | ||
+ | Option Explicit | ||
+ | |||
+ | Private Declare Function waveOutOpen Lib "winmm.dll" (hWaveOut As Long, _ | ||
+ | ByVal uDeviceID As Long, Format As Any, ByVal dwCallback As Long, _ | ||
+ | ByVal dwInstance As Long, ByVal dwFlags As Long) As Long | ||
+ | |||
+ | Private Declare Function waveOutPrepareHeader Lib "winmm.dll" ( _ | ||
+ | ByVal hWaveOut As Long, lpWaveInHdr As Any, ByVal uSize As Long) As Long | ||
+ | |||
+ | Private Declare Function waveOutUnprepareHeader Lib "winmm.dll" ( _ | ||
+ | ByVal hWaveOut As Long, lpWaveInHdr As Any, ByVal uSize As Long) As Long | ||
+ | |||
+ | Private Declare Function waveOutClose Lib "winmm.dll" (ByVal hWaveOut As Long) As Long | ||
+ | Private Declare Function waveOutWrite Lib "winmm.dll" (ByVal hWaveOut As Long, _ | ||
+ | ByRef lpWaveOutHdr As WAVEHDR, ByVal uSize As Long) As Long | ||
+ | |||
+ | Private Type WAVEFORMATEX | ||
+ | wFormatTag As Integer | ||
+ | nChannels As Integer | ||
+ | nSamplesPerSec As Long | ||
+ | nAvgBytesPerSec As Long | ||
+ | nBlockAlign As Integer | ||
+ | wBitsPerSample As Integer | ||
+ | cbSize As Integer | ||
+ | End Type | ||
+ | |||
+ | Private Type WAVEHDR | ||
+ | lpData As Long | ||
+ | dwBufferLength As Long | ||
+ | dwBytesRecorded As Long | ||
+ | dwUser As Long | ||
+ | dwFlags As Long | ||
+ | dwLoops As Long | ||
+ | lpNext As Long | ||
+ | Reserved As Long | ||
+ | End Type | ||
+ | |||
+ | Private Const WAVE_FORMAT_PCM As Long = 1 | ||
+ | Private Const CALLBACK_FUNCTION As Long = &H30000 | ||
+ | Private Const INVALID_HANDLE_VALUE As Long = -1 | ||
+ | Private Const WOM_DONE As Long = &H3BD | ||
+ | |||
+ | Private hDevice As Long | ||
+ | |||
+ | Private udtBuffer1Hdr As WAVEHDR | ||
+ | Private btWaveOutBuffer1() As Byte | ||
+ | |||
+ | Private udtBuffer2Hdr As WAVEHDR | ||
+ | Private btWaveOutBuffer2() As Byte | ||
+ | |||
+ | Private lBufferFinished As Long | ||
+ | |||
+ | Public Sub TestAudioOutput() | ||
+ | If OpenOutputDevice(0) Then | ||
+ | CreateTestData | ||
+ | If Not waveOutWrite(hDevice, udtBuffer1Hdr, LenB(udtBuffer1Hdr)) = 0 Then | ||
+ | 'error | ||
+ | ElseIf Not waveOutWrite(hDevice, udtBuffer2Hdr, LenB(udtBuffer2Hdr)) = 0 Then | ||
+ | 'error | ||
+ | End If | ||
+ | |||
+ | CloseOutputDevice | ||
+ | Else | ||
+ | Debug.Print "Kann Gerät 0 nicht öffnen!" | ||
+ | End If | ||
+ | End Sub | ||
+ | |||
+ | Private Sub CreateTestData() | ||
+ | 'Diese Funktion erstellt zwei verschiedene Wellenformen in den beiden Buffern | ||
+ | 'damit ein Unterschied hörbar ist. | ||
+ | Dim x As Long | ||
+ | Dim lSample As Long | ||
+ | |||
+ | 'Sägezahn Schwingung in Buffer 1: | ||
+ | lSample = 0 | ||
+ | For x = 0 To UBound(btWaveOutBuffer1) Step 2 | ||
+ | lSample = lSample + 5 | ||
+ | If lSample > 32767 Then | ||
+ | lSample = 0 | ||
+ | End If | ||
+ | btWaveOutBuffer1(x) = (lSample And &HFF00&) \ &H100 | ||
+ | btWaveOutBuffer1(x + 1) = lSample And &HFF& | ||
+ | Next | ||
+ | 'Sägezahn Schwingung in Buffer 2: | ||
+ | lSample = 0 | ||
+ | For x = 0 To UBound(btWaveOutBuffer2) Step 2 | ||
+ | lSample = lSample + 8 | ||
+ | If lSample > 32767 Then | ||
+ | lSample = 0 | ||
+ | End If | ||
+ | btWaveOutBuffer2(x) = (lSample And &HFF00&) \ &H100 | ||
+ | btWaveOutBuffer2(x + 1) = lSample And &HFF& | ||
+ | Next | ||
+ | End Sub | ||
+ | |||
+ | |||
+ | Public Function OpenOutputDevice(DevID As Long) As Boolean | ||
+ | Dim udtWaveFormat As WAVEFORMATEX | ||
+ | |||
+ | 'Definition des abzuspielenden Formats: | ||
+ | With udtWaveFormat | ||
+ | .cbSize = 0 | ||
+ | .wFormatTag = WAVE_FORMAT_PCM 'wave format | ||
+ | .nChannels = 1 'mono | ||
+ | .nSamplesPerSec = 44100 '44.1 kHz | ||
+ | .wBitsPerSample = 16 '16 Bits pro Sample | ||
+ | .nBlockAlign = .nChannels * .wBitsPerSample / 8 | ||
+ | .nAvgBytesPerSec = .nSamplesPerSec * .nBlockAlign | ||
+ | End With | ||
+ | |||
+ | If waveOutOpen(hDevice, DevID, udtWaveFormat, AddressOf CallBack, 0, CALLBACK_FUNCTION) <> 0 Then | ||
+ | 'Failed | ||
+ | hDevice = INVALID_HANDLE_VALUE | ||
+ | Else | ||
+ | 'Device erfolgreich geöffnet, jetzt zwei buffer, jeweils 1/4 sekunde | ||
+ | '16 bit audio reservieren: | ||
+ | ReDim btWaveOutBuffer1(udtWaveFormat.nSamplesPerSec * udtWaveFormat.nBlockAlign * 0.25 - 1) | ||
+ | ReDim btWaveOutBuffer2(udtWaveFormat.nSamplesPerSec * udtWaveFormat.nBlockAlign * 0.25 - 1) | ||
+ | With udtBuffer1Hdr | ||
+ | .lpData = VarPtr(btWaveOutBuffer1(0)) | ||
+ | .dwBufferLength = UBound(btWaveOutBuffer1) + 1 | ||
+ | .dwUser = 1 | ||
+ | End With | ||
+ | With udtBuffer2Hdr | ||
+ | .lpData = VarPtr(btWaveOutBuffer2(0)) | ||
+ | .dwBufferLength = UBound(btWaveOutBuffer2) + 1 | ||
+ | .dwUser = 2 | ||
+ | End With | ||
+ | If waveOutPrepareHeader(hDevice, udtBuffer1Hdr, LenB(udtBuffer1Hdr)) Or _ | ||
+ | waveOutPrepareHeader(hDevice, udtBuffer2Hdr, LenB(udtBuffer2Hdr)) <> 0 Then | ||
+ | CloseOutputDevice | ||
+ | Else | ||
+ | OpenOutputDevice = True | ||
+ | End If | ||
+ | End If | ||
+ | End Function | ||
+ | |||
+ | Public Function CloseOutputDevice() | ||
+ | If hDevice <> INVALID_HANDLE_VALUE Then | ||
+ | waveOutUnprepareHeader hDevice, udtBuffer1Hdr, LenB(udtBuffer1Hdr) | ||
+ | waveOutUnprepareHeader hDevice, udtBuffer2Hdr, LenB(udtBuffer2Hdr) | ||
+ | waveOutClose hDevice | ||
+ | hDevice = INVALID_HANDLE_VALUE | ||
+ | End If | ||
+ | End Function | ||
+ | |||
+ | Private Sub CallBack(ByVal hDev As Long, ByVal uMsg As Long, dwInstance As Long, _ | ||
+ | dwParam1 As WAVEHDR, dwParam2 As Long) | ||
+ | If uMsg = WOM_DONE Then | ||
+ | lBufferFinished = lBufferFinished And (Not dwParam1.dwUser) | ||
+ | End If | ||
+ | End Sub | ||
+ | </code> | ||
Version vom 12. Januar 2009, 15:37 Uhr
Die API-Funktion waveOutWrite weißt das Ausgabegerät an, den übergebenen Audiobuffer abzuspielen.
Declare Function waveOutWrite lib "winmm.dll" _
Alias "waveOutWrite" ( _ ByVal hWaveOut As Long, _ ByRef lpWaveOutHdr As WAVEHDR, _ ByVal uSize As Long) As Long
Parameter
hWaveOut
- Handle des Devices zu dem der Buffer hinzugefügt werden soll. Siehe waveOutOpen.
lpWaveOutHdr
- Zeiger auf die WAVEHDR Struktur des Buffers. Die Struktur muss mittels waveOutPrepareHeader vorbereitet worden sein.
uSize
- Grösse der übergebenen WAVEHDR Struktur.
Rückgabe(n)
0 bei Erfolg, ansonsten Fehlercode.
[OPTIONAL] Beispiel
In diesem Beispiel wird ein Gerät zur Ausgabe von 16 Bit 44.1kHz Mono Audiodaten geöffnet, zwei Buffer werden reserviert und in diesen werden Testdaten generiert. Schlussendlich werden die beiden Buffer ausgegeben und das Device wieder geschlossen.
'Module1
Option Explicit
Private Declare Function waveOutOpen Lib "winmm.dll" (hWaveOut As Long, _
ByVal uDeviceID As Long, Format As Any, ByVal dwCallback As Long, _ ByVal dwInstance As Long, ByVal dwFlags As Long) As Long
Private Declare Function waveOutPrepareHeader Lib "winmm.dll" ( _
ByVal hWaveOut As Long, lpWaveInHdr As Any, ByVal uSize As Long) As Long
Private Declare Function waveOutUnprepareHeader Lib "winmm.dll" ( _
ByVal hWaveOut As Long, lpWaveInHdr As Any, ByVal uSize As Long) As Long
Private Declare Function waveOutClose Lib "winmm.dll" (ByVal hWaveOut As Long) As Long
Private Declare Function waveOutWrite Lib "winmm.dll" (ByVal hWaveOut As Long, _
ByRef lpWaveOutHdr As WAVEHDR, ByVal uSize As Long) As Long
Private Type WAVEFORMATEX
wFormatTag As Integer nChannels As Integer nSamplesPerSec As Long nAvgBytesPerSec As Long nBlockAlign As Integer wBitsPerSample As Integer cbSize As Integer
End Type
Private Type WAVEHDR
lpData As Long dwBufferLength As Long dwBytesRecorded As Long dwUser As Long dwFlags As Long dwLoops As Long lpNext As Long Reserved As Long
End Type
Private Const WAVE_FORMAT_PCM As Long = 1 Private Const CALLBACK_FUNCTION As Long = &H30000 Private Const INVALID_HANDLE_VALUE As Long = -1 Private Const WOM_DONE As Long = &H3BD
Private hDevice As Long
Private udtBuffer1Hdr As WAVEHDR Private btWaveOutBuffer1() As Byte
Private udtBuffer2Hdr As WAVEHDR Private btWaveOutBuffer2() As Byte
Private lBufferFinished As Long
Public Sub TestAudioOutput()
If OpenOutputDevice(0) Then CreateTestData If Not waveOutWrite(hDevice, udtBuffer1Hdr, LenB(udtBuffer1Hdr)) = 0 Then 'error ElseIf Not waveOutWrite(hDevice, udtBuffer2Hdr, LenB(udtBuffer2Hdr)) = 0 Then 'error End If CloseOutputDevice Else Debug.Print "Kann Gerät 0 nicht öffnen!" End If
End Sub
Private Sub CreateTestData()
'Diese Funktion erstellt zwei verschiedene Wellenformen in den beiden Buffern 'damit ein Unterschied hörbar ist. Dim x As Long Dim lSample As Long
'Sägezahn Schwingung in Buffer 1: lSample = 0 For x = 0 To UBound(btWaveOutBuffer1) Step 2 lSample = lSample + 5 If lSample > 32767 Then lSample = 0 End If btWaveOutBuffer1(x) = (lSample And &HFF00&) \ &H100 btWaveOutBuffer1(x + 1) = lSample And &HFF& Next 'Sägezahn Schwingung in Buffer 2: lSample = 0 For x = 0 To UBound(btWaveOutBuffer2) Step 2 lSample = lSample + 8 If lSample > 32767 Then lSample = 0 End If btWaveOutBuffer2(x) = (lSample And &HFF00&) \ &H100 btWaveOutBuffer2(x + 1) = lSample And &HFF& Next
End Sub
Public Function OpenOutputDevice(DevID As Long) As Boolean
Dim udtWaveFormat As WAVEFORMATEX 'Definition des abzuspielenden Formats: With udtWaveFormat .cbSize = 0 .wFormatTag = WAVE_FORMAT_PCM 'wave format .nChannels = 1 'mono .nSamplesPerSec = 44100 '44.1 kHz .wBitsPerSample = 16 '16 Bits pro Sample .nBlockAlign = .nChannels * .wBitsPerSample / 8 .nAvgBytesPerSec = .nSamplesPerSec * .nBlockAlign End With If waveOutOpen(hDevice, DevID, udtWaveFormat, AddressOf CallBack, 0, CALLBACK_FUNCTION) <> 0 Then 'Failed hDevice = INVALID_HANDLE_VALUE Else 'Device erfolgreich geöffnet, jetzt zwei buffer, jeweils 1/4 sekunde '16 bit audio reservieren: ReDim btWaveOutBuffer1(udtWaveFormat.nSamplesPerSec * udtWaveFormat.nBlockAlign * 0.25 - 1) ReDim btWaveOutBuffer2(udtWaveFormat.nSamplesPerSec * udtWaveFormat.nBlockAlign * 0.25 - 1) With udtBuffer1Hdr .lpData = VarPtr(btWaveOutBuffer1(0)) .dwBufferLength = UBound(btWaveOutBuffer1) + 1 .dwUser = 1 End With With udtBuffer2Hdr .lpData = VarPtr(btWaveOutBuffer2(0)) .dwBufferLength = UBound(btWaveOutBuffer2) + 1 .dwUser = 2 End With If waveOutPrepareHeader(hDevice, udtBuffer1Hdr, LenB(udtBuffer1Hdr)) Or _ waveOutPrepareHeader(hDevice, udtBuffer2Hdr, LenB(udtBuffer2Hdr)) <> 0 Then CloseOutputDevice Else OpenOutputDevice = True End If End If
End Function
Public Function CloseOutputDevice()
If hDevice <> INVALID_HANDLE_VALUE Then waveOutUnprepareHeader hDevice, udtBuffer1Hdr, LenB(udtBuffer1Hdr) waveOutUnprepareHeader hDevice, udtBuffer2Hdr, LenB(udtBuffer2Hdr) waveOutClose hDevice hDevice = INVALID_HANDLE_VALUE End If
End Function
Private Sub CallBack(ByVal hDev As Long, ByVal uMsg As Long, dwInstance As Long, _
dwParam1 As WAVEHDR, dwParam2 As Long) If uMsg = WOM_DONE Then lBufferFinished = lBufferFinished And (Not dwParam1.dwUser) End If
End Sub
[PFLICHT] Quelle(n)
- MSDN US-Libary