TMediaPlayer und Progressbar

Stein · Hält's aus hier Beiträge: 2

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 · Beiträge: 155 Win 98, Win XP Delphi 2005, Delphi 5

normalerweise mit application.processmessages;

Aya · Verfasst: Sa 24.05.03 11:58

Hi,

du solltest diese Zeile:

markieren

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~

_________________
Aya
I aim for my endless dreams and I know they will come true!

Stein · Hält's aus hier Beiträge: 2

Hi,
danke für die schnelle Antwort.
Werde mal eure Antworten durch die Hilfe schicken und mal antesten.
Merci und Ciao,
Torsten

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme