MP3 abspielen durch ein anderen Timer

Delphi7 · Verfasst: Di 07.10.03 17:05

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:

markieren

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:

markieren

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.

Gast Erhaltene Danke: 1

markieren

Delphi-Quelltext

1:	AutoRewind:=True;

das macht wohl diese Zeile.

p.S: es heißt das Image.

[EDIT]
nimm doch mal delphi-tags, das tut der Übersicht gut.

Delphi7 · Verfasst: 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?

markieren

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.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme