|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#16
|
||||
|
||||
У меня так:
Код:
procedure TmrCircle; var Tochek : Integer; ciCirle : BASS_CHANNELINFO; BufCirle :array of Single; begin ...... SetLength(BufCirle, Integer(ciCirle.chans) * (Tochek+1)); BASS_ChannelGetData(Channel, BufCirle, (Integer(ciCirle.chans) * (Tochek + 1) * SizeOf(Single)) or BASS_DATA_FLOAT); ..... end; |