wieder mal die Musik

Raezor · Beiträge: 54 Status: Administrator des Mondes

Ich habe gesucht und 34619 Threads gefunden, doch keiner von denen hat bei mir funktioniert.

Ich will ganz einfach musik abspielen. (wav)
Dazu habe ich so ein Ding aus der Liste System den MediaPlayer
genommen und in das Fenster gezogen.
Aber wie bekomme ich den dazu, zu spielen?

Könnt ihr mir den kompletten code für den mediaplayer geben?

Calculon · Verfasst: Fr 09.03.07 19:18

Na logo!

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

procedure TForm1.Button1Click(Sender: TObject);
var
  OpenDialog1: TOpenDialog;
begin
  OpenDialog1:=TOpenDialog.Create(Self);
  OpenDialog1.Filter:='WAV-Files|*.wav';
  if OpenDialog1.Execute then
    begin
      try
        MediaPlayer1.FileName:=OpenDialog1.FileName;
        MediaPlayer1.AutoOpen := True;
        MediaPlayer1.Hide;
        MediaPlayer1.AutoRewind := True;
        MediaPlayer1.Open;
        MediaPlayer1.Play;
      except
        ShowMessage('Nope! Didn''t work');
      end;
  end; 

end;

Gruß

Calculon
--

Raezor · Beiträge: 54 Status: Administrator des Mondes

erstmal danke, doch es funktioniert nicht:

user defined image

Jakob_Ullmann · Verfasst: Sa 10.03.07 08:21

Ich weiß ja nicht, was du dir dabei gedacht hast, aber ich würde auch nie auf die Idee kommen, einen OpenDialog lokal zu vereinbaren.
Setz den einfach auf das Formular (OpenDialog). Den findest du bei "Dialoge".
Dann setzt du den MediaPlayer auf das Formular und tippst bei z.B. einem Button-Klick
folgenden Quellcode ein:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:

begin
  try
    OpenDialog1.Execute;
    MediaPlayer1.FileName := OpenDialog1.FileName;
    MediaPlayer1.Play;
  except
    Application.MessageBox('Datei konnte nicht geöffnet werden.','Fehler',MB_OK+MB_ICONERROR);
  end;
end;

Jakob_Ullmann · Verfasst: Sa 10.03.07 08:27

Wenn der Fehler angezeigt wird, kannst du auch auf F1 klicken.
Dann gibt er dir ein paar Tipps, woran das liegen könnte.
Schau sonst mal im Hilfe-File.

matze · Verfasst: Sa 10.03.07 10:06

@Raezor: Dein Quelltext stimmt schon. Dir fehlt nur in der allerersten Zeile eine schließende Klammer vor dem Stichpunkt.

_________________
In the beginning was the word.
And the word was content-type: text/plain.

Raezor · Beiträge: 54 Status: Administrator des Mondes

Ich versuche nun Jakob_Ullmann Bsp. zu nehmen.
Also mache ich eine neue Anwendung auf und ziehe den
OpenDialog ins Formular.
Dann ziehe ich den Mediaplayer ins Formular.
Daraufhin werde ich einen Butten in das Formular ziehen, wo ich peer Doppelklick
in sein Feld folgendes reinschreibe:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:

begin
  try
    OpenDialog1.Execute;
    MediaPlayer1.FileName := OpenDialog1.FileName;
    MediaPlayer1.Play;
  except
    Application.MessageBox('Datei konnte nicht geöffnet werden.','Fehler',MB_OK+MB_ICONERROR);
  end;
end;

Nun starte ich das ding.
....und wenn ich auf den Button klicke, zeigt er ein feld,
wo ich eine datei auswählen muss, wobei er automatisch die wav datei abspielen soll!

Moderiert von matze: Delphi-Tags hinzugefügt

matze · Verfasst: Sa 10.03.07 13:52

Und wo genau liegt jetzt das Problem ?

Hast du meinem Post oben zur Kenntnis genommen?

_________________
In the beginning was the word.
And the word was content-type: text/plain.

Jakob_Ullmann · Verfasst: Sa 10.03.07 14:35

War es das, was du willst, oder nicht?
MediaPlayer1.Play kannst du ja auch in eine andere Methode schreiben.
(Wenn es das ist, was du willst)
Und das mit der Klammer:
Ich kenne mich mit Compilermeldungen nicht so aus, aber nach meiner Theorie würde er dann schon bei "var" meckern.
Aber versuchen würde ich es. :wink:

Raezor · Beiträge: 54 Status: Administrator des Mondes

Jaja @ Mod, du hast schon recht der Code funktioniert:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

procedure TForm1.Button4Click(Sender: TObject);

var
  OpenDialog1: TOpenDialog;
begin
  OpenDialog1:=TOpenDialog.Create(Self);
  OpenDialog1.Filter:='1.wav';
  if OpenDialog1.Execute then
    begin
      try
        MediaPlayer1.FileName:=OpenDialog1.FileName;
        MediaPlayer1.AutoOpen := True;
        MediaPlayer1.Hide;
        MediaPlayer1.AutoRewind := True;
        MediaPlayer1.Open;
        MediaPlayer1.Play;
      except
        ShowMessage('Nope! Didn''t work');
      end;
  end;

end;

, doch die datei startet nicht vonn alleine.

ich möchte, dass wenn ich meine exe starte, gleich die wav anfäng abzuspielen

Moderiert von matze: Code- durch Delphi-Tags ersetzt

matze · Verfasst: Sa 10.03.07 17:16

dann schreib deinen code nicht in eine Button-Click anweisung rein, sondern in das OnCreate Ereignis von deinem Formular.

_________________
In the beginning was the word.
And the word was content-type: text/plain.

Raezor · Beiträge: 54 Status: Administrator des Mondes

jetzt hab ich es in einen timer geschrieben, doch er wird sie nicht abspielen, da man sie auswählen muss.
Kann man nicht ein festen pfad der wav datei bestimmen, anstatt sie durch so ein öffnungsdialog zu suchen?

stigge · Beiträge: 426 WinXP Delphi 2007

Also mal die einfache Variante:

markieren

Delphi-Quelltext

1:
2:
3:

mediaplayer1.filename := 'der Name der Musikdatei wenn im gleichen Ordner wie das Programm oder der Pfad zu ihr';
mediaplayer1.open;
mediaplayer1.play;

Und das alles in die form1.oncreate Prozedur schreiben, dann müsste es gehen :wink:

Raezor · Beiträge: 54 Status: Administrator des Mondes

ich denke, das wäre das simpelste

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:

procedure TForm1.Button1Click(Sender: TObject);
begin
mediaplayer1.filename := '1.wav';
mediaplayer1.open;
mediaplayer1.play;
end;

end.

jetzt zeigt er aber an:
[Fehler] Unit1.pas(2

: Undefinierter Bezeichner: 'mediaplayer1'
%diese smilies versauen die Beiträge....%

Moderiert von matze: Code- durch Delphi-Tags ersetzt

stifflersmom · Beiträge: 194 XP /XP PRO/ SuSE div. D1 - D7, BDS 2006

Liegt denn jetzt noch ein mediaplayer auf Deinem formular?

Zeig doch am besten mal Deinen ganzen Code.

Moin

Raezor · Beiträge: 54 Status: Administrator des Mondes

hm..klar..hatte ein neues Formular gemacht.
Wenn ich jetzt den Mediaplayer hinzufüge, gehts!
Danke

stigge · Beiträge: 426 WinXP Delphi 2007

Raezor hat folgendes geschrieben:

hm..klar..hatte ein neues Formular gemacht.
Wenn ich jetzt den Mediaplayer hinzufüge, gehts!
Danke

Ich hätte gedacht das das klar ist :shock:

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme