DSPack : Länge von Lied vor Abspielen herausbekommen

[Nils_13]

Ok, schön. Aber irgendwie gibt es immer Probleme:

Delphi-Quellcode:

var i : Double;
begin
  i := GetMediaLength('E:\asd.avi');
  ShowMessage('Länge: ' + FloatToStr(i) + ' Sekunden');

Dann soll das natürlich noch verwandelt werden. Dies soll mit folgender Prozedur geschehen, aber wie ?

Delphi-Quellcode:

function TfrmMain.DurationMinSec(Sekunden : Integer) : String;
var Hour, Min, Sec : Integer;
begin
  Hour      := Sekunden div 1440;
  dec(Sekunden, Hour*1440);
  Min       := Sekunden div 60;
  Sec       := Sekunden - Min * 60;
  if Boolean(Hour) then
    Result := Format('%d:%.2d:%.2d', [Hour, Min, Sec])
  else
    Result := Format('%.2d:%.2d', [Min, Sec]);
end;

*** EDIT ***
Zwar nicht gerade elegant, aber es funktioniert:

Delphi-Quellcode:

procedure TfrmMain.b1Click(Sender: TObject);
var s : String;
    i : Integer;
    p : Integer;
begin
  s := FloatToStr(GetMediaLength('<<<Pfad+Dateiname>>>'));
  p := Pos(',', s);
  if not p <= -1 then
  begin
    s := Copy(s, 0, p-1);
    s := DurationMinSec(StrToInt(s));
  end;

  ShowMessage(s);
end;

function TfrmMain.DurationMinSec(Sekunden : Integer) : String;
var Hour, Min, Sec : Integer;
begin
  Hour      := Sekunden div 1440;
  dec(Sekunden, Hour*1440);
  Min       := Sekunden div 60;
  Sec       := Sekunden - Min * 60;
  if Boolean(Hour) then
    Result := Format('%d:%.2d:%.2d', [Hour, Min, Sec])
  else
    Result := Format('%.2d:%.2d', [Min, Sec]);
end;

Ich werde noch ein wenig rumtesten, aber bedanke mich hiermit schonmal bei allen Benutzern, welche in diesem Thread gepostet haben ! Es funktioniert endlich