Ver Mensaje Individual
  #2  
Antiguo 01-12-2012
Avatar de nlsgarcia
[nlsgarcia] nlsgarcia is offline
Miembro Premium
 
Registrado: feb 2007
Ubicación: Caracas, Venezuela
Posts: 2.206
Reputación: 23
nlsgarcia Tiene un aura espectacularnlsgarcia Tiene un aura espectacular
bulc,

Cita:
Empezado por bulc
El proceso se ralentiza de modo que se oye el sonido de un aplauso antes de que aparezca la letra en una aplicación infantil de colocar letras
Verifica que el sonido se ejecute después de finalizado el proceso de: "Aparezca la letra en una aplicación infantil".

Cita:
Empezado por bulc
¿Hay algún modo mejor para los sonidos guardados como recursos?
Revisa estos links:
Cita:
1-Storing Resource (WAV, MP3, ...) into Delphi Executables:
http://delphi.about.com/od/objectpas..._resources.htm

2-Using Resource (WAV, MP3, ...) from Delphi Executables:
http://delphi.about.com/od/objectpas...esources_2.htm
Los links anteriores muestran varios métodos para manejar recursos en Delphi.

Revisa este código del Link-2
Código Delphi [-]
uses mmsystem;
 ...
 procedure TForm1.Button1Click(Sender: TObject) ;
 var
   hFind, hRes: THandle;
   Song: PChar;
 begin
  hFind := FindResource(HInstance, 'MailBeep', 'WAVE') ;
  if hFind <> 0 then begin
    hRes:=LoadResource(HInstance, hFind) ;
    if hRes <> 0 then begin
      Song:=LockResource(hRes) ;
      if Assigned(Song) then SndPlaySound(Song, snd_ASync or snd_Memory) ;
      UnlockResource(hRes) ;
    end;
    FreeResource(hFind) ;
  end;
 end;
El código anterior es otra forma de obtener un recurso de sonido Wave de un EXE en Delphi, prueba si el performance se adapta a tu requerimiento. Puedes cambiar SndPlaySound(Song, snd_ASync or snd_Memory) por PlaySound(Song,0,SND_MEMORY or SND_ASYNC), verifica cual función se adapta mejor a tu aplicación.

Cita:
Empezado por bulc
¿Se puede ejecutar un archivo de sonido en background a modo de respaldo durante la duración de la aplicación?
Revisa el siguiente código:
Código Delphi [-]
PlaySound('Sound',0, SND_RESOURCE or SND_ASYNC or SND_LOOP);
El código anterior sonara de forma continua hasta que se ejecute:
Código Delphi [-]
PlaySound(0,0, SND_PURGE);
Revisa esta información:
Cita:
Empezado por Win32 Developer's Rerefence:

SND_LOOP:
The sound plays repeatedly until PlaySound is called again with the pszSound parameter set to NULL. You must also specify the SND_ASYNC flag to indicate an asynchronous sound event.

SND_ASYNC:
The sound is played asynchronously and PlaySound returns immediately after beginning the sound. To terminate an asynchronously played waveform sound, call PlaySound with pszSound set to NULL.
Espero sea útil

Nelson.
Responder Con Cita