TMediaPlayer

[Alex_ITA01]

Servus ich hab da mal ne frage.

Problem: Ich hab ja schon einiges über TMediaPlayer und so gelesen und bei mir geht ja auch alles aber wenn ich irgendwas abspiel dann würde ich gerne die dauer des movies oder mp3 oder wav angezeigt bekommen.Ich habe es schon mit MediaPlayer.Lenght und position und sowas probiert aber irgendwie hunzt das net.Wenns geht würde ich es gerne in einem einfachen label anzeigen lassen.
also ich hoff mir kann da einer helfen,stelle natürlich auch mal mein prog dann bereit aber würde es eben erst fertig haben wollen


danke alex

[Dagon]

Ich bin mir nicht 100%ig sicher aber versuchs mal mit

mci_TMSF_Minute(MediaPlayer1.Position)und
mci_TMSF_Second(MediaPlayer1.Position).

Die beiden Funktionen befinden sich in der Unit MMSystem.

[Alex_ITA01]

Hab getestet aber irgendwie kommt immer 0 raus
aber danke trotzdem

[Dagon]

Ich habe mal einen kleinen Player geschrieben und habe ihn nun gefunden!
So liest man die Länge aus (grob dargestellt):

Delphi-Quellcode:

function Seconds(Time: Integer): Integer;
begin
  Result := HiByte(LoWord(Time));
end;

function Minutes(Time: Integer): Integer;
begin
  Result := LoByte(LoWord(Time));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  len := MediaPlayer1.TrackLength[Nr];
  Edit.Text := Format('%.2d:%.2d', [Minutes(len), Seconds(len)]);
end;

Wobei Nr die Tracknummer ist.

[Alex_ITA01]

danke jetzt zeigt er nicht mehr 0 an aber dafür bei einer 0:11 min mpg file zeigt er 23:01 an ?

[Dagon]

Vielleicht liegt es daran, dass mpg ein Filmformat ist? Funktioniert es mir wav-Dateien?

[Alex_ITA01]

kann ich auf arbeit nicht testen weil ich keine soundkarte habe,es kommt sonst fehler mci device error weil sie ja net vorhanden ist