Frage zum MediaPlayer

Delphi2015 · Hält's aus hier Beiträge: 6

Hallo zusammen,

habe mir in mein Programm den Mediaplayer eingebaut, der ein Intro Sound beim öffnen des Programms ausgeben soll.
Sieht zu Zeit so aus.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

begin
 Mediaplayer1.close;
 Mediaplayer1.Filename := 'Intro.mp3';
 Mediaplayer1.Open;
 Mediaplayer1.Play;
end;

Dieser spielt den Sound auch ab wenn ich auf Play drücke, aber eben nicht automatisch.

Habs mit dem Object Inspector versucht und AutoPlay auf "true" gesetzt. Jetzt bekomme ich beim starten immer die Fehlermeldung:

Project Project1.exe raised exception class EMCIDiviceError with message "Kann keinen Gerätetyp aus der angegebenen Dateinamenerweiterung ermitteln" Process stopped. Use Step or Run to Continue.

Kann mir jemand erklären wo mein Fehler liegt ?

Moderiert von Narses: Topic aus Sonstiges (Delphi) verschoben am Fr 23.01.2015 um 18:18
Moderiert von Narses: Code- durch Delphi-Tags ersetzt

Narses · Verfasst: Fr 23.01.15 19:21

Moin und

in der EE!

Das mit dem Autoplay lass auch mal wieder.

In welchem Ereignis steht denn dein Code? :lupe:

Ich würde für den Anfang mal FormShow empfehlen. :idea:

cu
Narses

_________________
There are 10 types of people - those who understand binary and those who don´t.

Delphi2015 · Hält's aus hier Beiträge: 6

markieren

Delphi-Quelltext

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

procedure TForm1.MediaPlayer1Click(Sender: TObject; Button: TMPBtnType;
  var DoDefault: Boolean);
begin
 Mediaplayer1.close;
 Mediaplayer1.Filename := 'Intro.mp3';
 Mediaplayer1.Open;
 Mediaplayer1.Play;
end;

Moderiert von Narses: Code- durch Delphi-Tags ersetzt

Delphi2015 · Hält's aus hier Beiträge: 6

habs gefunden.

Danke.

Ehemaliges Mitglied Erhaltene Danke: 1

Oder so:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

uses MMSystem;

procedure PlayMP3;
var FN : String;
begin
FN:= ExtractFilePath(Application.ExeName)+'\Alarm01.mp3';
MCISendString(PChar('play ' + FN), nil, 0, 0);
end;

procedure TForm1.FormShow(Sender: TObject);
begin
  PlayMP3;
end;

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme