- Код: Выделить всё
Private Sub Form_Load()
MMControl1.FileName=app.path & “\01.wav”
MMControl1.Command = "open"
End Sub
Private Sub Command1_Click()
MMControl1.Command = "prev"
MMControl1.Command = "record"
Command2.Enabled = True
End Sub
Private Sub Command2_Click()
MMControl1.Command = "stop"
MMControl1.Command = "save"
MMControl1.Command = "prev"
Command3.Enabled = True
End Sub
Private Sub Command3_Click()
MMControl1.Command = "play"
MMControl1.Command = "prev"
End Sub
здесь всё ясно запись формирует 01.wav файл, но как этот файл конвертировать во Flac?
Предполагаю, подключить конвертер, но во первых такого не нашел...
а второе, как то всё усложняется, возможно кто то знает непосредственную запись в формате Flac, может ActiveX, либо пример.