Что нового

Запись звука с микрофона в файл

Arei

Скриптер
Сообщения
938
Репутация
115
Пользуюсь стандартным скриптом
Код:
#include <Media.au3>
MsgBox(0,"Media UDF by Svennie (sound record example)","When you click OK it starts with recording, when you press Escape it will stop recording and show a dialog to save your file.")
HotKeySet("{ESC}","StopRecording")
$Stop=1
Func StopRecording()
	$Stop=0
EndFunc
$Media=_MediaCreate(6)
_MediaRecord($Media)
While $Stop
WEnd
_MediaStop($Media)
$File=FileSaveDialog("","","Wave files (*.wav)")&".wav"
If @error Then
	_MediaClose($Media)
	Exit
EndIf
_MediaSave($Media,$File)
_MediaClose($Media)

библиотека Media.au3 используется.
При завершении получается с размером аудио образца 8 бит, как сделать 16.И что бы частота дискретизации = 8 КГЦ.Подскажите пожалуйста.
Ссылка на библиотеку.http://www.autoitscript.com/forum/topic/17032-media-udf/page__p__117224__hl__recording+microphone__fromsearch__1#entry117224
 

Yashied

Модератор
Команда форума
Глобальный модератор
Сообщения
5 379
Репутация
2 711
Re: Получение звука из микрофона

Из микрофона нельзя получить, это не динамик...

Название темы - "Запись звука с микрофона в файл".
 

armenxxx1

Продвинутый
Сообщения
155
Репутация
56
Код:
;start recording
mciSendString("close all")
mciSendString("open new type waveaudio alias capture")
mciSendString("set capture bitspersample 16") ; 8, etc.
mciSendString("set capture samplespersec 22050") ; 44100, etc...
mciSendString("set capture channels 1") ; or 2 
mciSendString("record capture")

; keep recording for 5 seconds
Sleep(5000)
$filename="C:\sss.wav"
; stop and save recording to $filename
mciSendString("stop capture")
mciSendString('save capture "' & $filename & '" wait')
mciSendString("close capture")

;===============================================================================
; Description:     Send Windows Media Control Interface (MCI) string
; Parameter(s):    MCI command string. See command reference at:
;                  http://msdn.microsoft.com/en-us/library/ms710815(VS.85).aspx
; Requirement(s):  None
; Return Value(s): on success = 1, on fail = 0 and @error set to 1
;===============================================================================
Func mciSendString($s)
    DllCall("winmm.dll", "int", "mciSendString", "str", $s, "str", "", "int", 65534, "hwnd", 0)
    If @error Then
        SetError(1)
        Return 0
    Else
        Return 1
    EndIf
EndFunc
http://www.autoitscript.com/forum/topic/83481-bass-function-library-sound-and-music-functions/

http://www.autoit.de/index.php?page=Thread&threadID=4251


Кто-нибудь знает, как я могу избавиться от внешнего вида программы BassDll.rar я хочу работать как Media.au3

Хочу с запуска скрипта начать запись с микрофона в файл
 
Автор
A

Arei

Скриптер
Сообщения
938
Репутация
115
позже, попробую посмотреть.
 
Автор
A

Arei

Скриптер
Сообщения
938
Репутация
115
OffTopic:
armenxxx1 что ты показывал код он записывает в файл,что тебе в нём не нравится?
 
Верх