Musik mit einem Befehl abspielen

[Landfloh]

Hallo

Ich habe ein Problem. Ich möchte mit einem Befehlen MP3 Dateien also Musik oder Sounds abspielen.
Ist das möglich? Oder so etwas ähnliches?

Gruß Landfloh. :thumb:

[mkinzler]

Du könntest den Mediplayer (TMediaPlayer) verwenden. Sonst brauchst du eine externe Bibliothek wie BASS o.ä.

[Landfloh]

Wie kann man den den TMediaPlayer einbauen?

[mkinzler]

Ist bei Delphi dabei

[Landfloh]

Gibt es noch eine andere Möglichkeit :?:

[mkinzler]

Ja eine externe Bibliothek dafür verwenden:
http://www.torry.net/pages.php?id=167

[Landfloh]

OK Danke erstmal

[Custom]

Wenn du nicht mehr als einen Ton auf einmal abspielen möchtest dann reicht ein einzelner befehl.

Delphi-Quellcode:

PlaySound(Pchar('song.mp3'),0,SND_ASYNC);

ist einfach, bringt allerdings auch diverse nachteile mit sich.

[Landfloh]

Woher soll das Programm wissen wo es nach dem sound suchen muss?

[mkinzler]

Zitat:

Zitat von Landfloh

Woher soll das Programm wissen wo es nach dem sound suchen muss?

Das sagst du ihm, indem du den Pfad im Parameter mitgibst

[Custom]

Delphi-Quellcode:

PlaySound(Pchar('C:\Dokumente und Einstellungen\User\Eigene Dateien\Eigene Musik\song.mp3'),0,SND_ASYNC);

wenn du keinen pfad eingibst wird die datei aus dem ordner des programmes genommen wenn du zum beispiel nur "sound/sound.mp3" als pfad angiibst öffnet das programm die datei aus dem undnerordner sound.

[Landfloh]

Danke an euch. :mrgreen:

[Landfloh]

Bei mir kommt dann [Fehler] Unit1.pas( 28 ): Undefinierter Bezeichner: 'PlaySound' und [Fehler] Unit1.pas( 28 ): Undefinierter Bezeichner: 'SND_ASYNC' weiß jemand woran das liegt? :cry:

[Custom]

Delphi-Quellcode:

interface


uses
  mmsystem;

brauchst du glaube ich noch

[Landfloh]

Es funktioniert noch nich. :pale:
Das Programm läst sich zwar starten aber wenn ich dann auf den Button auf dem ich den Befehl habe drücke tut sich nichts.
Kann mir jeman helfen?

[DeddyH]

Geht es denn, wenn Du statt einer *.mp3 eine *.wav übergibst?

[igel457]

Ja, PlaySound kann nur über Tricks MP3-Dateien abspielen.

[turboPASCAL]

Zitat:

Zitat von igel457

Ja, PlaySound kann nur über Tricks MP3-Dateien abspielen.

Aha, ist mich neu.

@Threadsteller, verwende doch bitte erst einmal die Forensuche. Threads zu Sounds etc. abspielen
wie auch immer gewünscht gibt es zu Hauf in der DP.

[Landfloh]

Ja super! :spin2:
Kann man das auch einfach durch einen Befehl abbrechen?

[igel457]

Dürfen es auch drei Zeilen sein?

Delphi-Quellcode:

uses
  MMSystem;

const
  FileName =
    'C:\Dokumente und Einstellungen\Andreas\Eigene Dateien\Musik\Film-Musik\Pirates of the Caribbean.mp3';

begin
  MCISendString(PChar('open "'+FileName+'" alias myaudio'), nil, 0 , 0);
  MCISendString(PChar('play myaudio'), nil, 0, 0);
  [... SPÄTER ...]
  MCISendString(PChar('close myaudio'), nil, 0, 0);
end;

[Custom]

Zitat:

Zitat von Landfloh

Ja super! :spin2:
Kann man das auch einfach durch einen Befehl abbrechen?

naja, da ja wenn ein neuer sound abgespielt wird der alte angehalten wird kannst du einfach einen "leeren" sound nehmen... ich kenn mich damit auch nicht so aus ^^