Вверх ↑
Ответов: 8695
Рейтинг: 806
#1: 2019-08-19 23:02:04 ЛС | профиль | цитата
hin4, в примерах на вашем компьютере по пути "%%\hiasm*\Elements\Delphi\Example\Media\BASS" есть.
Пример


Add(ChildPanelEx,15569021,196,70)
{
@Hint=#39:Запуск BASS 2.4 и выбор источника звука|
link(Handle,14765800:Handle,[(202,61)(188,61)(188,96)(153,96)])
}
BEGIN_SDK
Add(EditMultiEx,6822816,21,21)
{
WorkCount=#21:doStart=Начать работу|
EventCount=#21:onStart=Начать работу|
DataCount=#46:Handle=Идентификатор основного окна приложения|
Width=517
Height=172
VOffset=35
HOffset=42
link(doStart,15175716:doEvent1,[])
}
Add(Panel,3900892,175,42)
{
Top=-5
Width=378
Height=260
Visible=1
Caption=" Выбрать источник звука"
Alignment=2
Point(doVisible)
}
Add(BASS_Version,10183901,126,91)
{
link(onCheckOk,2139448:doEnum,[])
link(onCheckFailed,109118:doMessage,[(166,104)(166,146)])
}
Add(Message,11232751,126,140)
{
Message="Error BASS initialization"
Caption="Error"
Icon=1
}
Add(Message,109118,175,140)
{
Message="Incorrect version of BASS library "
Caption="Error"
Icon=1
}
Add(BASS_Init,4252681,77,91)
{
Freq=22050
Flags=3
link(onInit,10183901:doCheck,[])
link(onError,11232751:doMessage,[(117,104)(117,146)])
link(Handle,6822816:Handle,[(97,56)(69,56)])
}
Add(BASS_RecordCenter,12302345,273,98)
{
link(onInit,15862958:doEnumInputs,[])
link(onError,11713735:doMessage,[(310,111)(310,153)])
}
Add(Message,11713735,322,147)
{
Message="InitRecord failed!"
Caption="Error"
Icon=1
}
Add(BASS_RecordInput,15862958,322,98)
{
link(onEnumInputs,16487182:doEvent1,[])
}
Add(BASS_InputControl,9998094,448,98)
{
Volume=1
State=1
link(onSetInput,9127027:doEvent1,[])
link(Volume,10061734:Var1,[(461,83)])
link(State,10061734:Var2,[])
}
Add(Memory,4613851,462,35)
{
Default=Integer(1)
}
Add(ComboBox,4718633,224,91)
{
Left=5
Top=5
Width=185
Height=21
link(onClick,12302345:doInit,[])
}
Add(GetDataEx,10061734,462,78)
{
link(Data,4613851:Value,[])
}
Add(ChanelToIndex,14252892,126,49)
{
link(onIndex,3900892:doVisible,[])
}
Add(Hub,15175716,49,56)
{
link(onEvent1,14252892:doWork2,[])
link(onEvent2,4252681:doInit,[(66,69)(66,97)])
}
Add(ComboBox,8950199,399,105)
{
Left=195
Top=5
Width=175
Height=21
Enabled=1
Point(doEnabled)
link(onClick,9998094:doSetInput,[(439,118)(439,104)])
}
Add(BASS_RecordDevices,2139448,175,91)
{
link(onEnum,4718633:doAdd,[])
}
Add(Hub,16487182,364,98)
{
link(onEvent1,8950199:doEnabled,[(388,104)(388,153)])
link(onEvent2,8950199:doAdd,[])
}
Add(Hub,9127027,490,98)
{
link(onEvent1,14252892:doWork1,[(512,104)(512,31)(114,31)(114,55)])
link(onEvent2,6822816:onStart,[(522,111)(522,62)])
}
END_SDK
Add(MainForm,14765800,147,56)
{
Width=393
Height=295
Caption="Звук"
Point(onClose)
Point(Handle)
link(onCreate,15569021:doStart,[])
}
Add(BASS_RecordStart,930540,203,126)
{
Freq=22050
Mode=1
Name="MySound"
link(onData,1578070:Method,[])
}
Add(Button,14423340,147,112)
{
Left=25
Top=10
Caption="Пуск"
link(onClick,930540:doStart,[(193,118)(193,132)])
}
Add(Button,7390731,147,147)
{
Left=25
Top=45
Caption="Стоп"
link(onClick,930540:doStop,[(186,153)(186,139)])
}
Add(PaintBox,8758719,294,70)
{
Left=10
Top=70
Width=360
Height=180
link(onBeforeDraw,5631139:doDraw,[])
}
Add(BASS_ChannelVisibleSpectrum,5631139,350,70)
{
SoundStream="MySound"
Mode=1
link(WindowsHandle,8758719:Bitmap,[(356,58)(328,58)(328,114)(300,114)])
}
Add(Timer,5820169,245,70)
{
Interval=10
link(onTimer,8758719:doRefresh,[])
}
Add(PointHint,1578070,252,123)
{
Info=#55:Из этой точки 10 раз в секунду выдаётся звуковой поток.|
HAlign=0
Width=302
}

карма: 19

0