Mediaplayer Length und Position werden falsch dargestellt

[Poseidon]

Hallo Delphianer,
in meinem Media soll dei Position und Length dargestellt werden. Ihrgendwie kommen aber seltsame Ergebnisse heraus, z.B. 2(min) 214(sek) oder 4576(sek).
Weder

Delphi-Quellcode:

type
  HMSRec = packed record
  Hours: byte;
  Minutes: byte;
  Seconds: byte;
  NotUsed: byte;
   end;

{...}

procedure TForm1.Timer12Timer(Sender: TObject);
var
TheLength: LongInt;  ThePos2:LOngint;
begin

 If Mediaplayer1.Mode = mpplaying then
 begin


MediaPlayer1.TimeFormat := tfHMS;

TheLength := Mediaplayer1.Length;
with HMSRec(TheLength) do 
begin
Label21.Caption := IntToStr(minutes); 
Label22.Caption := IntToStr(Seconds); 
end;
  
 ThePos2 := Mediaplayer1.Position;
with HMSRec(ThePos2) do
begin

Label24.Caption := IntToStr(minutes); 
Label26.Caption := IntToStr(Seconds); 
end;
  end;
   end;

noch

Delphi-Quellcode:

type
  HMSRec = record
  Hours: byte;
  Minutes: byte;
  Seconds: byte;
  NotUsed: byte;
   end;

{...}

procedure TForm1.Timer12Timer(Sender: TObject);
var
TheLength: LongInt;  ThePos2:LOngint;
begin

 If Mediaplayer1.Mode = mpplaying then
 begin


Mediaplayer1.TimeFormat := tfmilliseconds;

TheLength := Mediaplayer1.Length;
with HMSRec(TheLength) do 
begin

Label21.Caption := IntToStr(thelength div 60000); 
Label22.Caption := IntToStr(thelength mod 60000); 
end;
   
 ThePos2 := Mediaplayer1.Position;
with HMSRec(ThePos2) do
begin
 
Label24.Caption := IntToStr(thepos2 div 60000); 
Label26.Caption := IntToStr(thepos2 mod 60000); 
end;
  end;
 end;

Futz. Was mach ich falsch? Vielen dank im voraus.

mfg Poseidon

[SirThornberry]

Es ist eine Fehlannahme das Length und Position ms sind. Abhängig vom codec ist auch die Einheit von Position und Length. Es können Frames sein, Sekunden etc.
Wenn man direkt mit mci Befehlen arbeitet kann man direkt die Länge in ms abfragen.

[Poseidon]

Danke für die schnelle Antwort
Wie setze ich das mit meinem Code so um das es in meinem Mediaplayer richtig funktioniert?

[SirThornberry]

Mit folgenden Zeilen kannst du das Format auf ms umstellen:

Delphi-Quellcode:

var
  lSetParms       : TMCI_Set_Parms;
begin
  ZeroMemory(@lSetParms, SizeOf(lSetParms));
  lSetParms.dwTimeFormat := Cardinal(MCI_FORMAT_MILLISECONDS);

  mciSendCommand(fDevID, MCI_SET, MCI_WAIT or MCI_SET_TIME_FORMAT, Cardinal(@lSetParms));

wobei fDevID das Handle des geöffneten Gerätes ist (entspricht dem Property Handle des TMediaplayer).
Vielleicht gibt es beim TMediaplayer auch eine Eigenschaft um das einzustellen. Da ich selbst direkt mit den MCI-Funktionen gearbeitet habe kenne ich mich da nicht so genau aus.