Differences

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

--- fmodaudio [2019/08/13 08:20] – [Units] admin
+++ fmodaudio [2020/01/09 14:20] – [Remarks] admin
@@ Line 64: / Line 64: @@
 </code>
+__**Remarks:**__ The higher level structures are based on a interface-class architecture, so you need to take care of reference counting. In your application you should only use the interfaces!
 ===== Examples =====
@@ Line 78: / Line 79: @@
 procedure TForm1.FormShow(Sender: TObject);
 var LPath : String;
-    LSound : PGorillaFMODSound;
+    LSound : IGorillaFMODSound;
 begin
   FFMOD := TGorillaFMODAudioManager.Create(Self);
@@ Line 101: / Line 102: @@
 uses
   Gorilla.Audio.FMOD,
-  Gorilla.Audio.FMOD.Sound,
+  Gorilla.Audio.FMOD.Intf.Sound,
-  Gorilla.Audio.FMOD.Channel;
+  Gorilla.Audio.FMOD.Intf.Channel;
 procedure TForm1.Timer1Timer(Sender: TObject);
-var LSound : PGorillaFMODSound;
+var LSound : IGorillaFMODSound;
     LMS, LLenMS : UInt32;
 begin
   {...}
-  LMS := FChannel^.Position[FMOD_TIMEUNIT_MS];
+  LMS := FChannel.Position[FMOD_TIMEUNIT_MS];
-  LSound := PGorillaFMODSound(LChannel^.GetCurrentSound());
+  LSound := LChannel.GetCurrentSound() as IGorillaFMODSound;
   if Assigned(LSound) then
   begin
-    LLenMS := LSound^.Length[FMOD_TIMEUNIT_MS];
+    LLenMS := LSound.Length[FMOD_TIMEUNIT_MS];
     Self.Caption := Format('sound #%s %d / %d', [IntToHex(NativeInt(LSound), 16), LMS, LLenMS]);
   end;
@@ Line 129: / Line 130: @@
 procedure TForm1.FormShow(Sender: TObject);
-var LSound : PGorillaFMODSound;
+var LSound : IGorillaFMODSound;
-    LChannel : PGorillaFMODChannel;
+    LChannel : IGorillaFMODChannel;
     LClock, LPClock : UInt64;
 begin
@@ Line 137: / Line 138: @@
   if Assigned(LChannel) then
   begin
-    LChannel^.GetDSPClock(LClock, LPClock);
+    LChannel.GetDSPClock(LClock, LPClock);
-    LChannel^.AddFadePoint(LPClock, 0.0);
+    LChannel.AddFadePoint(LPClock, 0.0);
-    LChannel^.AddFadePoint(LPClock + 48000, 1.0);
+    LChannel.AddFadePoint(LPClock + 48000, 1.0);
   end;
 end;
@@ Line 188: / 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 208: / 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]]