Progressbar soll position des Mediaplayers anzeigen.

[cov]

Hi leute. Ich tüftle schon eine stunde an dem problem. Weiss einfach net warums nicht geht. Mein progressbar zeigt einfach immer ne falsche position.

Delphi-Quellcode:

// In meinem Button
Progressbar1.Position := Mediaplayer1.Position
// Im Timer
Progressbar1.Position := Mediaplayer1.Position

lg CoV.

[BullsEye]

Du must erst der Progressbar sagen, was sie da auslesen soll.

Delphi-Quellcode:

ProgressBar1.max:=//z.B. Länge des Liedes
ProgressBar1.position:=0;//Position von der aus gezählt werden soll

progressbar

[cov]

ne das hat net geklappt.

[Matze]

Hast du es so versucht?

Delphi-Quellcode:

// Nach dem Öffnen
ProgressBar.Max := MediaPlayer.Length;

// Bsp. im OnTimer
ProgressBar.Position := MediaPlayer.Position;

[cov]

ja geanu so hab ich das versucht. aber das klapt irgendwie net.

[Die Muhkuh]

So wie Matze und Marc es zeigen funktioniert es. Da musst Du was falsch machen.

[Larsi]

Und du hast ganz sicher die Progressbar am Anfang auch auf null stehen?

[cov]

hier meine Button.click prozedur

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
begin
  if B2CLICKED = false
    then begin
      Mediaplayer1.Play;
      Button2.Caption := 'Pause';
      B2CLICKED := true;
      Timer1.Enabled := true;
      Progressbar1.Max := Mediaplayer1.Length;
      Progressbar1.Position := 0;
    end
  else begin
      Mediaplayer1.Pause;
      Button2.Caption := 'Play';
      B2CLICKED := false;
  end;

end;

hier die ontimer prozedur.

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin

  Progressbar1.Position := Mediaplayer1.Position
end;

Das Problem ist jetzt das der Progressbar erst bei der hälfte ist, obwohl das lied schon vorbei war.


lg CoV.

[Matze]

Ich habe es gerade getestet und bei mir funktioniert es ohne Probleme so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  MediaPlayer1.Open;
  ProgressBar1.Max := MediaPlayer1.Length;

  MediaPlayer1.Play;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  ProgressBar1.Position := MediaPlayer1.Position;
end;

Welcher Dateityp wird abgespielt (MP3, WAV, MIDI, ...)?
Tritt das Problem bei allen Musikdateien auf?

Es könnte hilfreich sein, wenn du dein ganzes Projekt (den Quelltext, evtl. + Exe) anhängen würdest, damit man das mal selbst testen kann.

[cov]

HIHI jetzt funzt es. Sry das lag wohl an der mp3 datei. wahrscheinlich ein scheiss codec oder so. Also mit den anderen funzt es und mit wma auch. also danke an euch alle. hoffe ich hab euch nicht zu sehr strapaziert.

vielen danke und lg CoV.