playsound

playsound

[Sylvain]

Can you give me a piece of code which explain me how to use the
Playsound API please ?

Thx, Bye !

Re: playsound

[Adrien Plisson]

Sylvain wrote:

> Can you give me a piece of code which explain me how to use the
> Playsound API please ?

are you talking about the PlaySound function in the Microsoft Windows 
API ?

<http://msdn.microsoft.com/library/en-us/multimed/htm/_win32_playsound.asp>

the use of this function is pretty straightforward and described in 
the MSDN. using it from Ada using Win32Ada (i take all those 
informations from your previous post...) is just a matter of 
Ada.Interfaces.C.

heu... well, i see that PlaySound is not in the Win32Ada 
documentation, you may have to import the one in winmm.lib.

> Thx, Bye !

-- 
rien

Re: playsound

[Bernd Specht]

sisi.ard@laposte.net (Sylvain) wrote in news:e465bcf0.0506240558.5f62f511
@posting.google.com:

> Can you give me a piece of code which explain me how to use the
> Playsound API please ?
> 
> Thx, Bye !
> 

First do a with for the bindings:

with Win32.Mmsystem;


Then call PlaySound like this:

...
    xBool  : Win32.BOOL;
    SoundFName : String := "ringin.wav" & Ascii.Nul;
    function AdrToLpcstr is new Unchecked_Conversion (System.Address, 
Win32.LPCSTR);
  begin
      Conn := Get_Router_State;
      
        if Conn = Is_Connected
        then
          xBool := Win32.Mmsystem.PlaySound (AdrToLpcstr 
(SoundFName'Address), System.Null_Address, Win32.Mmsystem.SND_FILENAME);
        end if;
...