Resources con BRCC32.exe

[bulc]

He probado a compilar/asociar sonidos a un ejecutable y me ha ido bien pero 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. Lo que queda bastante chusco.
Utilizo la función recomendada PlaySound('Identificador', 0, SND_RESOURCES).
La lectura de ficheros de sonido normal, va más rápida. Quisiera preguntar.
1.-¿Hay algún modo mejor para los sonidos guardados como recursos?
2.-¿Se puede ejecutar un archivo de sonido en background a modo de respaldo durante la duración de la aplicación?
Gracias a todos.

[[nlsgarcia]]

bulc,

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".

Empezado por bulc

¿Hay algún modo mejor para los sonidos guardados como recursos?

Revisa estos links:

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.

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:

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.

[ecfisa]

Hola bulc.

Recuerda que no debes hacer más de una pregunta por hilo: Guía de estilo (punto 8).

En cuanto a tu primera consulta, es difícil de contestar sin saber que es lo que se está haciendo. Pero no creo que sea problema de la función PlaySound sino de la lógica de la aplicación.

En cuanto a la segunda, agrega a tu archivo de recursos una línea con el archivo de música que desees poner durante la espera (mp3 en el ejemplo).

Por ejemplo:

musica RCDATA Musica.mp3

Luego para ejecutar la música:

Código Delphi [-]
...
uses MMSystem;

procedure PlayMusic;
var
  FileName: string;
begin
  with TResourceStream.Create(HINSTANCE, 'musica', RT_RCDATA) do
  try
    FileName:= ExtractFilePath(Application.ExeName) + '@M@u@s@i@c@a.mp3';
    SaveToFile(FileName);
    mciSendString('close media', nil,0, 0);
    mciSendString(PChar('open "' + FileName + '" alias media'), nil, 0, 0);
    mciSendString('play media notify repeat', nil, 0, 0);
  finally
    DeleteFile(FileName);
    Free;
  end;
end;

Para parar la ejecución en cualquier momento:

Código Delphi [-]
...
 mciSendString('stop media', nil, 0, Handle);
...

Saludos.

[bulc]

Bueno, la respuesta no puede ser mejor. Casi exhaustiva. Gracias a todos.
Bulc