Moin Ihr Lieben
Ich habe mal ne Frage ist es Möglich das was man grade ins Micro Spricht gleich über Programm Wiederzugeben?. Ich habe Schon mit der MCI Schnittstelle Gearbeitet hier ein Beispiel.
Vielen dank in Voraus. MFG
Ich habe mal ne Frage ist es Möglich das was man grade ins Micro Spricht gleich über Programm Wiederzugeben?. Ich habe Schon mit der MCI Schnittstelle Gearbeitet hier ein Beispiel.
Vielen dank in Voraus. MFG
VB.NET-Quellcode
- Public Class Form1
- Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal Command As String, _
- ByVal ReturnString As String, ByVal ReturnLength As Integer, ByVal Callback As Integer) As Integer
- Dim Path As String = "Test.wav"
- Dim rs As String
- Dim cb As Integer
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- If Button1.Text = "Record" Then
- Button1.Text = "Stop"
- Button2.Enabled = False
- rs = New String(" ", 128)
- Call mciSendString("Open New Type waveaudio Alias capture", rs, 128, cb)
- Call mciSendString("record capture", rs, 128, cb)
- Else
- Button1.Text = "Record"
- Button2.Enabled = True
- Call mciSendString("Stop capture", rs, 128, cb)
- Call mciSendString("save capture " & Path, rs, 128, cb)
- Call mciSendString("Close capture", rs, 128, cb)
- End If
- End Sub
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- Button1.Text = "Record"
- Button2.Text = "Play"
- Button2.Enabled = False
- End Sub
- Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
- My.Computer.Audio.Play(Path, AudioPlayMode.Background)
- Button1.Enabled = True
- End Sub
- End Class