AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Multimedia Delphi Musik mit einem Befehl abspielen

Musik mit einem Befehl abspielen

Ein Thema von Landfloh · begonnen am 18. Feb 2008 · letzter Beitrag vom 18. Feb 2008
Antwort Antwort
Seite 2 von 3     12 3   
Custom

Registriert seit: 18. Aug 2007
Ort: Mainz
203 Beiträge
 
Delphi 7 Enterprise
 
#11

Re: Musik mit einem Befehl abspielen

  Alt 18. Feb 2008, 15:51
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.
  Mit Zitat antworten Zitat
Landfloh

Registriert seit: 17. Feb 2008
75 Beiträge
 
Delphi 7 Personal
 
#12

Re: Musik mit einem Befehl abspielen

  Alt 18. Feb 2008, 15:54
Danke an euch.
  Mit Zitat antworten Zitat
Landfloh

Registriert seit: 17. Feb 2008
75 Beiträge
 
Delphi 7 Personal
 
#13

Re: Musik mit einem Befehl abspielen

  Alt 18. Feb 2008, 15:59
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?
  Mit Zitat antworten Zitat
Custom

Registriert seit: 18. Aug 2007
Ort: Mainz
203 Beiträge
 
Delphi 7 Enterprise
 
#14

Re: Musik mit einem Befehl abspielen

  Alt 18. Feb 2008, 16:07
Delphi-Quellcode:
interface


uses
  mmsystem;
brauchst du glaube ich noch
  Mit Zitat antworten Zitat
Landfloh

Registriert seit: 17. Feb 2008
75 Beiträge
 
Delphi 7 Personal
 
#15

Re: Musik mit einem Befehl abspielen

  Alt 18. Feb 2008, 16:55
Es funktioniert noch nich.
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?
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.313 Beiträge
 
Delphi 11 Alexandria
 
#16

Re: Musik mit einem Befehl abspielen

  Alt 18. Feb 2008, 16:57
Geht es denn, wenn Du statt einer *.mp3 eine *.wav übergibst?
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Benutzerbild von igel457
igel457

Registriert seit: 31. Aug 2005
1.622 Beiträge
 
FreePascal / Lazarus
 
#17

Re: Musik mit einem Befehl abspielen

  Alt 18. Feb 2008, 16:58
Ja, PlaySound kann nur über Tricks MP3-Dateien abspielen.
Andreas
"Sollen sich auch alle schämen, die gedankenlos sich der Wunder der Wissenschaft und Technik bedienen, und nicht mehr davon geistig erfasst haben als die Kuh von der Botanik der Pflanzen, die sie mit Wohlbehagen frisst." - Albert Einstein
  Mit Zitat antworten Zitat
Benutzerbild von turboPASCAL
turboPASCAL

Registriert seit: 8. Mai 2005
Ort: Sondershausen
4.274 Beiträge
 
Delphi 6 Personal
 
#18

Re: Musik mit einem Befehl abspielen

  Alt 18. Feb 2008, 17:02
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.
Matti
Meine Software-Projekte - Homepage - Grüße vom Rüsselmops -Mops Mopser
  Mit Zitat antworten Zitat
Landfloh

Registriert seit: 17. Feb 2008
75 Beiträge
 
Delphi 7 Personal
 
#19

Re: Musik mit einem Befehl abspielen

  Alt 18. Feb 2008, 17:05
Ja super!
Kann man das auch einfach durch einen Befehl abbrechen?
  Mit Zitat antworten Zitat
Benutzerbild von igel457
igel457

Registriert seit: 31. Aug 2005
1.622 Beiträge
 
FreePascal / Lazarus
 
#20

Re: Musik mit einem Befehl abspielen

  Alt 18. Feb 2008, 17:31
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;
Andreas
"Sollen sich auch alle schämen, die gedankenlos sich der Wunder der Wissenschaft und Technik bedienen, und nicht mehr davon geistig erfasst haben als die Kuh von der Botanik der Pflanzen, die sie mit Wohlbehagen frisst." - Albert Einstein
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 10:17 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