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.