Entwickler-Ecke
Multimedia / Grafik - Position ändern?
stigge - Do 22.03.07 22:28
Titel: Position ändern?
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 - Do 22.03.07 22:44
Titel: Re: Position ändern?
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 - Do 22.03.07 22:50
Titel: Re: Position ändern?
 Saubäär hat folgendes geschrieben: |
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 - Do 22.03.07 22:51
Titel: Re: Position ändern?
| stigge hat folgendes geschrieben: |
Eben nicht! Dann fängt er wieder von vorne an! |
Tatsache? Bei mir funktionierts :nixweiss:
stigge - Do 22.03.07 22:53
Könnte es daran liegen, das bei mir schon eine Datei wiedergegeben wird?
Saubäär - Do 22.03.07 22:54
Aaachso, du hast wahrscheinlich das hier vergessen, nicht wahr?
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 - Do 22.03.07 22:59
| Saubäär hat folgendes geschrieben: |
Aaachso, du hast wahrscheinlich das hier vergessen, nicht wahr?
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 - Do 22.03.07 23:05
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 - Do 22.03.07 23:05
Tjo, merkwürdig. Also:
AutoRewind=True, AutoOpen=True, AutoEnabled=True
das andere ist wohl eher uninteressant. Viel Glück! :)
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 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!