Reproducor sonidos en delphi

[Homero1225]

quiero reproducir un sonido en delphi, lo que busco es poder hacer que una tecla reproduzca un sonido, asi mismo, quiero que el sonido este como loop, pero asignarle un tiempo de reproduccion, osea que al presionar las tecla correspondiente, se reporduzca el sonido cada determinado tiempo, y que pueda guardar el programa el loop que se reproduce como wav.

[ecfisa]

Hola Homero1225.

En lo posible trata de poner los mensajes en el foro adecuado, "Reproducir sonidos en delphi" no tiene que ver con el foro "Gráficos" . Si no tenes en claro en que foro debería ir tu mensaje ponelo en "Varios" de allí, si corresponde, algún moderador lo moverá al foro adecuado.

Y por favor... relee nuestra guía de estilo.

Saludos y gracias por tu colaboración

[[nlsgarcia]]

Homero1225,

Revisa este ejemplo:

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, MMSystem;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    procedure SoundKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.SoundKeyPress(Sender: TObject; var Key: Char);
var
   SoundKey : string;
   i : Integer;

begin

  SoundKey := ExtractFilePath(Application.ExeName) + 'Windows Logon Sound.wav';

  for i := 1 to 3 do
  begin
     // API de Windows Multimedia Sounds en la Unidad MMSystem
     PlaySound(PAnsiChar(SoundKey), 0, SND_FILENAME or SND_ASYNC);
     Sleep(1000);
  end;

  MessageDlg('Key =' + IntToStr(Ord(Key)) + ' has been pressed', mtInformation, [mbOK], 0);

end;

end.

El Evento OnKeyPress del Control TEdit por medio del procedure TForm1.SoundKeyPress reproducira 3 veces seguidas un archivo .WAV con un intervalo de un segundo entre sonido y mostrara el código ASCII de la tecla presionada.

Espero sea útil

Nelson.