function getPlayerDuration:integer;  

   ( )    .




function openPlayer(resource:string; mimetype:string):boolean;  

    .        .   'false',      .  'mimetype'    : 

   wave: audio/x-wav  
 
   au: audio/basic  
 
   MP3: audio/mpeg  
 
   MIDI: audio/midi  
 
   

       . 

:        ,   MIDP-2.0.           MIDP-1.0. 

  begin 
    if not openPlayer('/explosion.mid', 'audio/midi') then halt;    
    if not setPlayerCount(-1) then halt; 
    if not startPlayer then halt; 
    delay(5000);    
  end.  





function setPlayerCount(loopCount:integer):boolean;  

    . 'loopCount' -      .      openPlayer    startPlayer.  'loopCount'   -1,    . 






function startPlayer:boolean;  

  ,      openPlayer.  'false',      . 

  begin 
    if not openPlayer('/explosion.mid', 'audio/midi') then  halt;    
    if not setPlayerCount(-1) then halt; 
    if not startPlayer then halt; 
    delay(5000);    
  end.  




procedure stopPlayer;  

   .