Basscd 2.2 - Problem

[Wishmaster]

Zitat:

History

2.2 - 2/10/2005
---------------

* FREEOLD flag replaced by a config option
BASS_CONFIG_CD_FREEOLD (BASS_SetConfig option)
BASS_CD_FREEOLD *removed*

Delphi-Quellcode:

procedure TForm1.PlayTrack(drive, track: DWORD);
begin
 // BASS_StreamFree(stream[drive]);

  if stream[drive] = 1 then
    BASS_CD_StreamSetTrack(stream[drive], track) // already have a stream, so just set the track
  else
  begin
    BASS_SetConfig(BASS_CONFIG_CD_FREEOLD, stream[drive]);
    stream[drive] := BASS_CD_StreamCreate(drive, track, 0); // 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;