programm mit musik

[battlemonster]

wie kann ich ein lied in ein programm integrieren,
dass es beim programmstart an geht und die ganze zeit läuft,
bis das programm wieder aus ist :?: :?: :?:

[mkinzler]

Es gibt verschiedene Bibliotheken, Komponenten, die das tun. Z.B. BASS, fmod, ...
In welchem Format liegt die Musik vor ( mod, mp3, wav, ogg , ...)?

[battlemonster]

format wäre mp3
wenn man auch eine playlist integrieren könnte wäre das auch gut, dass die dann hintereinander abgespielt werden

[netscanner]

Für Anfänger wäre der TMedia Player am sinnvollsten (guck mal in der suche)
Ne Playlist könntest du über ne listbox integrieren und dann per click event das leid an den TMediaPlayer schicken

[battlemonster]

ich will das die musik ohne das ich was mache im hintergrung angeht,
wie bring ich denn TMediaPlayer dazu

[mkinzler]

Du startest das Abspielen bei Programmstart.

[netscanner]

suche hilfe :lol:

=>
Hintergrundmusik


axo und wie mkinzler schon sagte das ganze ins formcreate rein (doppelklick aufs formblatt)

[battlemonster]

ok
das ein lied beim programmstart angeht habe ich hingekriegt,
wie sieht das mit mehreren liedern aus,
dass wenn ein lied durch ist das nächste an geht (automatisch natürlich)

[Nicolai1234]

Ich zitiere aus dem Link:

Zitat:

Der MediaPlayer hat ein Event namens OnNotify, d.h. es wird ausgeführt, wenn die Musikdatei zu ende gespielt wurde.

In dieses Event könntest du dem Mediaplayer mitteilen, dass er dein nächstes Lied spielen soll.

Vorher solltest du - wie oben erwähnt - eine Listbox mit den Pfaden der Musikdateien erstellen. Diese kannst du dann nach und nach durchgehen. Wenn diese Liste zu Ende ist, kannst du sie wieder von vorne beginnen.

[battlemonster]

irgendwie krieg ich mehrere lieder nicht mit dem event hin,
weil er mir beim laden immer abstürtzt und fehler anzeigt.
kann mit vileicht jemand ein beispiel geben für 3 lieder(quellcode)
:wall: :wall: :wall: :wall: :wall: :wall:

[3_of_8]

@Nicolai: ListBox? StringList meinst du, oder?

@battlemonster: Wie wärs, wenn du uns deinen Code zeigst?

[battlemonster]

also so sieht das zur zeit aus damit sich ein lied immer wiederholt

Code:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, MPlayer, StdCtrls;

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    Datei1: TMenuItem;
    MediaPlayer1: TMediaPlayer;
    procedure MediaPlayer1Notify(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
MediaPLayer1.FileName:='E:\_Download\mp3\BeatGodz_are_Nuttz.mp3';
MediaPlayer1.Open;
MediaPlayer1.Play;     
end;

procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin
with MediaPlayer1 do
if NotifyValue = nvSuccessful then begin
Notify := True;
Play;
end;
end;

end.

[Sidorion]

1. Du kreierst den Mediaplayer nie.
ins FormCreate vor die Zuweisung der Feile die Zeile:

Delphi-Quellcode:

MediaPlayer1:=TMediaPlayer.Create(wasauchimmer);

2. Du sagst dem Mediaplayer nicht, welche Procedure er rufen soll, wenn Lied alle ist.

Delphi-Quellcode:

Mediaplayer1.OnNotify:=MediaPlayer1Notify

[battlemonster]

ne ich versteh das ganze nicht,
ist aber sowieso egal,
weil ein lied das sich immer wiederholt mir reicht.

vielen dank an alle für eure hilfe

mfg BattleMonster