Ich habe den Code hier auch aus dem Forum und wollte fragen wie ich das recordete auf eine höhere bitrate stelle bzw überhaupt eine höhere quali
Danke im vorraus
MFG Marlboro@14
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 = "record.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 Button2.Enabled = False Button4.Enabled = True rs = New String(" ", 512) Call mciSendString("Open New Type waveaudio Alias capture", rs, 512, cb) Call mciSendString("record capture", rs, 512, cb) End Sub
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Button1.Text = "Record" Button3.Text = "Play Halt" Button3.Enabled = False Button2.Text = "Play" Button4.Text = "Record Halt" Button4.Enabled = False
- Button2.Enabled = True 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 Button3.Enabled = True Button2.Enabled = False Button4.Enabled = False Button1.Enabled = False
- End Sub
- Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click 'play halt 'Button1.Text = "Record" 'Button1.Enabled = False Button2.Enabled = True Button1.Enabled = True Button3.Enabled = False
- End Sub
- Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
- 'Record Halt Call mciSendString("Stop capture", rs, 512, cb) Call mciSendString("save capture " & Path, rs, 256, cb) Call mciSendString("Close capture", rs, 512, cb)
- Button3.Enabled = False Button2.Enabled = True Button4.Enabled = False
- End SubEnd Class
Danke im vorraus
MFG Marlboro@14