Differences

This shows you the differences between two versions of the page.

--- fmodaudio [2019/08/13 08:31] – [Add a FadePoint] admin
+++ fmodaudio [2020/01/09 14:20] – [Remarks] admin
@@ Line 189: / Line 189: @@
 procedure TForm1.FormShow(Sender: TObject);
-var LSound : PGorillaFMODSound;
+var LSound : IGorillaFMODSound;
 begin
   {...}
   LSound := LFMOD.LoadSoundFromFile('drumloop.wav');
-  LSound^.Mode := FMOD_LOOP_NORMAL;
+  LSound.Mode := FMOD_LOOP_NORMAL;
 end;
 </file>
@@ Line 209: / Line 209: @@
 Next step: [[assetsmanager|AssetsManager]]
+===== Remarks =====
+It is not allowed to release FMOD interfaces when the TGorillaFMODAudioManager component, especially the IGorillaFMODSystem interface inside of it, is already destroyed.
+In this case you will receive an AccessViolation, because FMOD can not destroy the internal handle anymore.
+**WRONG:**
+<file pascal>
+var LFMOD : TGorillaFMODAudioManager;
+    LSound : IGorillaFMODSound;
+[...]
+LFMOD := TGorillaFMODAudioManager.Create(nil);
+try
+  LSound := LFMOD.LoadSoundFromFile(Common_MediaPathRaw('drumloop.wav'));
+finally
+  FreeAndNil(LFMOD);
+  LSound := nil; // <<< WRONG!
+end;
+</file>
+**CORRECT:**
+<file pascal>
+var LFMOD : TGorillaFMODAudioManager;
+    LSound : IGorillaFMODSound;
+[...]
+LFMOD := TGorillaFMODAudioManager.Create(nil);
+try
+  LSound := LFMOD.LoadSoundFromFile(Common_MediaPathRaw('drumloop.wav'));
+finally
+  LSound := nil; // !!! CORRECT!
+  FreeAndNil(LFMOD);
+end;
+</file>
+Next step: [[assetsmanager|Assets Manager]]