20.12.2014, 22:22
|
|
Новичок
|
|
Регистрация: 28.09.2013
Сообщения: 94
Версия Delphi: 2010
Репутация: 10
|
|
У меня так:
Код:
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;
|