Problema reproductor mp3
 

Hola,

Tengo un pequeño problema con un reproductor que estoy haciendo, cuando quiero reproducir una canción, aparece este mensaje:

"No se puede determinar el tipo de dispositivo por la extensión del archivo".

La verdad no se cual es el problema.


Aqui os adjunto el codigo que tengo para que cuando pulse el button9 me ejecute el opendialog y despues me reproduzca, pero al pulsar un archivo de musica me aparece el mensaje de error anterior:

procedure TForm1.ToolButton9Click(Sender: TObject);
begin
opendialog1.Execute;
mediaplayer1.filename:=opendialog1.filename;
mediaplayer1.open;
mediaplayer1.play;
end;

Saludos,

Hola pozillo, una pregunta, tienes la propiedad AutoOpen del MediaPlayer = True???

Si es así, cambiala a False, yo creo que ese es el problema.

Otra cosa

Utiliza las etiquetas de delphi para el código, se ve mucho mejor

Código Delphi [-]
procedure TForm1.ToolButton9Click(Sender: TObject);
begin
   opendialog1.Execute;
   mediaplayer1.filename:=opendialog1.filename;   
   mediaplayer1.open;
   mediaplayer1.play;
end;

Salud OS

Perdona lo del codigo, es que soy nuevo, para la proxima ya lo sé.



Pues lo de autoOpen lo tengo a false, no se que puede ser.

SAludos,

Pues si que está raro, he copiado tu código y funciona perfectamente, abri un archivo mp3 y un wma sin problemas.

Salud OS

Es raro ya que me bajé un reproductor de mp3 hecho en delphi y me aparecia el mismo error al intentar reproducir el archivo, podria ser alguna cosa que no tuviese nada que ver con el codigo? O los uses? nose..

Gracias y saludos,

Pues esto es lo que tengo en el código

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, MPlayer;

type
  TForm1 = class(TForm)
    MediaPlayer1: TMediaPlayer;
    OpenDialog1: TOpenDialog;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
  opendialog1.Execute;
  mediaplayer1.filename:=opendialog1.filename;
  mediaplayer1.open;
  mediaplayer1.play;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  mediaplayer1.Stop;
end;

end.

A ver si le ves algo diferente a lo tuyo.

Salud OS

Todo igual y nada..

Pues no se, tal vez tienes algún problema de drivers de sonido, no veo otra cosa que pueda estar mal.

Espero lo resuelvas.

Salud OS

Sigue el problema? no me fije en la fecha del post, pero seguro q no es un problema del archivo en si? Intenta arbrir el archivo con el winamp o con el windows media player, si ellos tambien tienen problemas para ejecutarlo ya sabes porq es... el archivo no funca... y sino... di si funcionan otros reproductores... en el caso de no hacerlo... a reinstalar drivers de la placa de sonido... creo...

{Saludos}