Durch ein Button Filename von TMediaPlayer verändern

[xBuefx]

Hi

Ich wollte gerne eine mp3 datei mit meinem MediaPlayer abspielen lassen. Programmiere seit 3 Jahren von der Schule aus mit Delphi und habe Version 3!

Bis jetzt habe ich es so versucht

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    MediaPlayer1: TMediaPlayer;
    Button1: TButton;
    OpenDialog1: TOpenDialog;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure MediaPlayer1Click(Sender: TObject; Button: TMPBtnType;
      var DoDefault: Boolean);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var help:string;
begin
     help:=opendialog1.filename;
     edit1.text:=help;
     MediaPlayer1.filename:=help;
     OpenDialog1.Execute;
end;


procedure TForm1.MediaPlayer1Click(Sender: TObject; Button: TMPBtnType;
  var DoDefault: Boolean);
begin
     mediaplayer1.FileName:=Edit1.text;
end;

end.

was ist dran falsch?

also das programm soll in einem Edit Fenster anzeigen, welche datei abgespielt wird, und soll on einem Button geändert werden können!

Danke im Vorraus

Buef

[chaosben]

Hi xBuefx!

Herzlich Willkommen in der DelphiPraxis! :hi:

Sieh mal nach, ob "dein" Mediaplayer ;) eine Prozedur namens "Navigate" (oder ähnlich) zur Verfügung stellt.

[xBuefx]

nee leider nicht

[xBuefx]

eigentlich müsste es ja so klappen, aber der macht nix

OpenDialog1.Execute;
MediaPlayer1.filename:=opendialog1.filename;


muss der media player eine bestimmte eigenschaft haben, damit der seine "filename" ändern kann?

[chaosben]

Ok, hier ein Weg, wie es bei mir funktioniert:

Delphi-Quellcode:

MediaPlayer1.FileName:='E:\music\Oldies\Chris de Burgh\Megastars\01-Chris de Burgh-Shine On.mp3';
MediaPlayer1.Open;
MediaPlayer1.Play;