MP3 abspielen --- Probleme mit TMediaplayer

[Innos]

moin moin

ich weiß es gab scho 100 threads dazu! Habe die mir auch alle durchgelesen...
nur bei mir funktioniert es einfach nich :wall: :wall:

also will einfach erstma so eine mp3 abspielen, die im selben Ordner wie die exe liegt.
überall steht ich solle das so schrreiben:

Delphi-Quellcode:

   
 MediaPlayer.FileName :=ExtractFilePath(ParamStr(0)) + 'lol.mp3';
 MediaPlayer.Open;
 MediaPlayer.Play;

so dass geht nich: Fehlermeldung: unklarer bezeichner MediaPlayer
muss also MediaPlayer irgendwie deklarieren....

Delphi-Quellcode:

VAR
MediaPlayer: TMediaPlayer;

geht auch net ... selber fehlermeldung nur mit TMediaplayer -.-

also wie muss ich dass den deklarieren? will das eigentlich irgendwann ma mit einer resource einbinden aber wenn ich das einfach einbinden noch net verstehe... also helf mir bitte^^ Thx im voraus :)

mfg

[Adrian112]

Hallo,

machs doch so (Brauchst halt Delphi Works)

Delphi-Quellcode:

Mediaplayer.FileName := dwMasterPath+'\lol.mp3';
MediaPlayer.Open; 
MediaPlayer.Play;

So müssts eigentlich klappen

Wenn du nen MediaPlayer aufm Formular hast wirds doc automatisch deklariert

Adrian

[Matze]

Hi,

ich nehme an "unklarer" muss "undefinierter" heißen. Über das Einbinden der zugehörigen Unit und das Erzeugen der Komponente musst du dich nicht kümmern, wenn du diese einfach auf dein Formular ziehst (TMediaPlayer, Reiter: System).
Sonst müsstest du die Unit MPlayer den uses hinzufügen und die Komponente manuell erzeugen/freigeben.

[DP-Maintenance]

Dieses Thema wurde von "Matze" von "Object-Pascal / Delphi-Language" nach "Multimedia" verschoben.

[Innos]

@ Adrian
was is Dephi Works^^ habe delphi 7
und ich glaub das prob liegt an dem undefiniertem MediaPlayer...

@Matze
jaaaaa.... ehrlich gesagt versteh ich kein wort^^ heißt das etwa ich muss Mediaplayer gar net zuweisen?? aba das klappt doch gar nich :wiejetzt:

PS.:dein Info prof in deiner sig is glaub etwas verwirrt :D

[dominikkv]

hmm...zuerst...hast du ein TMediaplayer auf dein Formular gezogen?

[Innos]

lol :oops: :oops: das is eine komponente die man auf seine form zieht? :oops:
:gruebel: na toll thx für den hinweis :D

[Innos]

so hab jetzt ma sone komponente eingefügt... die prozedur sieht so aus

Delphi-Quellcode:

procedure TForm1.MediaPlayer1Click(Sender: TObject; Button: TMPBtnType;
  var DoDefault: Boolean);
begin
 MediaPlayer1.FileName :=ExtractFilePath(ParamStr(0)) + 'lol.mp3';
  MediaPlayer1.Open;
  MediaPlayer1.Play;
end;

wenn ich es starte is die komponente deaktiviert...
wie ruf ich diese procedure auf?

[Adrian112]

Delphi Works ist eine freie Libary für Delphi 7 http://delphiworks.sourceforge.net/

[Matze]

Dieses Click-Ereignis ist nur gut, wenn du die vorgegebenen Schaltflächen nutzen möchtest, ansonsten stelle Visible auf false und nutze eigene Buttons, in deren Click-Ereignis du deinen Code einfach einfügen kannst.

Wie du es versucht hast, kann es nicht gehen, da du nicht unterscheidest, bei welchem Button was ausgeführt werden soll. Das ginge so:

Delphi-Quellcode:

if Button = btPlay then
begin
  // Code zum Abspielen
end
else if Button = btStop then
begin
  // Code zu stoppen
end
else if Button = ...

Die Buttons nennen sich so: btPlay, btPause, btStop, btNext, btPrev, btStep, btBack, btRecord, btEject.

Wenn du einen Dateinamen (Filename) zuweist und danach Open aufrufst, sollten die (sinnvollen) Buttons aktiviert sein.