Add(ChildPanelEx,15569021,392,119)
{
 @Hint=#39:Запуск BASS 2.4 и выбор источника звука|
 link(onSound,2111790:doRecData,[])
 link(Handle,16358250:Handle,[(398,110)(384,110)(384,159)(335,159)])
}
BEGIN_SDK
  Add(EditMultiEx,6822816,21,21)
  {
   WorkCount=#21:doStart=Начать работу|
   EventCount=#21:onStart=Начать работу|22:onSound=Звуковой поток|
   DataCount=#46:Handle=Идентификатор основного окна приложения|
   Width=671
   Height=179
   VOffset=35
   HOffset=42
   link(doStart,15175716:doEvent1,[])
  }
  Add(Panel,3900892,175,42)
  {
   Top=65
   Width=373
   Height=142
   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)
  {
   link(onInit,10183901:doCheck,[])
   link(onError,11232751:doMessage,[(117,104)(117,146)])
   link(Handle,6822816:Handle,[(97,54)(69,54)])
  }
  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(Hub,9127027,490,98)
  {
   OutCount=3
   link(onEvent1,14252892:doWork1,[(512,104)(512,31)(114,31)(114,55)])
   link(onEvent2,6822816:onStart,[(522,111)(522,62)])
   link(onEvent3,12537631:doStart,[])
  }
  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(BASS_RecordStart,12537631,525,112)
  {
   Freq=44100
   Channels=2
   Mode=1
   Name="EarOfComp"
   link(onData,6822816:onSound,[(637,125)(637,69)])
  }
  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,[(389,104)(389,139)])
   link(onEvent2,8950199:doAdd,[])
  }
END_SDK
Add(MainForm,16358250,329,119)
{
 Width=393
 Height=248
 Caption="Звук"
 Point(Handle)
 link(onCreate,15569021:doStart,[(370,139)(370,125)])
}
Add(InlineCode,2111790,434,126)
{
 @Hint=#146:Выделение сигнала Морзе 46-460 зн/мин из звукового потока на частоте 918 Гц в полосе по уровню -6 дб 150 Гц, подавление вне полосы от 13 до 78 дб.|
 WorkPoints=#35:doRecData=Потоковые звуковые данные|
 EventPoints=#59:onSignalMaxL=Максимальное значение на входе левый (0-32768)|60:onSignalMaxR=Максимальное значение на входе правый (0-32768)|29:onSignalL=Выход сигнала левый|30:onSignalR=Выход сигнала правый|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|3:   |9:   public|25:    _data_Data:THI_Event;|88:    onSignalMaxL:THI_Event;             //Максимальное значение на входе левый (0-32768)|89:    onSignalMaxR:THI_Event;             //Максимальное значение на входе правый (0-32768)|61:    onSignalL:THI_Event;                //Выход сигнала левый|62:    onSignalR:THI_Event;                //Выход сигнала правый|0:|53:    procedure doRecData(var _Data:TData; Index:word);|4:end;|0:|14:implementation|0:|32:procedure THiAsmClass.doRecData;|17: var St:PStream; |18:     len:cardinal;|17:     i,j:integer;|57:     SoundL,SoundR,SoundAbs,SoundMaxL,SoundMaxR:smallint;|5:     |6: begin|18:     SoundMaxL:=0;|18:     SoundMaxR:=0;|92:     St := ReadStream(_data,_data_Data,nil);               //Читаем звуковой поток ~0,1 сек.|84:      if St = nil then Exit;                               //Выход, если нет данных.|8:        |58:      for i:=0 to len do                                  |13:       begin |92:         St.Read(SoundL,2);                        //Читаем по 2 байта в SoundL Левый канал.|95:         St.Read(SoundR,2);                        //Читаем по 2 байта в SoundR (Правый канал).|31:         SoundAbs:=abs(SoundL);|95:          if SoundMaxL<SoundAbs then SoundMaxL:=SoundAbs;//Запоминаем максимальный сигнал левый|25:		 SoundAbs:=abs(SoundR);|96:          if SoundMaxR<SoundAbs then SoundMaxR:=SoundAbs;//Запоминаем максимальный сигнал ghfdsq|10:          |76:		 _hi_onEvent(onSignalL, SoundL);                 //Выводим значение левый.|85:         _hi_onEvent(onSignalR, SoundR);                 //Выводим значение правый.  |9:         |12:       end; |7:       |97:     _hi_onEvent(onSignalMaxL, SoundMaxL);                 //Выводим максимум на индикацию левый.|98:     _hi_onEvent(onSignalMaxR, SoundMaxR);                 //Выводим максимум на индикацию правый.|5: end;|2:  |4:end.|
 link(onSignalMaxL,16695264:doPosition,[(488,132)(488,104)])
 link(onSignalMaxR,9362388:doPosition,[(488,139)(488,160)])
}
Add(ProgressBar,9362388,511,154)
{
 Left=5
 Top=25
 Width=191
 Height=10
 Color=32768
 Max=32768
 ProgressColor=65280
 Point(doColor)
}
Add(ProgressBar,16695264,511,98)
{
 Left=5
 Top=10
 Width=191
 Height=10
 Color=32768
 Max=16384
 ProgressColor=65280
 Point(doColor)
}