OpenEuphoria

RE: Looping A Wav

• Posted by president at insight-concepts.com May 23, 2001
• 407 views

Thanks again Derek your solution helped.
By the way, do you ever sleep? :)


Chris
Long Live Euphoria.......

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



Derek Parnell wrote:
> 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
> > 
> > 
> > 
> > 
<snip>