Cita:
Empezado por pozillo
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
public
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