Necesito ayuda para cargar varios sonidos en memoria

[Loreiev]

Hola, tengo el siguiente problema: estoy haciendo un ejercicio para la facultad que consiste en un bingo, el cual tira bolas cuando se apreta un botón. La idea es que cuando tira una bola se reproduzca un sonido con el numero que salio. El tema es que,como los sonidos se deben reproducir en intervalos de tiempos cortos no se escuchan todos los números sólo alguno cada tanto. Por lo que estube viendo tendría que cargarlos a la memoria pero no se bien como hacerlo y son 90 sonidos que debo poder localizar por su nombre.

El código hasta ahora sería:

procedure sonido(num:integer);
var
Path:string;
begin
path:='C:\Users\Paulau\Desktop\DelphiProgramas\Lotería Familiar\'+inttostr(num)+'.wav';
sndPlaySound(pchar(path),SND_NODEFAULT or SND_Sync);
end;


y

procedure TFrmInicial.BotonPlayClick(Sender: TObject);
begin
if columna < 9 then
begin
LbComenzar.Caption:='';
if int(bolassacadas/(columna+1)) >8 then
begin
columna:=columna+1;
fila:=0;
end;
auxiliar:=numero;
grillaNumeros.Cells[columna,fila]:=inttostr(auxiliar);
NumeroBola.Caption:=inttostr(auxiliar);
sonido(auxiliar);
fila:=fila + 1;
end;
end;

Alguien me puede guiar? por favor traten de hacerlo con vastante detalle porque entoy aprendiendo y tengo una base bastante floja

Desde ya muchas gracias

[[seoane]]

Hola, bienvenida al Club

Para empezar, utiliza las etiquetas [delphi][/delphi] cuando escribas código en le foro.

Mira que bien queda:

Código Delphi [-]
procedure sonido(num:integer);
var
  Path:string;
begin
  path:='C:\Users\Paulau\Desktop\DelphiProgramas\Lotería Familiar\'+inttostr(num)+'.wav';
  sndPlaySound(pchar(path),SND_NODEFAULT or SND_Sync);
end;

Código Delphi [-]
procedure TFrmInicial.BotonPlayClick(Sender: TObject);
begin
 if columna < 9 then
 begin
 LbComenzar.Caption:='';
  if int(bolassacadas/(columna+1)) >8 then
  begin
   columna:=columna+1;
   fila:=0;
  end;
 auxiliar:=numero;
 grillaNumeros.Cells[columna,fila]:=inttostr(auxiliar);
 NumeroBola.Caption:=inttostr(auxiliar);
 sonido(auxiliar);
 fila:=fila + 1;
 end;
end;

Y volviendo a tu pregunta ¿cual es el problema exactamente? ¿Un sonido empieza a reproducirse antes de que termine el anterior?

[Loreiev]

Hola, gracias por las recomendaciones, no sabía como hacerlo.
Sobre mi problema el tema es que yo hago click en el botón que lanza el número y dice el número que salió, pero luego lo vuelvo a precionar y entonces no sale el sonido, unos cuantos números después vuelve a salir el sonido de ese número. Debería reproducir el sonido de cada número cuando este sale y solo reproduce algunos de los sonidos.

Se te ocurre cual puede ser el problema?

[[Caral]]

Hola

Código Delphi [-]
procedure TForm1.Button7Click(Sender: TObject);
var
  s: string;
begin
s := 'C:\Windows\Media\'+Edit1.text+'.wav';
sndPlaySound(PCHar(s),
  SND_NODEFAULT Or SND_ASYNC Or SND_LOOP);
  Showmessage('El numero que salio es::::::'+Edit1.text);
  sndPlaySound(nil, 0); // Detiene el sonido
end;

Saludos
PD: Gracias a enecumene.

[[seoane]]

Empezado por Loreiev

Debería reproducir el sonido de cada número cuando este sale y solo reproduce algunos de los sonidos.

Y no sera que los sonidos que no se reproducen es porque el archivo esta dañado, o no estas usando el nombre correcto. Antes de nada probaria a reproducir cada unos de los sonidos, y luego veria si las rutas que estas poniendo estan bien. (Por ejemplo que el sonido se llame "01.wav" y estes usamdo "1.wav".

Y si todo lo anterior falla, prueba con esto:
http://www.clubdelphi.com/foros/showthread.php?t=37401

[Loreiev]

Empezado por Caral

Hola
Código Delphi [-]procedure TForm1.Button7Click(Sender: TObject); var s: string; begin s := 'C:\Windows\Media\'+Edit1.text+'.wav'; sndPlaySound(PCHar(s), SND_NODEFAULT Or SND_ASYNC Or SND_LOOP); Showmessage('El numero que salio es::::::'+Edit1.text); sndPlaySound(nil, 0); // Detiene el sonido end;

Saludos
PD: Gracias a enecumene.

Probé el código que me diste pero no funcionó, no llega a escucharse el sonido, ademásyo ya tengo dentro del programa un lugar donde debe aparecer escrito el número y no quiero que aparezca ese mensaje, cual puede ser el problema?

[[Caral]]

Hola
Es curioso, as revisado los parlantes??.
Revisaste la solución de Seoane??.
Saludos

[Loreiev]

Hola, disculpen , no había leido la respuesta de simeone . Pareciera que sí, que el problema son los archivos de sonido, los probé en un reproductor y algunos andan y otros no, lo extraño es que yo los saqué de un bingo que ya estaba hecho en internet y cuando hago funcionar el bingo original funcionan todos los audios. Quizás estén encriptados o algo. Voy a probar rehacer los archivos de audio y ver si funciona todo bien.


Muchas gracias por las respuestas y disculpen por haberlos molestado y no darme cuenta sola.

Ah, Felicitaciones por el foro, ya me venía ayudando un montón sin siquiera tener que preguntar.