Ver Mensaje Individual
  #2  
Antiguo 13-09-2013
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 38
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola steelha.

Lamentablemente no vas a lograr la pausa que deseas con la función sndPlaySound ya que no posee esa funcionalidad.

Sin embargo podes hacerlo sin problemas con la función mciSendString, un ejemplo:
Código Delphi [-]
...
uses MMSystem;

procedure PlayAudioWithPause(aFileName: TFileName; Pause: Integer);
begin
  mciSendString(PChar('open ' + aFileName + ' alias MY_SOUND'),nil,0,0);
  mciSendString(PChar('play MY_SOUND'),nil,0,0); // reproducir
  Application.ProcessMessages;
  Sleep(Pause);
  mciSendString(PChar('pause MY_SOUND'),nil,0,0); // pausa
  Sleep(Pause);
  mciSendString(PChar('resume MY_SOUND'),nil,0,0); // continuar
  { mciSendString(PChar('stop MY_SOUND'),nil,0,0); // (detiene la reproduccion) }
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  PlayAudioWithPause('C:\Users\Un_usuario\Music\Musica.wav', 5000); // 5000 = 5 segs.
end;

Pero me confunde el título con el comentario del código, ¿ El problema era con el audio no ?

Saludos
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita