Basscd 2.2 - Problem

[mlspider]

Das Beispiel von Basscd 2.2 läßt sich nicht compilieren. Zb.:

Delphi-Quellcode:

procedure TForm1.PlayTrack(drive, track: DWORD);
begin
  if (stream[drive]) then   //<--- Muß Boolean sein
    BASS_CD_StreamSetTrack(stream[drive],track) // already have a stream, so just set the track
  else
  begin
    stream[drive] := BASS_CD_StreamCreate(drive, track, BASS_CD_FREEOLD); // create stream
    BASS_ChannelSetSync(stream[drive], BASS_SYNC_END, 0, @EndSync, 0); // set end syc
  end;
  if (drive = DWORD(curdrive)) then
    trkPos.Max := BASS_ChannelGetLength(stream[drive]) div 176400; // set pos scroller range
  BASS_ChannelPlay(stream[drive], False); // start playing
end;

Hat jemand schon des Rätsels Lösung gefunden?