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 ;)

[Die Muhkuh]

Zitat:

Zitat von 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 ;)

Willst Du ihm nicht ein kleines Beispielprojekt dafür schreiben? :zwinker:

Das ist der Grund, warum ich den Code nicht rausgerückt habe, dadurch hätte er diese Sachen gleich kennengelernt. ;-)

[Progman]

Zitat:

Zitat von Die Muhkuh

...
Das ist der Grund, warum ich den Code nicht rausgerückt habe, dadurch hätte er diese Sachen gleich kennengelernt. ;-)

Ja, und nach weiteren 30 Beiträgen hätte er immer noch keine Lösung :???: :lol:

[Die Muhkuh]

Zitat:

Zitat von Progman

Zitat:

Zitat von Die Muhkuh

...
Das ist der Grund, warum ich den Code nicht rausgerückt habe, dadurch hätte er diese Sachen gleich kennengelernt. ;-)

Ja, und nach weiteren 30 Beiträgen hätte er immer noch keine Lösung :???: :lol:

Wenn man sich damit beschäftigt und nicht nur schreibt, dass man es tut, hätte er es auch herausgefunden.

[Cruesador]

ja genau das hatte ich gemeint. danke !!!
:)

[Cruesador]

Mist, das gibt es bei mir gar nicht. Ich habe Turbo Delphi das ist abgeschpecktes Delphi. :(

[DeddyH]

Was gibt es bei Dir nicht? Die normalen Standard-Komponenten sind auch bei TD dabei.

[Cruesador]

bei mir gibt es das wirklich nicht. Das sagt auch mein Delphi Helper. Ich habe dieses Form Show in Turbo Delphi nicht. Mist ... ich war der Lösung sooooo na. :wall: :wall: :wall: :wall: :wall:

[Cruesador]

Och menno, warum geht das bei mir jetzt nicht? Ich habe zwar die datei heruntergeladen aber wenn ich den abzuspielenden sound mit angepasstem speicherort, korrektem ganzen namen, und gänderter zeit abspielen will, zählt er zwar runter, danach passiert aber nischt. Im Klartext: Es funktioniert nur die Originaldatei, ich habe kein Formshow. Es tut mir leid dass ich so ein Krüppel delphi habe. Gibt es vielleicht noch eine andere Möglichkeit es zu programmieren ? Es muss nicht unbedingt angezeigt werden wielange es noch braucht, aber die verschiedenen Komponenten müssen veränderbar sein(Zeit, Lied, Speicherort des Liedes)
Bitte helft mir dieses Problem zu lösen.
(Muhkuh: du hast recht, man sollte es sich selbst erarbeiten aber auf die sache mit dem formshow oder wie das heißt wäre ich nie gekommen, weil mein delphi es gar nich hat! Der Denkansatz is aber gut. ;))
Mfg Felix B

[Blackheart]

Du solltest Dir auch mal die Ereignisse anschauen OnShow.

[Die Muhkuh]

Cruesador: Dein Delphi hat es sehr wohl, weil ich selbst auch die Turbo-Version einsetze. ;-) Die Turbo-Delphis sind vollwertige Delphi-IDEs, sie können alles, was das normale Delphi auch nur, bis auf eine kleine Ausnahme, nämlich der Fremdkomponentenintegration. Ansonsten bietet es alles, was Du brauchst.

[Cruesador]

Ok, ich schicke dir dann demnächst mal ein Bild vom Objektinspektor nachdem ich auf den hintergrund von "Form1" gedrückt habe ... da gibt es wirklich nichts ...

[Die Muhkuh]

Dann drückst Du im ObjectInspector mal noch auf "Ereignisse" und siehe da: OnShow ;)

[Cruesador]

ok ich gucke mal

[Progman]

Wenn man Form1 sieht, brauch man nur mal F12 drücken und schon ist man im Quellcode.... :roll: :P

[Die Muhkuh]

Zitat:

Zitat von Progman

Wenn man Form1 sieht, brauch man nur mal F12 drücken und schon ist man im Quellcode.... :roll: :P

:wall: Er hat es davon, dass er das Ereignis "OnShow" nicht hat, wo der CodeEditor ist, weiß er ja...

[Progman]

Delphi-Quellcode:

implementation

{$R *.dfm}

procedure TForm1.FormShow(Sender: TObject);
begin
  TimeToRun:=5;
  Timer1.Enabled:=True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  //solange TimeToRun größer Null nur anzeigen und weiterzählen
  Label1.Caption:='Zeit bis zum Start: '+IntToStr(TimeToRun)+' sek.';
  if TimeToRun = 0 then begin
    Timer1.Enabled:=False; //Timer anhalten
    //Sound starten
    MediaPlayer1.FileName:='test.wav'; //muss im selben Verz. sein
    MediaPlayer1.Open;
    MediaPlayer1.Play;
  end;
  dec(TimeToRun); //um 1 erniedrigen
end;

Das kriegt er zu sehen, wenn er F12 drückt, da ist ganz deutlich FormShow :lol:

[Die Muhkuh]

:wall:

Zitat:

Zitat von Cruesador

Ok, ich schicke dir dann demnächst mal ein Bild vom Objektinspektor nachdem ich auf den hintergrund von "Form1" gedrückt habe ... da gibt es wirklich nichts ...

Lesen ;-)

[DeddyH]

Der OI hat 2 Registerreiter (zumindest unter Delphi 7) ;)

[Die Muhkuh]

Zitat:

Zitat von DeddyH

Der OI hat 2 Registerreiter (zumindest unter Delphi 7) ;)

Und das versuche ich am Cruesador zu sagen, aber Progman ist der Meinung, dass er es im Code nicht findet, das mag vllt. auch sein, aber Cruesador spricht eindeutig vom OI ;)

Zitat:

Zitat von Die Muhkuh

Dann drückst Du im ObjectInspector mal noch auf "Ereignisse" und siehe da: OnShow ;)

[DeddyH]

Ein Doppelklick im OI an die richtige Stelle, dann sieht man' s auch im Quelltext :mrgreen:

[Die Muhkuh]

Zitat:

Zitat von DeddyH

Ein Doppelklick im OI an die richtige Stelle, dann sieht man' s auch im Quelltext :mrgreen:

Was ihm aber nichts bringt, wenn er es selbst im OI nicht findet :mrgreen:

[DeddyH]

Unter Delphi 5:

[Die Muhkuh]

Detlef, ich kenne Delphi 5 ;-)

Ich bin nur der Meinung, dass Cruesador nicht auf Ereignisse ist, sondern auf Eigenschaften und deshalb sein OnShow nicht findet. ;-)

[edit] Entweder bin ich komplett neben der Kappe oder ihr seid es... [/edit]

[DeddyH]

Deshalb hab ich ja den Screenshot gepostet ;)

[Die Muhkuh]

Okay :-P

Ich hätte doch im Bett bleiben sollen heute. :mrgreen: *krank ist*

[Cruesador]

Achso ihr meint onshow ... ja das kenne ich ...

[Die Muhkuh]

Ich wiederhole nochmal mein gesagtes von gestern Abend, ich glaube es war eindeutig:

Zitat:

Zitat von Die Muhkuh

Dann drückst Du im ObjectInspector mal noch auf "Ereignisse" und siehe da: OnShow ;)

[Cruesador]

:( ok tut mir leid :(