Problem mit FMODs FMUSIC_StopSong()

[Benjin]

Hallo, bei mir wll FMUSIC_StopSong() einfach nicht funktionieren. Es gibt keine Fehlermeldung oder sonstiges, es passiert beim klicken auf den entsprechenden Button einfach nichts.
Ich benutze fsb Dateien, die jeweils eine mp3 Datei enthalten und auch ohne Probleme abgespielt werden.

Ich habe das Problem bereits im FMOD Forum gepostet, deswegen hier einfach ein repost des Problems und des Sourcecodes:

Zitat:

Well, here are excerpts of my code, which means all parts which include FMOD commands:


(Error Warnings are in german, sorry. But they wont matter)

I am intializing the following FMOD component:

Delphi-Quellcode:

var

FMODPlayer: PFMusicModule;

On FormCreate I do

Delphi-Quellcode:

  FMOD_Load(nil);
  InitAudio;

InitAudio looks like this:

Delphi-Quellcode:

procedure TFrmMain.InitAudio;
begin
if FMOD_VERSION > FSOUND_GetVersion then
    begin
      Showmessage('Error: falsche Version');
      Exit;
    end;

//Sets up the soundsystem output mode.
  if not FSOUND_SetOutput(FSOUND_OUTPUT_WINMM) then
    begin
      Showmessage('Error: Fehler bei FSOUND_SetOutput');
      Exit;
    end;

  if not FSOUND_SetDriver(0) then
    begin
      Showmessage('Error: Fehler bei FSOUND_SetDriver');
      Exit;
    end;

  if not FSOUND_Init(24000, 4, 0) then
    begin
      Showmessage('Error! Initializing ' + FMOD_ErrorString(FSOUND_GetError()));
      Exit;
    end;
end;

then I load different songs depending on what entries are selected in a treenavview via:

Delphi-Quellcode:

case AIndexNav of

  2:  begin
//      ShowMessage('Audio zugewiesen');

      FMODPlayer := FMusic_LoadSong('media\atomic.fsb');
      if FMODPlayer = nil then
        begin
         MessageDlg('failed to load music', mtError, [mbOk], 0 );
        exit;
        end;
      end;

then the Song is played and stopped by the following procedures

Delphi-Quellcode:

procedure TFrmMain.SpdBtnAudioPlayClick(Sender: TObject);
begin

FMusic_PlaySong(FMODPlayer);


SpdBtnAudioPlay.Enabled := false;
SpdBtnAudioStop.Enabled := true;

Audioplaying := True;

end;

procedure TFrmMain.SpdBtnAudioStopClick(Sender: TObject);
begin
SpdBtnAudioPlay.Enabled := true;
SpdBtnAudioStop.Enabled := false;
AudioPlaying := False;
FMUSIC_StopSong(FMODPlayer);
SetAudioFile;

end;

Only stopping won't work.


I would be really thankful for any comments or help!

Weiß da jemand Rat?

[Benjin]

Weiß niemand Rat?

Ich will ungerne wieder den Mediaplayer verwenden.

[mimi]

ich kannst nicht mit sicherheit sagen.
Ich habe deine qullcode mit meinen vergliechen und dabei ist mir folgendes aufgefallen:
1.
FMODPlayer := FMusic_LoadSong('media\atomic.fsb'); das solltes so heißen:

Delphi-Quellcode:

var
  exedir:String;
....
  exeDir:=ExtractFileDir(ParamStr(0));
  FMODPlayer := FMusic_LoadSong(PChar(exeDir + 'media\atomic.fsb'));

er erwartet einen Ansistring....

2.

Delphi-Quellcode:

if FMOdPlayer <> NIL then
  FMusic_PlaySong(FMODPlayer)
else
  ShowMessage('Fehler');

macht das mal um zu sehen ob überhaupt etwas da ist was gestoppt werden kann...

ich habe jetzt eine Klasse geschrieben mit der man sehr einfach auf Audio dateien zugreifen kann sie unterstützt jeden audiotyp den FMOD abspielen kann. sie kann aber nur eine Music im hintergrund spielen und ein Sound gereusch abspielen.....
und sie hat noch probleme mit FMusic_ bei der länge da bekomme ich immer nur 0, aber ich weiß jetzt das es an FMOD liegt...... wenn du willst kann ich sie dir mal senden...

[Benjin]

Ich werds mal entpsrechend ändern.
Allerdings habe ich die empfohlenen Checks schon implementiert.

Außerdem wird die LoadSong und Playsong Funktion durch einen PlayButton auf meiner Form aufgerufen, und dieser funktioniert einwandfrei, d.h. der gewünschte Song wird wiedergegeben.

[Benjin]

Also hab mal das Parsen zu ANSIStrings implemeniert, funktioniert leider immer noch nicht. D.h. PlaySong funktioniert, Stopsong aber nicht.

[mimi]

lade mal deinen gesammten qullcode code hoch dann kann ich es mir mal ansehen....

[Benjin]

Der gezeigte Quellcode ist wirklich alles Relevante.

Wenn du dir wirklich 1000 + Zeilen Code anschauen willst, dann schick ichs dir mal.
Das hier zu posten würde wohl den Rahmen sprengen.

[Benjin]

Also inzwischen habe ich noch einige andere Funktionen von FMUSIC ausprobiert.

SetPaused(), StopallSongs funktionieren ebenfalls nicht.

[mimi]

Kann sie auch nicht weil die deine funktion hat probleme diese Datei zu laden deshalbt ist die variable NIL.
sende mir mal dein projekt([e-mail]) evtl. kann ich dir dann weiter helfen

[Benjin]

Also ich hab jetzt die Lösung, doof auch dass das in keiner Referenz erwähnt wird.

Es gab wohl die schwierigkeiten, weil ich MP3 Dateien als FSB Soundbanks gespeichert habe.
Wie erwähnt lief dort nur die PlaySong() Funktion.

Ich spiele die jetzt als normale Streams ab, nun funktionieren alle Funktionen.

Finde ich ein wenig unstringent.

Entweder wird ein Fomrat unterstützt oder eben nicht, aber so Zwischending ist ärgerlich, v.a. wel es Zeit in Anspruch nimmt das rauszufinden, falls das nicht deutlich in der Ref. geklärt wird.