Ein paar Fragen zu Audio CDs...

[Wishmaster]

Hi

@urbanbruhin

kuck dir das unten stehende mall an und ändere die Unit dem Entsprechend.

Delphi-Quellcode:

unter FKBassPlayer;

interface
uses BASS, BASSCD;


var 
  FileName : String  


// Create File(open)

BASS_MusicFree(Channel);
BASS_StreamFree(Channel);

Channel:=  THandle(BASS_StreamCreateFile(FALSE,  PChar(FileName), 0, 0, 0)) or
           THandle(BASS_CD_StreamCreateFile(PChar(FileName), 0)) or               // Play CD’S
           THandle(BASS_WMA_StreamCreateFile(False, PChar(FileName), 0, 0, 0)) or // Play WMA
           THandle(BASS_FLAC_StreamCreateFile(False, PChar(FileName), 0, 0, 0));  // Play FLAC 
  //und so weiter. 


//  Play File

    if (Channel = 0) then
     begin
      Error('Selected file couldnt be loaded!');
      Exit;
     end;

{ FileName:=     player.playfile('H:\Track01.cda'); }

     BASS_ChannelPlay(Channel, false)

Und kuck dir meinen alten Code an den ich geschrieben hatte. Der ist nicht so gut wie der neue aber du findest dort alles was du brauchst!

Source.txt