¿Cómo reproducir un archivo wav en Delphi?

Question

¿Qué funciones están disponibles dentro de Delphi para reproducir un archivo de sonido?

Answer 1

Aquí es la manera más rápida:

uses MMSystem; 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
    sndPlaySound('C:\Windows\Media\Tada.wav', 
    SND_NODEFAULT Or SND_ASYNC Or SND_LOOP); 
end; 

procedure TForm1.Button2Click(Sender: TObject); 
begin 
    sndPlaySound(nil, 0); // Stops the sound 
end; 

Answer 2

Un tutorial completo está disponible en: http://sheepdogguides.com/dt3f.htm

Es un poco viejo. Pero debería funcionar

Answer 3

Con la sndPlaySound función de la API de Win32 (Unidad MMSystem):

sndPlaySound ('C: \ Windows \ Media \ Tada.wav', SND_ASYNC);

Answer 4

Esta página explica bastante bien cómo utilizar el sndPlaySound función y la forma de integrar el archivo WAV como recurso: http://www.latiumsoftware.com/en/delphi/00024.php

Answer 5

simple:

procedure PlaySoundFile(FileName: string); 
begin 
if FileExists(FileName) 
then PlaySound(pchar(FileName), 0, SND_ASYNC or SND_FILENAME); 

{ Flags are: 
    SND_SYNC =0 = Start playing, and wait for the sound to finish 
    SND_ASYNC =1 = Start playing, and don't wait to return 
    SND_LOOP =8 = Keep looping the sound until another sound is played } 
end; 

Las personas también están citando sndPlaySound, pero esto es solo por compatibilidad con versiones anteriores. Entonces, ¡no lo use!

Usted puede también estar interesado en esto:

procedure PlayWinSound(SystemSoundName: string); 
begin 
Winapi.MMSystem.PlaySound(PChar(SystemSoundName), 0, SND_ASYNC); 
end; 

{ All available constants are defined in the registry under the path HKEY_CURRENT_USER -> AppEvents -> Schemes -> Apps -> .Default. 
    System sounds: 
    SystemEXCLAMATION  - Note) 
    SystemHAND    - Critical Stop) 
    SystemQUESTION   - Question) 
    SystemSTART    - Windows-Start) 
    SystemEXIT    - Windows-Shutdown) 
    SystemASTERIX   - Star) 
    RESTOREUP    - Enlarge) 
    RESTOREDOWN    - Shrink) 
    MENUCOMMAND    - Menu) 
    MENUPOPUP    - Pop-Up) 
    MAXIMIZE     - Maximize) 
    MINIMIZE     - Minimize) 
    MAILBEEP     - New Mail) 
    OPEN      - Open Application) 
    CLOSE     - Close Application) 
    APPGPFAULT    - Program Error) 
    Asterisk     - played when a popup alert is displayed, like a warning message. 
    Calendar Reminder  - played when a Calendar event is taking place. 
    Critical Battery Alarm - played when your battery reaches its critical level. 
    Critical Stop   - played when a fatal error occurs. 
    Default Beep    - played for multiple reasons, depending on what you do. For example, it will play if you try to select a parent window before closing the active one. 
    Desktop Mail Notif  - played when you receive a message in your desktop email client. 
    Device Connect   - played when you connect a device to your computer. For example, when you insert a memory stick. 
    Device Disconnect  - played when you disconnect a device from your computer. 
    Device Connect Failed - played when something happened with the device that you were trying to connect. 
    Exclamation    - played when you try to do something that is not supported by Windows. 
    Instant Message Notif - played when you receive an instant message. 
    Low Battery Alarm  - played when the battery is running low. 
    Message Nudge   - played when you receive a BUZZ in an instant message. 
    New Fax Notification  - played when you receive a fax via your fax-modem. 
    New Mail Notification - played when you receive an email message. 
    New Text Message Notif - played when you receive a text message. 
    NFP Completion   - played when the transfer of data via NFC between your Windows device and another device is completed. 
    NFP Connection   - played when your Windows device is connecting to another device via NFC. 
    Notification    - played when a default notification from a program or app is displayed. 
    System Notification  - played when a system notification is displayed. }