Вверх ↑
Этот топик читают: Гость
Ответов: 7
Рейтинг: 0
#1: 2017-03-11 19:22:06 ЛС | профиль | цитата
Всем привет. Ни как не догоняю как можно записать звук допустим с медиа плеера или сайта без использования микрофона. Очень хочется научиться! Подкинте схемку пожалуйста или совет в каком направление ломать голову))))
карма: 0

0
vip
#1.1контекстная реклама от партнеров
Ответов: 8888
Рейтинг: 823
#2: 2017-03-11 20:15:02 ЛС | профиль | цитата
fat86, в примерах "...hiasm..\Elements\Delphi\Example\Media\BASS"


Add(MainForm,2953706,231,154)
{
Point(Handle)
link(onCreate,4252681:doInit,[])
}
Add(BASS_Version,10183901,343,168)
{
link(onCheckOk,2139448:doEnum,[])
link(onCheckFailed,109118:doMessage,[(383,181)(383,223)])
}
Add(Message,11232751,343,217)
{
Message="Error BASS initialization"
Caption="Error"
Icon=1
}
Add(Message,109118,392,217)
{
Message="Incorrect version of BASS library "
Caption="Error"
Icon=1
}
Add(BASS_Init,4252681,294,168)
{
Device=1
link(onInit,10183901:doCheck,[])
link(onError,11232751:doMessage,[(334,181)(334,223)])
link(Handle,2953706:Handle,[(314,159)(286,159)(286,194)(237,194)])
}
Add(BASS_RecordCenter,12302345,490,175)
{
link(onInit,15862958:doEnumInputs,[])
link(onError,11713735:doMessage,[(527,188)(527,230)])
}
Add(Message,11713735,539,224)
{
Message="InitRecord failed!"
Caption="Error"
Icon=1
}
Add(BASS_RecordInput,15862958,539,175)
{
link(onEnumInputs,16487182:doEvent1,[])
}
Add(BASS_InputControl,9998094,665,175)
{
Volume=1
State=1
link(Volume,10061734:Var1,[(678,160)])
link(State,10061734:Var2,[])
}
Add(Memory,4613851,679,112)
{
Default=Integer(1)
}
Add(ComboBox,4718633,441,168)
{
Left=5
Top=5
Width=185
Height=21
Text="Звуковая карта"
Point(Index)
link(onClick,12302345:doInit,[])
}
Add(GetDataEx,10061734,679,155)
{
link(Data,4613851:Value,[])
}
Add(BASS_RecordStart,12537631,819,175)
{
Freq=44100
Channels=2
Name="AMofComp"
link(FileName,15366374:Text,[])
}
Add(ComboBox,8950199,616,182)
{
Left=195
Top=5
Width=175
Height=21
Enabled=1
Text="Вход"
Point(doEnabled)
Point(Index)
link(onClick,9998094:doSetInput,[(655,195)(655,181)])
}
Add(BASS_RecordDevices,2139448,392,168)
{
link(onEnum,4718633:doAdd,[])
}
Add(Hub,16487182,581,175)
{
link(onEvent1,8950199:doEnabled,[(605,181)(605,230)])
link(onEvent2,8950199:doAdd,[])
}
Add(Button,14922219,728,161)
{
Left=25
Top=45
Caption=">>"
link(onClick,12537631:doStart,[(809,167)(809,181)])
}
Add(Button,8623319,728,196)
{
Left=25
Top=75
Caption="II"
link(onClick,12537631:doStop,[(767,202)(767,188)])
}
Add(Edit,15366374,819,126)
{
Left=95
Top=60
Width=250
Text="MySound.wav"
}

карма: 19

0
2
Сообщение
...
Прикрепленные файлы
(файлы не залиты)