Changeset 665 for trunk/Packages/uos/uos.pas

Timestamp:

Jul 9, 2025, 4:45:12 PM (13 hours ago)

Author:

chronos

Message:

• Fixed: Playing music on Windows.

Location:

trunk/Packages/uos

Files:

• . (modified) (1 prop)
• uos.pas (modified) (8 diffs)

trunk/Packages/uos/uos.pas

@@ -575 +575 @@
   {$else}
   TProc = procedure  of object;
+  TPlayerProc = procedure (PlayerIndex: cint32)  of object;
   {$endif}
 
@@ -762 +763 @@
       procedure DoTerminatePlayer;
       procedure DoEndProc;
+      procedure EndProcExecute;
 
   {$IF DEFINED (mse)}
@@ -795 +797 @@
 
       // Procedure of object to execute at end of thread
-      EndProc: TProc;
+      EndProc: TPlayerProc;
 
       // Procedure to execute at end of thread (not of object)
@@ -840 +842 @@
       // Stop playing and free thread
       procedure Stop ();
-
-      // Stop playing and free thread
-      procedure StopAndWait ();
 
       // Pause playing
@@ -2471 +2470 @@
       Status := 0;
     end;
-end;
-
-procedure Tuos_Player.StopAndWait();
-begin
-  Stop;
-  if Assigned(thethread) then thethread.WaitFor;
 end;
 
@@ -9722 +9715 @@
  {$IF not DEFINED (Library)}
   if EndProc <> nil then
-    thethread.{$IF DEFINED (usequeue)}Queue{$else}Synchronize{$endif} (thethread,EndProc);
+    thethread.{$IF DEFINED (usequeue)}Queue{$else}Synchronize{$endif} (thethread, @EndProcExecute);
  
   {$elseif not DEFINED (java)}
@@ -9734 +9727 @@
 end;
 
+procedure Tuos_Player.EndProcExecute;
+begin
+  EndProc(Index);
+end;
+
 procedure Tuos_Player.DoTerminateNoFreePlayer;
 var 
@@ -9791 +9789 @@
   if EndProc <> nil then
   {$IF FPC_FULLVERSION>=20701}
-    thethread.{$IF DEFINED (usequeue)}Queue{$else}Synchronize{$endif} (thethread,EndProc);
+    thethread.{$IF DEFINED (usequeue)}Queue{$else}Synchronize{$endif} (thethread, @EndProcExecute);
   {$else}
   thethread.{$IF DEFINED (usequeue)}Queue{$else}Synchronize{$endif} (thethread,EndProc);