Add(ChildPanelEx,15569021,112,70)
{
 @Hint=#39:Запуск BASS 2.4 и выбор источника звука|
 link(Handle,14765800:Handle,[(118,61)(104,61)(104,96)(69,96)])
}
BEGIN_SDK
  Add(EditMultiEx,6822816,21,21)
  {
   WorkCount=#21:doStart=Начать работу|
   EventCount=#21:onStart=Начать работу|
   DataCount=#46:Handle=Идентификатор основного окна приложения|
   Width=692
   Height=242
   VOffset=35
   HOffset=42
   link(doStart,15175716:doEvent1,[(53,62)(53,132)])
  }
  Add(Panel,3900892,266,112)
  {
   Left=15
   Width=385
   Height=26
   Visible=1
   Caption="                                                               Выбрать источник звука"
   Alignment=2
   Point(doVisible)
  }
  Add(BASS_Version,10183901,161,161)
  {
   link(onCheckOk,2139448:doEnum,[])
   link(onCheckFailed,109118:doMessage,[(201,174)(201,216)])
  }
  Add(Message,11232751,161,210)
  {
   Message="Error BASS initialization"
   Caption="Error"
   Icon=1
  }
  Add(Message,109118,210,210)
  {
   Message="Incorrect version of BASS library "
   Caption="Error"
   Icon=1
  }
  Add(BASS_Init,4252681,112,161)
  {
   Freq=22050
   Flags=3
   link(onInit,10183901:doCheck,[])
   link(onError,11232751:doMessage,[(152,174)(152,216)])
   link(Handle,6822816:Handle,[(132,126)(104,126)])
  }
  Add(BASS_RecordCenter,12302345,308,168)
  {
   link(onInit,15862958:doEnumInputs,[])
   link(onError,11713735:doMessage,[(345,181)(345,223)])
  }
  Add(Message,11713735,378,217)
  {
   Message="InitRecord failed!"
   Caption="Error"
   Icon=1
  }
  Add(BASS_RecordInput,15862958,357,168)
  {
   link(onEnumInputs,16487182:doEvent1,[])
  }
  Add(BASS_InputControl,9998094,497,168)
  {
   Volume=1
   State=1
   link(onSetInput,9127027:doEvent1,[])
   link(Volume,10061734:Var1,[(510,153)])
   link(State,10061734:Var2,[])
  }
  Add(Memory,4613851,511,105)
  {
   Default=Integer(1)
  }
  Add(ComboBox,4718633,259,161)
  {
   Left=5
   Top=5
   Width=185
   Height=21
   link(onClick,12302345:doInit,[])
  }
  Add(GetDataEx,10061734,511,148)
  {
   link(Data,4613851:Value,[])
  }
  Add(ChanelToIndex,14252892,161,119)
  {
   link(onIndex,3900892:doVisible,[])
  }
  Add(Hub,15175716,84,126)
  {
   link(onEvent1,14252892:doWork2,[])
   link(onEvent2,4252681:doInit,[(101,139)(101,167)])
  }
  Add(ComboBox,8950199,441,161)
  {
   Left=195
   Top=5
   Width=175
   Height=21
   Enabled=1
   Point(doEnabled)
   link(onClick,9998094:doSetInput,[])
  }
  Add(BASS_RecordDevices,2139448,210,161)
  {
   link(onEnum,4718633:doAdd,[])
  }
  Add(Hub,16487182,399,168)
  {
   link(onEvent1,8950199:doEnabled,[(423,174)(423,195)])
   link(onEvent2,8950199:doAdd,[(427,181)(427,167)])
  }
  Add(Hub,9127027,567,168)
  {
   link(onEvent1,14252892:doWork1,[(593,174)(593,150)(149,150)(149,125)])
   link(onEvent2,6822816:onStart,[(595,181)(595,62)])
  }
END_SDK
Add(MainForm,14765800,63,56)
{
 Width=455
 Height=380
 Caption="Звук"
 Point(onClose)
 Point(Handle)
 link(onCreate,15569021:doStart,[])
}
Add(BASS_RecordStart,930540,301,287)
{
 Freq=22050
 Name="MySound"
 link(FileName,7034552:Var1,[(307,152)])
}
Add(Button,14423340,154,161)
{
 Left=45
 Top=35
 Caption="Пуск"
 link(onClick,8914287:doEvent1,[])
}
Add(Button,7390731,98,287)
{
 Left=125
 Top=40
 Caption="Стоп"
 link(onClick,10975849:doEvent1,[])
}
Add(PaintBox,8758719,210,70)
{
 Left=10
 Top=70
 Width=360
 Height=180
 link(onBeforeDraw,5631139:doDraw,[])
}
Add(BASS_ChannelVisibleSpectrum,5631139,266,70)
{
 SoundStream="MySound"
 link(WindowsHandle,8758719:Bitmap,[(272,58)(244,58)(244,114)(216,114)])
}
Add(Timer,5820169,161,70)
{
 Interval=10
 link(onTimer,8758719:doRefresh,[])
}
Add(Hub,8914287,315,161)
{
 OutCount=5
 link(onEvent1,1507986:doString,[(445,167)(445,223)])
 link(onEvent2,6145327:doString,[(427,174)(427,111)])
 link(onEvent5,930540:doStart,[(341,195)(341,244)(289,244)(289,293)])
}
Add(HTTPServer,8589034,525,294)
{
 Port="900"
 link(Path,1507986:FString,[])
}
Add(Dir,9567969,525,49)
{
}
Add(FormatStr,6145327,525,105)
{
 Mask="%1server\www\default.wav"
 Point(FString)
 link(Str1,9567969:CurrentDir,[])
}
Add(GetDataEx,329078,525,140)
{
 link(Data,6145327:FString,[])
}
Add(GetDataEx,7034552,525,147)
{
 link(Data,329078:Var2,[])
}
Add(Hub,10975849,182,287)
{
 OutCount=3
 link(onEvent3,930540:doStop,[(248,307)(248,300)])
}
Add(Dir,16773686,525,168)
{
}
Add(FormatStr,1507986,525,217)
{
 Mask="%1server\www\"
 Point(FString)
 link(onFString,8589034:doCreate,[(569,223)(569,261)(513,261)(513,300)])
 link(Str1,16773686:CurrentDir,[])
}