Dieses kleine Tutorial soll einem kurz zeigen, wie man den
Mediaplayer in seinem Programm einsetzen kann.
Kapitel 1: Der Einstieg
Als erstes öffnen wir ein neues, leeres Projekt.
Im Reiter "system" wird die TMediaplayer Komponente
ausgewählt, und durch einen Klick auf unser leeres Formular dort
eingefügt.
als nächstes plazieren wir einen normalen button auf unserem
formular:
durch einen doppelklick auf diesen button erzeugt uns Delphi
automatisch eine Klick-Prozedur für unseren Button, in welche wir
folgenden code einfügen:
procedure TForm1.Button1Click(Sender: TObject);
begin
mediaplayer1.FileName := 'C:\Inetpub\wwwroot\dirty.mp3';
mediaplayer1.Open;
end;
|
statt 'C:\Inetpub\wwwroot\dirty.mp3' muss bei euch natürlich
ein gültiger pfad zu einer mp3-datei stehen.
Anschliessend starten wir unser Programm, und betätigen dann
den Button1.
Aha, der Mediaplayer hat sich verändert ! wenn man nun auf den
Play-Button drückt, spielt unser Lied.
programm wieder schliessen.
falls wir nicht wollen, dass man die Schaltflächen des
Mediaplayers sehen kann, markieren wir den TMediaplayer auf
unserem Formular, und setzen im Objektinspektor die Eigenschaft "visible"
auf false.
Damit bei einem Klick auf Button1 unser Lied startet, fügen
wir noch eine Zeile zu unserem Code hinzu:
procedure TForm1.Button1Click(Sender: TObject);
begin
mediaplayer1.FileName := 'C:\Inetpub\wwwroot\dirty.mp3';
mediaplayer1.Open;
mediaplayer1.play;
end;
|
Nun starten und den Button anklicken.
weiter zu kapitel 2: eine Playliste
