Encadenar sonidos????

[tarco35]

Saludos a todos... Como puedo reproducir dos sonidos (ficheros waw) de forma consecutiva, o sea, primero uno y cuando termine que reproduzca el otro. Lo he intentado con PlaySound pero el segundo es el unico que se oye...
Gracias por su tiempo y colaboracion...

[[seoane]]

No dices como lo has intentado con PlaySound, así que voy a suponer que utilizaste el parámetro SND_ASYNC, por eso solo se escucha el segundo sonido. Prueba usando el parámetro SND_SYNC, de esta forma la función PlaySound no termina hasta que el sonido se ha reproducido. Es decir:

Código Delphi [-]
  PlaySound('d:\1.wav',0,SND_FILENAME or SND_SYNC);
  PlaySound('d:\2.wav',0,SND_FILENAME or SND_SYNC);

[tarco35]

cierto es que el parametro usado es snd_async.. pero no puedo esperar a que snd_sync termine ya que esta funcion la tengo dentro de un cronometro que checa cosas y lanzaria esos sonidos

[[seoane]]

Pensándolo mejor podemos darle otra vuelta de tuerca al código. Estaría bien que el sonido se reproducirá de forma asíncrona al resto del programa, pero manteniendo el orden de reproducción. Así que vamos a utilizar un Thread que se ejecutara el paralelo con el resto de la aplicación, para ello vamos a definir una clase derivada de TThread a la que llamaremos TSound. Esta clase tendrá un método llamado Add que permitirá añadir archivos wav a la lista de reproducción. Por lo demás se comportara como un Thread normal, que podremos pausar y continuar. Vamos con un poco de código:

Código Delphi [-]
type
  TSound = class(TThread)
  private
    FList: TStringList;
    FMutex: THandle;
  protected
    procedure Execute; override;
  public
    constructor Create;
    destructor Destroy; override;
    procedure Add(Path: String);
  end;


uses mmsystem;

{ TSound }

procedure TSound.Add(Path: String);
begin
  WaitForSingleObject(FMutex, INFINITE);
  try
    FList.Add(Path);
  finally
    ReleaseMutex(FMutex);
  end;
end;

constructor TSound.Create;
begin
  FList:= TStringList.Create;
  FMutex:= CreateMutex(nil,FALSE,nil);
  FreeOnTerminate:= TRUE;
  inherited Create(FALSE);
end;

destructor TSound.Destroy;
begin
  FList.Free;
  CloseHandle(FMutex);
  inherited;
end;

procedure TSound.Execute;
var
  Path: String;
begin
  inherited;
  while not Terminated do
  begin
    WaitForSingleObject(FMutex, INFINITE);
    try
      if FList.Count > 0 then
      begin
        Path:= FList[0];
        FList.Delete(0);
      end else
        Path:= '';
    finally
      ReleaseMutex(FMutex);
    end;
    if Path <> '' then
      PlaySound(PChar(Path),0,SND_FILENAME or SND_SYNC)
    else
      Sleep(10);
  end;
end;

Para utilizarlo, tenemos que crearlo y añadirle archivos a la lista de reproducción. Algo así:

Código Delphi [-]
var
  Sound: TSound;

//Para crearlo
Sound:= TSound.Create;

//Para destruirlo
Sound.Terminate;

//Para añadir un sonido
Sound.Add('d:\1.wav');

Como ves este código es sensiblemente mas complejo que el que puse en el mensaje anterior, puedes usar uno u otro dependiendo de las necesidades de tu aplicación.

EDITO: Corregir un error con la propiedad FreeOnTerminate

[[seoane]]

Caramba, parece que te leo el pensamiento

[tarco35]

Parece que esto es lo que necesito.... lo pruebo y te confirmo... una cosa... todo el primer codigo descrito es para crear una unidad nueva del proyecto no?

[[seoane]]

Empezado por tarco35

Parece que esto es lo que necesito.... lo pruebo y te confirmo... una cosa... todo el primer codigo descrito es para crear una unidad nueva del proyecto no?

Puedes incluirlo en un unit nueva o dentro de la misma unit. Solo tienes que incluir cada cosa en su sitio, es decir, lo que esta debajo de la clausula type ponerlo debajo de la clausula type de tu unit, lo que esa en la clausula uses en la clausula uses y el resto debajo de la clausula implementation.

[mancurnino]

Alguien puede ayudarme cn sto?