OpenEuphoria

RE: Looping A Wav

• Posted by Derek Parnell <ddparnell at bigpond.com> May 23, 2001
• 404 views

Hi,
try these options...
--------------------
procedure PlayWAV(sequence nameofWAVfile)

   atom result, cstring
   
   if length(nameofWAVfile) != 0 then
     -- Start playing a WAV file continuously ---
     cstring = acquire_mem(0, nameofWAVfile )
     result = w32Func( xPlaySound, {cstring, 0, #20009})
     release_mem(cstring)
   else
     -- To stop a sound that is playing.
     result = w32Func( xPlaySound, {0, 0, 0} )
   end if
end procedure
-----------

cheers,
Derek Parnell
Senior Design Engineer
Global Technology Australasia Ltd
dparnell at glotec.com.au

---------------------



> -----Original Message-----
> From: president at insight-concepts.com
> [mailto:president at insight-concepts.com]
> Sent: Wednesday, 23 May 2001 1:28 PM
> To: EUforum
> Subject: Looping A Wav
> 
> 
> 
> 
> Hi all,
> 
> Is there an easy solution to looping a wav file using the playSound 
> function in win32lib?
> 
> Long Live Euphoria,
> Chris
> 
> 
> 
>