запись с линейного входа звуковухи
добрый день !
Подскажите такую вещь, необходимо получить и записать данные поступающие на линейный вход звуковухи... В каком направлении копать, где почитать, какие библиотеки использовать ?
Ну и промерчик желательно... если есть :)
з.ы.: все это под C#/VS2005
заранее спасибо
Подскажите такую вещь, необходимо получить и записать данные поступающие на линейный вход звуковухи... В каком направлении копать, где почитать, какие библиотеки использовать ?
Ну и промерчик желательно... если есть :)
з.ы.: все это под C#/VS2005
заранее спасибо
через MCI (winmm.dll)
Есть пример на VB6:
Public Class Form1
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Result As Long
Result = mciSendString("open new Type waveaudio Alias recsound", "", 0, 0)
result = mciSendString("record recsound", "", 0, 0)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim Result As Long
Result = mciSendString("save recsound c:\\record.wav", "", 0, 0)
Result = mciSendString("close recsound ", "", 0, 0)
My.Computer.Audio.Stop()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
My.Computer.Audio.Play("c:\\record.wav", AudioPlayMode.Background)
End Sub
End Class
Есть пример на VB6:
Public Class Form1
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Result As Long
Result = mciSendString("open new Type waveaudio Alias recsound", "", 0, 0)
result = mciSendString("record recsound", "", 0, 0)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim Result As Long
Result = mciSendString("save recsound c:\\record.wav", "", 0, 0)
Result = mciSendString("close recsound ", "", 0, 0)
My.Computer.Audio.Stop()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
My.Computer.Audio.Play("c:\\record.wav", AudioPlayMode.Background)
End Sub
End Class