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,


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


¿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/objectpascalide/a/embed_resources.htm

2-Using Resource (WAV, MP3, ...) from Delphi Executables:
http://delphi.about.com/od/objectpascalide/a/embed_resources_2.htm

Los links anteriores muestran varios métodos para manejar recursos en Delphi.

Revisa este código del Link-2

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.


¿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:

PlaySound('Sound',0, SND_RESOURCE or SND_ASYNC or SND_LOOP);

El código anterior sonara de forma continua hasta que se ejecute:

PlaySound(0,0, SND_PURGE);

Revisa esta información:


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 (http://www.clubdelphi.com/foros/guiaestilo.php) (punto 8 (http://www.clubdelphi.com/foros/guiaestilo.php#preguntas)).

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:

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

...
mciSendString('stop media', nil, 0, Handle);
...


Saludos.

[bulc]

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