Ver Mensaje Individual
  #1  
Antiguo 01-04-2014
UsuarioBaja123 UsuarioBaja123 is offline
Miembro
 
Registrado: abr 2014
Posts: 17
Reputación: 0
UsuarioBaja123 Va por buen camino
Exclamation Ayuda con error en código

He estado haciendo una aplicación recientemente y me he cruzado con el problema de que nunca había utilizado el componente TMediaPlayer. Con mis conocimientos intente hacer lo que pude y me guié de unos códigos en internet. El problema está que en cuando uso un OpenDialogue para abrir un archivo MP3 el componente TMediaPlayer me suelta "No se puede determinar el tipo del dispositivo por la extensión del archivo". Pero en cambio si lo pongo manualmente en las propiedades lo reproduce perfectamente.

He probado con estos dos códigos:
Código:
var
  openmp3Dialog : TOpenDialog;    // OpenMP3File Variable
  mp3File : String;    // Create a variable for MP3 File
begin
openmp3Dialog := TOpenDialog.Create(Self);
  openmp3Dialog.Filter := 'MP3 Audio Files (*.mp3)|*.mp3';
  if openmp3Dialog.Execute() then
    openmp3Dialog.FileName := MP3Player.FileName;
    if (FileExists(openmp3Dialog.FileName)) and
       (not DirectoryExists(openmp3Dialog.FileName)) then
      MP3Player.Wait := true;
      MP3Player.Open;
      MP3Player.Play;
      openmp3Dialog.Free;
 end;
y con este:

Código:
var
  openmp3Dialog : TOpenDialog;    // OpenMP3File Variable
  mp3File : String;    // Create a variable for MP3 File
begin
openmp3Dialog := TOpenDialog.Create(Self);
openmp3Dialog.Filter := 'MP3 Audio Files (*.mp3)|*.mp3';
openDialog.Execute
openmp3Dialog.FileName := MP3Player.FileName;
openDialog.Free;
MP3Player.Open;
MP3Player.Play;
end;
El segundo lo desarrollé yo mismo pero al ver tutoriales diferentes en internet decidí cambiarlo por el que había en Internet.

A parte de eso tengo más cosas ahí metidas como escribir textos en TEdit mostrar unos mensajes y otras cosas pero en el final donde no tienen relación con el código inicial.

Gracias de antemano.
Responder Con Cita