Programación General > Delphi

 Uso De Sonido

<< < (2/4) > >>

Enko:

--- Citar ---DeviceType(para archivos wav)

--- Fin de la cita ---

Yo hace mucho probe asi y no me funcionaba hasta que puse la opcion "dtAutoSelect"

althenna:

--- Citar ---hum eso lo meto en el codigo o es una propiedad *pregunta estupida yo se*
--- Fin de la cita ---

editado

ya cai .. lo siento es que soy de efecto retrasado...

pero volviendo....hum no hay otra manera de introducir sonido a un programa... y si la hay me podrian dar los pasos... aun no domino el delphi y no tengo a quien preguntar

althenna:
primero que nada disculpen el doble post

bueno ya pude arreglar aquel inconveniente... (gracias a ti enzo por que estaba en otro post tuyo)

pero ahora quiero usar el mismo media player para  poder ..

me explico

quiero usar el mismo Mplayer para escuchar diferentes sonidos, es decir, si al principio tenia a.wav despues mediante una bandera (si esta en true), cambie el sonido a B.wav y asi sucesivamente...

lo intente usando

//mediaplayer1.filename:= 'C: ..b.wav'

y

//mediaplayer.next

pero seguia con el mismo archivo a.wav

debo cambiar mis archivos wav por otra extencion para que pueda hacer lo que quiero??


muchas graxias de antemano  :(  lamento ser tal molestia

Enko:
En la propiedad FileName indica un wav valido.
En la propiedad DeviceType indica el autodetect
Coloca un TOpenDialog en tu aplicacion.

Lo que tienes que hacer es... mira el ejemplo, es valido para cualquier wav ya que usa el opendialog:
Trata de abrir un archivo de sonido que indica el OpenDialog, si es valido y no hay error lo hace sonar, si har error, abree un archivo por defecto que tendras que indicar. Puede ser el mismo que usas en FileName con la ruta completa.

--- Código: Text --- procedure TForm1.Button1Click(Sender: TObject);begin  MediaPlayer1.Stop;  if OpenDialog1.Execute then  try    MediaPlayer1.FileName := OpenDialog1.FileName;    MediaPlayer1.Open;  except     MediaPlayer1.FileName := 'D:&#092;Documents and Settings&#092;etc.....';     MediaPlayer1.Open;  end;    MediaPlayer1.Play;end;    :comp:


--- Citar ---muchas graxias de antemano sad.gif lamento ser tal molestia

--- Fin de la cita ---
Ninguna molestia :hola:

althenna:
^^ eso me sirvio... pero en si no es lo que busco.... ya que quiero que sea automatico el cambio de archivo wav...  la propiedad "mediaplayer.next " diganme como puedo usarla para que funcione como deberia... ya que creo que este seria el que me  seviria :hola:

gracias gran enko  :smartass:

Navegación

[0] Índice de Mensajes

[#] Página Siguiente

[*] Página Anterior