Moin , ich hab ja ein programm , womit man zb webradios und co abspielen kann
jetzt möchte ich , das man das ganze auch aufnehmen kann
soweit sogut , ich hab eigentlich alles , nur speichert er diese datei nicht!
also
1. frage , warum speichert er sie nicht?
2. wie kann man die Qualität ggfs auf das beste stellen?
3. kann man das so machen , das man sich aussuchen kann wo es gespeichert werden soll? sobald man auf stop klickt?
4. kann man eine pause Funktion einbauen? wenn ja wie?
der code
Spoiler anzeigen
Public Class rec
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Integer, ByVal hwndCallback As Integer) As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles start_rec.Click
start_rec.Enabled = False
stop_rec.Enabled = True
mciSendString("open new Type waveaudio Alias recsound", "", 0, 0)
mciSendString("record recsound", "", 0, 0)
Info.Text = "Recording..."
Info.Visible = True
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles stop_rec.Click
start_rec.Enabled = True
stop_rec.Enabled = False
play_rec.Enabled = True
mciSendString("save recsound c:\recsound.wav", "", 0, 0)
mciSendString("close recsound", "", 0, 0)
MsgBox("File Created: C:\recsound.wav")
Info.Text = "Stopped..."
Info.Visible = False
My.Computer.Audio.Stop()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles play_rec.Click
Info.Text = "Playing..."
Info.Visible = True
My.Computer.Audio.Play("c:\recsound.wav", AudioPlayMode.Background)
End Sub
End Class
jetzt möchte ich , das man das ganze auch aufnehmen kann
soweit sogut , ich hab eigentlich alles , nur speichert er diese datei nicht!
also
1. frage , warum speichert er sie nicht?
2. wie kann man die Qualität ggfs auf das beste stellen?
3. kann man das so machen , das man sich aussuchen kann wo es gespeichert werden soll? sobald man auf stop klickt?
4. kann man eine pause Funktion einbauen? wenn ja wie?
der code
Public Class rec
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Integer, ByVal hwndCallback As Integer) As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles start_rec.Click
start_rec.Enabled = False
stop_rec.Enabled = True
mciSendString("open new Type waveaudio Alias recsound", "", 0, 0)
mciSendString("record recsound", "", 0, 0)
Info.Text = "Recording..."
Info.Visible = True
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles stop_rec.Click
start_rec.Enabled = True
stop_rec.Enabled = False
play_rec.Enabled = True
mciSendString("save recsound c:\recsound.wav", "", 0, 0)
mciSendString("close recsound", "", 0, 0)
MsgBox("File Created: C:\recsound.wav")
Info.Text = "Stopped..."
Info.Visible = False
My.Computer.Audio.Stop()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles play_rec.Click
Info.Text = "Playing..."
Info.Visible = True
My.Computer.Audio.Play("c:\recsound.wav", AudioPlayMode.Background)
End Sub
End Class