MMtimer выбрал по ошибке.
nesco
да с светодиодом получилось очень просто на самом деле, я выбрал не очень удачный пример где мне это нужно,
вот привожу полный вариант где хотелось использовать задуманное:
если между стартом и остановкой записи проходит меньше двух секунд то wav файл удалить
если больше 2 секунд то wav файл оставить.
думаю что куда-то нужно привязать timer но куда не могу придумать.
и второй вопрос, как можно получить текущее время с точностью до миллисекунд, компонент time выдает только до секунд.
Add(BASS_Version,10183901,288,63)
{
link(onCheckOk,12302345:doInit,[])
link(onCheckFailed,109118:doMessage,[(332,76)(332,118)])
}
Add(Message,11232751,288,112)
{
Message="Error BASS initialization"
Caption="Error"
Icon=1
}
Add(Message,109118,344,112)
{
Message="Incorrect version of BASS library "
Caption="Error"
Icon=1
}
Add(BASS_Init,4252681,204,63)
{
link(onInit,10183901:doCheck,[])
link(onError,11232751:doMessage,[(276,76)(276,118)])
link(Handle,4235588:Handle,[(224,51)(191,51)(191,114)(104,114)])
}
Add(BASS_RecordCenter,12302345,344,63)
{
link(onInit,15862958:doEnumInputs,[])
link(onError,11713735:doMessage,[(388,76)(388,118)])
}
Add(Message,11713735,400,112)
{
Message="InitRecord failed!"
Caption="Error"
Icon=1
}
Add(BASS_RecordInput,15862958,400,63)
{
link(onEnumInputs,9998094:doSetInput,[])
}
Add(BASS_InputControl,9998094,462,63)
{
Volume=1
State=1
link(Volume,10061734:Var1,[(475,55)])
link(State,10061734:Var2,[])
}
Add(Memory,4613851,476,7)
{
Default=Integer(1)
}
Add(GetDataEx,10061734,476,50)
{
link(Data,4613851:Value,[])
}
Add(MainForm,4235588,98,49)
{
Width=315
Height=142
Point(Handle)
link(onCreate,4252681:doInit,[])
}
Add(BASS_RecordStart,5066922,320,232)
{
Freq=8000
link(FileName,4425915:Data2,[(326,207)(305,207)(305,295)(214,295)])
}
Add(Time,15504453,201,140)
{
Format="h_m_s"
}
Add(FormatStr,7721935,201,200)
{
DataCount=1
Mask="%1.wav"
Point(FString)
link(onFString,5066922:doStart,[(277,206)(277,238)])
link(Str1,15504453:FormatTime,[])
}
Add(GetData,4425915,201,252)
{
Count=3
link(Data,7721935:FString,[])
}
Add(FileTools,13343416,201,308)
{
DelToRecycle=1
link(FileName,4425915:Data1,[])
}
Add(Button,12867922,14,217)
{
Left=30
Top=25
Caption="Start"
link(onClick,7721935:doString,[(124,223)(124,206)])
}
Add(Button,8111328,15,277)
{
Left=30
Top=55
Caption="Stop"
link(onClick,7282154:doEvent1,[(65,283)(65,307)])
}
Add(Hub,7282154,84,301)
{
link(onEvent1,5066922:doStop,[(158,307)(158,245)])
link(onEvent2,13343416:doDelete,[(150,314)(150,328)])
}