Recording Funktion

  • VB.NET

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von seh.

    Recording Funktion

    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