Spieldauer oder Bitrate von MP3-Dateien
Verfasst: 09.11.2010 20:11
Vor langem hab ich aufgegeben, die Spieldauer oder Bitrate aus MP3-Dateien auszulesen, um per Programm in meinem Musikbestand doppelte Dateien zu erkennen und zu löschen.
Nun will ich nochmal einen Versuch unternehmen, nachdem ich folgende Seiten gefunden habe:
http://www.purearea.net/pb/german/userlibs.php
MP3-Info ? 1.0 23.09.2002 El_Choni 3 KB
Funktion zur Ermittlung verschiedener Informationen rund um MP3-Dateien, wie Größe, Länge, Bitrate, Frequenz usw
Die Datei „MP3-Info.pb“ enthält folgenden Code:
1 Structure MP3INFO
2 fileSize.l ; in bytes
3 fileLength.l ; in milliseconds
4 bitrate.l ; in bps. if negative: variable bitrate,bitrate=negated average
5 frequency.l ; in Hertz
6 nFrames.l ; number of MPEG frames
7 EndStructure
8 mpi.MP3INFO
9
10 GetMP3Info("d:\Queen - I want it all.mp3", @mpi)
11 laenge=mpi\fileLength/1000 ;Länge in Sekunden ermitteln
12 Debug laenge
Ich bekomme die Fehlermeldung “GetMP3Info() is not a function, macro or linked list” , die mir sagt, dass die Funktion noch nicht zur Verfügung steht.
Steckt diese Funktion in der Datei „MP3“ ???
Wenn ja, wie binde ich sie ein ???
Oder hat jemand alternativ irgend ein Stück PB-Programm-Code, dass in folgendem Beispiel die „Spieldauer“ auswirft ???
File$ = "H:\Pop-1990-1999\Abba - People Need Love.mp3"
Pattern$ = "Alle Dateien (*.*)|*.*"
Pattern = 0
File$ = OpenFileRequester("Bitte Datei zum Laden auswählen", File$, Pattern$, Pattern)
Groesse = FileSize(File$)
; Spieldauer = ??? und diese Zeile steht für die mir fehlenden Code-Zeilen !!!
Debug File$
Debug "Dateigröße: " + Str(Groesse)
Debug "Spieldauer: " + Str(Spieldauer)
End
Wer kann mir Anfänger helfen ?
Nun will ich nochmal einen Versuch unternehmen, nachdem ich folgende Seiten gefunden habe:
http://www.purearea.net/pb/german/userlibs.php
MP3-Info ? 1.0 23.09.2002 El_Choni 3 KB
Funktion zur Ermittlung verschiedener Informationen rund um MP3-Dateien, wie Größe, Länge, Bitrate, Frequenz usw
Die Datei „MP3-Info.pb“ enthält folgenden Code:
1 Structure MP3INFO
2 fileSize.l ; in bytes
3 fileLength.l ; in milliseconds
4 bitrate.l ; in bps. if negative: variable bitrate,bitrate=negated average
5 frequency.l ; in Hertz
6 nFrames.l ; number of MPEG frames
7 EndStructure
8 mpi.MP3INFO
9
10 GetMP3Info("d:\Queen - I want it all.mp3", @mpi)
11 laenge=mpi\fileLength/1000 ;Länge in Sekunden ermitteln
12 Debug laenge
Ich bekomme die Fehlermeldung “GetMP3Info() is not a function, macro or linked list” , die mir sagt, dass die Funktion noch nicht zur Verfügung steht.
Steckt diese Funktion in der Datei „MP3“ ???
Wenn ja, wie binde ich sie ein ???
Oder hat jemand alternativ irgend ein Stück PB-Programm-Code, dass in folgendem Beispiel die „Spieldauer“ auswirft ???
File$ = "H:\Pop-1990-1999\Abba - People Need Love.mp3"
Pattern$ = "Alle Dateien (*.*)|*.*"
Pattern = 0
File$ = OpenFileRequester("Bitte Datei zum Laden auswählen", File$, Pattern$, Pattern)
Groesse = FileSize(File$)
; Spieldauer = ??? und diese Zeile steht für die mir fehlenden Code-Zeilen !!!
Debug File$
Debug "Dateigröße: " + Str(Groesse)
Debug "Spieldauer: " + Str(Spieldauer)
End
Wer kann mir Anfänger helfen ?