Necesito ayuda para cargar varios sonidos en memoria

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

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

[[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