Position ändern?

stigge · Beiträge: 426 WinXP Delphi 2007

Ich verstehe einfach nicht, was hieran falsch ist:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:

procedure TForm1.TrackBar2Change(Sender: TObject);
begin
if GetAsyncKeyState(VK_LBUTTON) = 0 then begin
mediaplayer2.pause;
mediaplayer2.position := trackbar2.position;
mediaplayer2.Resume;
 end;
end;

Ich habe mal per showmessage überprüft, was jetzt als Position angegeben wird, und es ist ein möglicher Wert. Achso, der Fehler ist, das der Player nicht beginnt abzuspielen^^

Saubäär · Beiträge: 376

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:

procedure TForm1.TrackBar2Change(Sender: TObject);
begin
if GetAsyncKeyState(VK_LBUTTON) = 0 then begin
mediaplayer2.position := trackbar2.position;
mediaplayer2.Play;
 end;
end;

so gehts doch.

stigge · Beiträge: 426 WinXP Delphi 2007

Saubäär hat folgendes geschrieben:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:

procedure TForm1.TrackBar2Change(Sender: TObject);
begin
if GetAsyncKeyState(VK_LBUTTON) = 0 then begin
mediaplayer2.position := trackbar2.position;
mediaplayer2.Play;
 end;
end;

so gehts doch.

Eben nicht! Dann fängt er wieder von vorne an!

Saubäär · Beiträge: 376

stigge hat folgendes geschrieben:

Eben nicht! Dann fängt er wieder von vorne an!

Tatsache? Bei mir funktionierts :nixweiss:

stigge · Beiträge: 426 WinXP Delphi 2007

Könnte es daran liegen, das bei mir schon eine Datei wiedergegeben wird?

Saubäär · Beiträge: 376

Aaachso, du hast wahrscheinlich das hier vergessen, nicht wahr?

markieren

Delphi-Quelltext

1:
2:
3:
4:

procedure TForm1.FormActivate(Sender: TObject);
begin
 TrackBar2.Max := MediaPlayer2.Length;
end;

stigge hat folgendes geschrieben:

Könnte es daran liegen, das bei mir schon eine Datei wiedergegeben wird?

Ich denke nicht.

stigge · Beiträge: 426 WinXP Delphi 2007

Saubäär hat folgendes geschrieben:

Aaachso, du hast wahrscheinlich das hier vergessen, nicht wahr?

markieren

Delphi-Quelltext

1:
2:
3:
4:

procedure TForm1.FormActivate(Sender: TObject);
begin
 TrackBar2.Max := MediaPlayer2.Length;
end;

stigge hat folgendes geschrieben:

Könnte es daran liegen, das bei mir schon eine Datei wiedergegeben wird?

Ich denke nicht.

Nee, hab ich nicht vergessen. Ich machs sogar über die mß3utils unit von gausi, also stimmt auch duie läge ziemlich sicher. Eventuell irgendwelche falschen einstellungen beim mediaplayer? sag mal was du bei autorewind usw hast.

stigge · Beiträge: 426 WinXP Delphi 2007

Naja, ich schlaf jetzt erstmal drüber. Falls jemand noch eine Idee hat, nur her damit^^ Ich schau sie mir morgen Mittag an.

Saubäär · Beiträge: 376

Tjo, merkwürdig. Also:
AutoRewind=True, AutoOpen=True, AutoEnabled=True

das andere ist wohl eher uninteressant. Viel Glück!

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme