Entwickler-Ecke
Multimedia / Grafik - TMediaPlayer und Progressbar
Stein - Fr 23.05.03 16:25
Titel: TMediaPlayer und Progressbar
Hi,
wollte beim MediaPlayer mit ner Progressbar das Durchlaufen einer Mediendatei anzeigen lassen mit
Quelltext
1:
2:
3:
4:
5:
6:
| Min := O;
Max := MediaPlayer1.Length;
with ProgressBar1 do
repeat
Position := MediaPlayer1.Position;
until Position = Max |
Das läuft eigentlich auch ganz gut, bloß nimmt das Programm während der Schleife keine Schätlflächenbefehle entgegen. Wie kann ich das Implementieren?
Danke im voraus...
Ciao,
Torsten
Pascal - Fr 23.05.03 16:32
normalerweise mit application.processmessages;
Aya - Sa 24.05.03 11:58
Hi,
du solltest diese Zeile:
Delphi-Quelltext
1:
| Position := MediaPlayer1.Position |
lieber in einen Timer stecken, dessen geschwindigkeit du auf 100ms setzt oder so.. :)
Oder andere möglichkeit wäre noch, es in nem extra Thread zu machen, aber ich denke.. nen Timer is völlig ausreichend *g*
Au'revoir,
Aya~
Stein - Sa 24.05.03 13:41
Titel: Dank
Hi,
danke für die schnelle Antwort.
Werde mal eure Antworten durch die Hilfe schicken und mal antesten.
Merci und Ciao,
Torsten
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!