Ein paar Fragen zu Audio CDs...

[100nF]

ich habe da in der hilfedatei etwas gefunden:

BASS_CD_Analog_PlayFile(...)

bedeutet das analog etwa dass der track über die hardware abgespieli wirt, ohne software, oder was bedeutet das?

das laufwerk beginnt damit zu arbeiten, aber musik kommt keine raus...

[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

[100nF]

ok, vielen dank! ich werde es bald ausprobieren...

[100nF]

soory, aber ich habs einfach nicht hinbekommen...

also un der unit fkbassplayer hats ja auch gar kein createfile.
und unter playfile siehts so aus:

Delphi-Quellcode:

procedure TFKBassPlayer.PlayFile(FileName: String);
begin
  if FIsPlaying then
  begin
    FIsPlaying := false;
    VisThread.Suspend;
    Bassplayer.stop;
  end;
  Bassplayer.setFileToPlay(FileName);
  Bassplayer.play;
  FIsPlaying := true;
  VisThread.Resume;
end;

also bei deinem code den du gepostet hast, greifst du ja direkt auf die bass.dll zu, was hier sicher nicht der fall ist...

[dizzy]

Zitat von dizzy:

[...] Ansonsten ist die beim FKPlayer beiliegende bass.pas (o.ä.) (von Gandalfus geschrieben und von mir ein wenig angepasst) ein guter Ausgangspunkt um die DLL direkt zu bedienen.

Dort ist dein erster Ansatzpunkt, nicht der TFKBassplayer (zunächst).
(Insbesondere dürften TBassplayer.SetFileToPlay() und TBassplayer.Play (nicht TFKBassplayer) interessant sein.)

[Wishmaster]

Hi


@urbanbruhin ich habe mir den FKBassPlayer runter geladen und sogar angeschaut

Wen du die unit FKBassPlayer; aufmachst wirst du unter uses den Eintrag U_BassPlayer finden.
U_BassPlayer greift direkt auf bass zu.

Jetzt öffnest du U_BassPlayer suchst nach dem Eintrag setFileToPlay(filename: string); wen gefunden dann äderst den vorhandenen code durch Siehe unten

Delphi-Quellcode:

 
procedure TBassPlayer.setFileToPlay(filename: string);
stFlags : DWORD;
begin
  if BASS_ChannelIsActive(channel)=1 then
  begin
    BASS_StreamFree(channel);
  end;
  FFilename := filename;

stFlags: =  BASS_STREAM_AUTOFREE or BASS_SAMPLE_FX:


  channel:= THandle (BASS_StreamCreateFile(False, PChar(filename), 0, 0,  stFlags)) or       
            THandle(BASS_CD_StreamCreateFile(PChar(filename), stFlags)):  

          { THandle(BASS_FLAC_StreamCreateFile(False, PChar(filename), 0, 0, stFlags)) or
            THandle(BASS_WMA_StreamCreateFile(False, PChar(filename), 0, 0, stFlags))  or
            THandle(BASS_AAC_StreamCreateFile(PChar(filename), stFlags)); }

end;

wen du THandle vor StreamCreate setzt musst du die einzelne Dateien nicht auf die ext überprüfen wie (.mp3, .CDA, .mp4, ….. )!

Und nicht vergessen die Unit basscd.pas zum Project hinzuzufügen und unter Uses zu deklarieren!

[Wishmaster]

@dizzy warst wohl schneller

[100nF]

ok, ein track von der cd kann ich abspielen, aber immer nur der erste den ich anklicke, egal welcher track. die anderen funktionieren nicht mehr...

aber ich glaube das ist nicht so schlimm, da ich bereits mit dem tbassplayer an einem neuen mp3-player arbeite...dieser kann jetzt schon .cda dateien abspielen und ich glaube noch viele mehr...

trotzdem vielen dank für eure hilfe!!