Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Multimedia (https://www.delphipraxis.net/16-multimedia/)
-   -   Delphi Musik mit einem Befehl abspielen (https://www.delphipraxis.net/108718-musik-mit-einem-befehl-abspielen.html)

Landfloh 18. Feb 2008 13:12


Musik mit einem Befehl abspielen
 
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 18. Feb 2008 13:15

Re: Musik mit einem Befehl abspielen
 
Du könntest den Mediplayer (TMediaPlayer) verwenden. Sonst brauchst du eine externe Bibliothek wie BASS o.ä.

Landfloh 18. Feb 2008 13:17

Re: Musik mit einem Befehl abspielen
 
Wie kann man den den TMediaPlayer einbauen?

mkinzler 18. Feb 2008 13:21

Re: Musik mit einem Befehl abspielen
 
Ist bei Delphi dabei

Landfloh 18. Feb 2008 13:26

Re: Musik mit einem Befehl abspielen
 
Gibt es noch eine andere Möglichkeit :?:

mkinzler 18. Feb 2008 13:31

Re: Musik mit einem Befehl abspielen
 
Ja eine externe Bibliothek dafür verwenden:
http://www.torry.net/pages.php?id=167

Landfloh 18. Feb 2008 13:50

Re: Musik mit einem Befehl abspielen
 
OK Danke erstmal

Custom 18. Feb 2008 14:28

Re: Musik mit einem Befehl abspielen
 
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 18. Feb 2008 14:44

Re: Musik mit einem Befehl abspielen
 
Woher soll das Programm wissen wo es nach dem sound suchen muss?

mkinzler 18. Feb 2008 14:49

Re: Musik mit einem Befehl abspielen
 
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 18. Feb 2008 14:51

Re: Musik mit einem Befehl abspielen
 
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 18. Feb 2008 14:54

Re: Musik mit einem Befehl abspielen
 
Danke an euch. :mrgreen:

Landfloh 18. Feb 2008 14:59

Re: Musik mit einem Befehl abspielen
 
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 18. Feb 2008 15:07

Re: Musik mit einem Befehl abspielen
 
Delphi-Quellcode:
interface


uses
  mmsystem;
brauchst du glaube ich noch

Landfloh 18. Feb 2008 15:55

Re: Musik mit einem Befehl abspielen
 
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 18. Feb 2008 15:57

Re: Musik mit einem Befehl abspielen
 
Geht es denn, wenn Du statt einer *.mp3 eine *.wav übergibst?

igel457 18. Feb 2008 15:58

Re: Musik mit einem Befehl abspielen
 
Ja, PlaySound kann nur über Tricks MP3-Dateien abspielen.

turboPASCAL 18. Feb 2008 16:02

Re: Musik mit einem Befehl abspielen
 
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 18. Feb 2008 16:05

Re: Musik mit einem Befehl abspielen
 
Ja super! :spin2:
Kann man das auch einfach durch einen Befehl abbrechen?

igel457 18. Feb 2008 16:31

Re: Musik mit einem Befehl abspielen
 
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 18. Feb 2008 17:19

Re: Musik mit einem Befehl abspielen
 
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 ^^


Alle Zeitangaben in WEZ +1. Es ist jetzt 21:12 Uhr.

Powered by vBulletin® Copyright ©2000 - 2022, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf