Dauer einer MP3-File ermitteln

[Luki206]

Hi, ich habe ein Problem. Ich habe jetzt tausende Klassen (korrigiert mich wenn ich damit Falsch liege, also ich meine zusätzliche .pas Dateien) in meinem Projekt Ordner nur weiß ich jetzt nicht wie ich die Dauer eines Liedes ermitteln soll.. Mit Titel, Album, Inter... klappt das nur nicht mit der Dauer. So lese ich bis jetzt die Tags aus:

Delphi-Quellcode:

unit Test;


uses
ShellApi, MMSystem, Registry, IniFiles, System.Win.ScktComp, Bass, AudioFiles;


type 
TFrmTest = class(TForm)
//...
private
MainAudioFile: TGeneralAudioFile;

//...

procedure TFrmTest.Button1Click(Sender: TObject);
begin
if Opendialog1.Execute then begin
    MainAudioFile := TGeneralAudioFile.Create(OpenDialog1.FileName);
    Label1.Caption := MainAudioFile.Titel;
    //... 
end;
end.

Ich hoffe man kann damit etwas anfangen. Wenn ich jetzt MainAudioFile. eingebe, kann ich zwar vieles auswählen nur die Dauer nicht.
Danke
Luki

[DeddyH]

Ist das die Unit von Gausi? Da heißt die Eigenschaft Duration IIRC.

[Medium]

Zitat von Luki206:

(korrigiert mich wenn ich damit Falsch liege, also ich meine zusätzliche .pas Dateien)

Das wären dann Units. Im absoluten Idealfall heisst es zwar: "Pro Unit genau eine Klasse", aber die beiden Begriffe sind nicht gleich. Eine Unit kann etliche Klassen beinhalten. (Und in der Praxis sind oft zig Klassen in einer Unit deklariert, was mMn. zuweilen auch Sinn machen kann.) (Und auch nur ohne auf das eigentliche Problem einzugehen geposted, weil du drum gebeten hast )

[Luki206]

@DaddyH Ja, die sind von Gausi
@Medium Ah ok, also sind die Klassen Dinge die man in USES schreibt?

Edit: ich habe nur Duration nicht mit IIRC.. Oder ist das dasselbe?

[DeddyH]

IIRC ist ein Akronym: If I Remember Correctly, das hatte nichts mit der Property zu tun.

[Luki206]

Oh, das ist mir jetzt peinlich... Ok danke. Wenn ich die Dauer jetzt abfrage dann bekomme ich ja eine Durchgehende Zahl, wie kann ich zwischen die Minuten und Sekunden einen Doppelpunkt setzen?

[Sir Rufo]

Zitat von Luki206:

@Medium Ah ok, also sind die Klassen Dinge die man in USES schreibt?

Nein.

Zitat von Luki206:

Delphi-Quellcode:

unit Test;

uses
ShellApi, MMSystem, Registry, IniFiles, System.Win.ScktComp, Bass, AudioFiles;

In den uses trägt man die unit s ein, deren Funktionalität man benutzen möchte.

Du hast eine unit Test die du auch in einer anderen unit benutzen kannst, wenn du die dort bei uses einträgst.

Delphi-Quellcode:

unit LukiTest;

uses
  Test;

[Luki206]

Ah ok, gut dass das jetzt auch geklärt ist, damit ich nicht wie ein Vollidiot da stehe wenn ich sowas schreibe

[Puke]

Diese lange Zahl ist die Zeit in Sekunden.

Format('%d:%d',[zeit DIV 60, zeit Mod 60]) Das sollte seine Arbeit tun ...

[Luki206]

Ok, klappt. Danke