Tmediaplayer Anfängerhilfe

[rayjray]

hui allemann

mal ne frage....ich hab einen editor gemacht der auch einen mediaplayer enthalten soll....nu will ich einen open button machen mit dem ich halt meine musik selber aussuchen möchte und abspielen lassen kann!!!

beides hab ich nur wie zum teufel verbinde ich die beiden und wo muss der befehl genau hin....bitte habt nachsicht mit mir ...

Aller Anfang ist schwer..
THX

[Dax]

Erstmal: Herzlich Willkommen in der DP!

Wenn du eine Datei in den TMediaPlayer laden willst, setzt du einfach die Eigenschaft FileName des Players auf den Neuen Wert und rufst TMediaPlayer.Open() auf. Ansonsten: TMediaPlayer!

[alcaeus]

Hi rayjray,

erstmal herzlich willkommen in der DP

Zu deinem Problem, du musst für den Button eine OnClick-Routine einfügen, und darin die Datei suchen lassen, und dem Mediaplayer zuweisen.

Dies geschieht in mehreren Schritten:

[dp]"OpenDialog"[/dp] anzeigen und datei auswählen lassen.
[dp]"TMediaPlayer"[/dp] die Datei zuweisen.

Das Thema hatten wir schon öfters, deshalb die Suchlinks

Greetz
alcaeus

[rayjray]

Erstmal Danke für die nette Begrüssung!! *freu*

So Danke für die Hilfe mit dem Suchen...

Ich hab gelesen und gelesen und gelesen...schnarch!
Ich habe zwar einiges gefunden aber da ich ja nicht genau weiss wohin sowas rein muss und vorallendingen was.

Nunja, eines habsch gefunden aber, nachdem er die Frage meiner Frage gestellt hatte haben die beiden sich angezickt und die Antwort kam wohl nicht mehr LOL http://www.delphipraxis.net/internal...ght=opendialog

Gehn wir mal davon aus ich bin gerade dabei einen Button zu machen mit dem ich Lieder von der Festplatte aussuchen muss....so der Button ist auf meiner Form und der Mediaplayer darunter!
Der Button funzt und ich kann auf meiner Platte nach Musikdatein suchen ( mp3,wav,wma)
Ich muss ja beides irgendwie miteinander verbinden...
wie muss ich nun vorgehen und wenn es geht etwas genau das auch ich es verstehen kann ^^

Bitte nicht mit der Geburt Jesu anfangen hehehe...lerne eigentlich recht schnell >

BüddeBüdde habt erbarmen mit meiner einer....

Aller Anfang ist schwer )

THX im Vorraus

[Matze]

Mach's ungefair so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
  begin
    MediaPlayer1.FileName := OpenDialog1.FileName;
    MediaPlayer1.Open;
    MediaPlayer1.Play;
  end;
end;

[alcaeus]

Hi rayjray,

dann mal schritt für schritt:

zuerst musst du den OpenDialog aufs Form ziehen (ist im Register Dialoge). Anschließend kommt in die Button1Click folgender Code rein:

Delphi-Quellcode:

if not OpenDialog1.Execute then
  exit;

Dies zeigt den Opendialog an und springt aus der Prozedur, falls auf abbrechen geklickt wurde.

Nun musst du dem TMediaPlayer die Datei zuweisen und diese abspielen, das heißt du schreibst darunter:

Delphi-Quellcode:

MediaPlayer1.FileName := OpenDialog1.FileName;
MediaPlayer1.Play;

Dies müsste mal funktionieren, aber der Code ist erweiterbar. Als Einstieg sollte er jedenfalls reichen.

Greetz
alcaeus

[edit]Da macht man sich Mühe das schön zu beschreiben und dann ist so ein d****r MOD schneller [/edit]

[rayjray]

Geile Sache ... ihr seid ja Hammer schnell!!!

THX

Wenn ich ehrlich bin hatte ich es anfangs so versucht

tmediaplayer1.Loadfromfile.fileopen3.Dialog.Filena me;
tmediaplayer1 := FileOpen3.Dialog.FileName;

ich versuch ma nu eure variante, falls ichs hinbekomm >

[rayjray]

muss ich fileopen2.opendialog accepten lassen oder execute?! oder sowas in der art ...das weiss ich echt nicht

man ich kanns drehen und wenden wie ichs will.....

immer wieder filename ist kein bezeichner.

hilft euch vielleicht mein ganzer code?

[Dax]

-OpenDialog1 ist vom Typ TOpenDialog
-MediaPlayer1 ist vom Typ TMediaPlayer

Delphi-Quellcode:

procedure TForm1.Buttin1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
  begin
    MediaPlayer1.FileName := OpenDialog1.FileName;
    MediaPlayer1.Open;
    MediaPlayer1.Play;
  end;
end;

Wenn du das so verwendest, dürfte es eigentlich keine Prbleme geben.

[Matze]

Zitat von alcaeus:

[edit]Da macht man sich Mühe das schön zu beschreiben und dann ist so ein d****r MOD schneller [/edit]

*räusper*

Du hast auch noch eine Kleinigkeit vergessen.

MediaPlayer1.Open;