Also ich mach das bis jetzt so:
Delphi-Quellcode:
if not BASS_Init(-1,44100,0,Application.Handle,nil) then
ShowMessage('Can''t initialize device');
chan := BASS_StreamCreateFile(FALSE, PChar(filename),0,0,0);
for len := 0 to Ceil(bass.BASS_ChannelGetLength(chan) / WaveDataLength) do begin
BASS_ChannelSetPosition(chan, len*WaveDataLength);
BASS_ChannelGetData(chan, @WaveData, WaveDataLength);
for i := 0 to WaveDataLength-1 do
ShowMessage(IntToStr(WaveData[i]));
end;
aber WaveData[i] ist immer 0!!!
(für WaveData hab ich einen array[0..WaveDataLength] of SmallInt genommen)
Was mach ich nur falsch???
Edit:
Kann ich für WaveData auch einen array of ShortInt nehmen?