Entwickler-Ecke
Multimedia / Grafik - MP3 abspielen durch ein anderen Timer
Delphi7 - Di 07.10.03 17:05
Titel: MP3 abspielen durch ein anderen Timer
Hallo nochmals
Ich habe hier noch ein problem!!!
Bei mein Project soll eine Image ihre Position erreichen "720". Wenn die Image ihre Position erreicht hat wird eine Sound-Datei abgespielt eine WAV-Datei.
Mein Code:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
| procedure TForm1.Timer11Timer(Sender: TObject);
begin
Timer11.Interval:=10;
if Image12 <> nil then
Image12.Left:=Image12.Left + 4;
if Image12.Left=720 then
with MediaPlayer1 do
begin
FileName:='Sounds\FldrKlick.wav';
AutoRewind:=True;
Open;
try
Play;
finally
Timer11.Interval:=0;
end;
end;
end; |
Das tut. Aber wenn ich jetzt von ein anderen Timer steure und zwar wenn SpeedButton3.Hide ist soll eine MP3-Datei abgespielt werden.
Der Code:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
| procedure TForm1.SpeedButton3Click(Sender: TObject);
with MediaPlayer1 do
begin
FileName:='Music\Myth.mp3';
AutoRewind:=True;
Open;
try
Play;
finally
end;
end;
end; |
Aber es tut nicht. Die Datei wird woll abgespielt aber nach 1 sek. wiederholt sie sich immer wieder. Was soll ich tun?????
DANKE.............
Delphi.
Moderiert von 
Tino: Delphi-Tags hinzugefügt.
Anonymous - Di 07.10.03 17:15
das macht wohl diese Zeile.
p.S: es heißt
das Image.
[EDIT]
nimm doch mal delphi-tags, das tut der Übersicht gut.
Delphi7 - Di 07.10.03 23:29
Danke man.
Ich hab es hinbekommen. Und zwar:
Ich musste erstens die position 720 weglassen weil wenn "das" image in der position steht wird ja natürlich die datei nach jeder sek. wiederholt.
also ich habe hingeschrieben position 710 die datei wird abgespielt alles leuft aber es sollen noch zwei speedbuttons angezeigt werden aber tun sie nicht (SpeedButton5 und SpeedButton6)
was ist hier falsch?
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
| procedure TForm1.SpeedButton3Click(Sender: TObject);
begin
Form1.Timer1.Enabled:=False;
Form1.Timer2.Enabled:=False;
Form1.Timer3.Enabled:=False;
Form1.Timer4.Enabled:=False;
Form1.Timer5.Enabled:=False;
Form1.Timer6.Enabled:=False;
Form1.Timer7.Enabled:=False;
Form1.Timer8.Enabled:=False;
Form1.Timer9.Enabled:=False;
Form1.Timer10.Enabled:=False;
Form1.Timer11.Enabled:=False;
Form1.Timer12.Enabled:=False;
Form1.Image1.Left:=720;
Form1.Image3.Left:=720;
Form1.Image4.Left:=720;
Form1.Image5.Left:=720;
Form1.Image6.Left:=720;
Form1.Image7.Left:=720;
Form1.Image8.Left:=720;
Form1.Image9.Left:=720;
Form1.Image10.Left:=720;
Form1.Image11.Left:=720;
Form1.Image12.Left:=720;
Form1.Image1.Enabled:=True;
Form1.Image3.Enabled:=True;
Form1.Image4.Enabled:=True;
Form1.Image5.Enabled:=True;
Form1.Image6.Enabled:=True;
Form1.Image7.Enabled:=True;
Form1.Image8.Enabled:=True;
Form1.Image9.Enabled:=True;
Form1.Image10.Enabled:=True;
Form1.Image11.Enabled:=True;
Form1.Image12.Enabled:=True;
Form1.Panel1.Enabled:=True;
SpeedButton3.Hide;
SpeedButton5.Show;
SpeedButton5.Enabled:=False;
SpeedButton6.Show;
SpeedButton6.Enabled:=True;
with MediaPlayer2 do
begin
FileName:='Music\Myth.mp3';
Open;
try
Play;
finally
end;
end;
end; |
kann du mir vielleicht helfen oder irgendein anderer?
thanks... :arrow:
Moderiert von Tino: Delphi-Tags hinzugefügt.
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!