Lied im MediaPlayer erst nach ein paar Sekunden abspielen

[Cruesador]

Hallo, mein Name ist Felix Bey und ich lerne grade erst wie man delphi programmiert. Ich möchte eine Art "Zeitbombe" machen. Nach öffnen des Programms soll durch einen Timer das Lied gestartet werden. Aber nicht sofort - es ist ja eine Zeitbombe! :lol: :stupid: :angel2:
Da ich noch ganz neu bin und mir die verschiedenen funktionen von turbo delphi erarbeiten möchte, bitte ich zusätzlich um eine Liste aller sachen die ich einfügen muuss wie z. B. Buttons oder Panels, und Timern und Media Player.
Außerdem nützt mir ohne einen VOLLSTÄNDIGEN Quelltext (also die ganze Unit kopieren) die beste Antwort gar nichts. Das ist mir aufgefallen als ich in anderen Fragen geguckt habe.
Bitte verweist nicht auf andere Fragen sondern sagt mir klipp und klar die Antwort.
Es tut mir Leid dass ich so viele Anforderungen stelle, aber ich mache das noch nicht so lange und .... deswegen versteh ichs nur wenn man es mir ganz genau erklärt.
VIELEN DANK DASS IHR EUCH DEN TEXT DURCHGELESEN HABT !!!
Ich hoffe dass ich ,mit euren Antworten was anfangen kann
MFG Felix B
:xmas: :xmas: :xmas: :xmas: :xmas:

[STS301]

einen timer einbauen und dann das

http://www.dsdt.info/tipps/?id=578

allerdings müsste man das Programm halt starten und nicht die Musikdatei

hoffe jetzt passt es

[Die Muhkuh]

Servus Felix,

erst einmal herzlich Willkommen in unseren Kreisen. :dp:

Dann aber eine kleine Belehrung:

Zitat:

Außerdem nützt mir ohne einen VOLLSTÄNDIGEN Quelltext (also die ganze Unit kopieren) die beste Antwort gar nichts. Das ist mir aufgefallen als ich in anderen Fragen geguckt habe.

Den vollständigen Quelltext werden wir Dir nicht geben, denn Du willst ja was lernen und wie lernt man es besser, wenn man es nicht selbst erarbeitet? :zwinker:

Zu Deinem Problem:

Dein Timer hat eine Property namens "Intervall", dort kannst Du angeben, in welchen Intervall Dein Timer geschaltet wird. Wenn Du z.B. nach 10 Sekunden anfangen möchtest, dann musst Du das Intervall auf 10000 stellen. Warum auf 10000? Ganz einfach: Der Timer verlangt eine Angabe in Millisekunden: 10 Sekunden entsprechen 10000 Millisekunden. ;-)

Im Event "OnTimer" Deines Timers schaltest Du diesen erstmal wieder aus (Stichwort: Timer.Enabled) und startest Deinen Mediaplayer (Stichwort: Mediaplayer.Play). Du darfst natürlich nicht vergessen, dem MediaPlayer zu sagen, welches Lied er abspielen soll, das geht mit MediaPlayer.FileName.

Die Begriffe mit dem lustigen Icon solltest Du in der Delphi-Hilfe nachschlagen, dort stehen die erklärt und wie man sie einsetzt.

Falls es noch fragen gibt, schieß los. ;-)

[argonix]

Und MediaPlayer.Open nicht vergessen, um ein MCI-Gerät zu öffnen!
Also so:

Delphi-Quellcode:

MediaPlayer1.FileName:='C:\IrgendEinSound.wav';
Mediaplayer1.Open;
MediaPlayer1.Play;

Das, wie meine Vorgänger schon gesagt haben, in einen Timer, der beim Klick auf einen Button aktiviert wird. (Enabled:=true)
Du solltest nach dem Starten des Liedes den Timer wieder Deaktivieren, da es sonst ein Problem mit dem MediaPlayer gibt, wenn das Lied zu 2. mal abgespielt wird.

[Die Muhkuh]

Zitat:

Zitat von argonix

Das, wie meine Vorgänger schon gesagt haben, in einen Timer, der beim Klick auf einen Button aktiviert wird. (Enabled:=true)

Oder im Form.OnCreate, dann wird er automatisch aktiviert.

Alternativ stellt man Timer.Enabled im ObjektInspektor auf true. ;-)

[Die Muhkuh]

Hi,

hier nochmal meine Antwort auf Deine PN, damit andere Hilfesuchende auch etwas davon haben:

Zitat:

Hi,

wie schon im Thread erwähnt, musst Du im OnTimer-Event die Eigenschaft Enabled des Timers auf false setzen.

[Progman]

Da ich dieses schulmeisterliche Gehabe ("du willst doch was lernen, also gibts auch keinen Quellcode...") nicht mag, hier ein kleines, auf die Schnelle gebasteltes Beispielproject im Anhang. Schau die den Code an und versuche, zu verstehen, was er macht, wenn du das willst ;)

[Cruesador]

Danke für eure Tipps und besonders für die Datei die du mir zum Downloaden bereitgestellt hast. Durchs selbernachdenken lernt man eventuell mehr aber ich habe da drüber auch zusammen mit meinem freund schon so lange drüber nachgedacht dass ... das nichts mehr bringen würde.
Danke euch allen !!! :-D

[Cruesador]

ich habe noch eine Frage zu dem download: wie bekomme ich das hinn dass es dises ding auch auf dem design teil gibt ?
procedure TForm1.FormShow(Sender: TObject);
begin
TimeToRun:=5;
Timer1.Enabled:=True;
end;

[Progman]

Das gibt es nicht auf dem "Designteil" sondern das steht im Quellcode. Erforsche mal dein Delphi und den ObjectInspector. Klick mal auf das Form, dann im ObjectInspector auf Ereignisse und scrolle ganz nach unten.
Dort steht FormShow. Ein Doppelklick darauf lässt dich im Quelltext bei besagtem Code landen. Ich hoffe, das hattest du gemeint ;)