Mp3 Länge mit mcisendstring

[Moyyer]

Hallo Alle Zusammen

Ich habe einen Player. Im Internet habe ich gefunden, dass man mit
mcisendstring('status MP3 Length'...) die Länge der MP3-Datei ermitteln kann.

Code:

procedure TPlayer.IPlayClick(Sender: TObject);
var I: integer;
    nlength: Pchar;
begin
if s = '' then exit;
istopclick(self);
mciSendString(PChar('open "' + s + '" alias MP3'), nil, 0, 0);
mciSendString('play MP3', nil, 0, Player.Handle);
mciSendString('status MP3 length',nlength, length(nlength), 0);
 showmessage(nlength);
end;

Nur leider steht in der showmessage nichts drin.
wieso?

Hat jem. eine Idee?

MfG Moyyer

[Moyyer]

Hi

Für alle die, die das Problem auch haben, sende ich hier mal noch die Lösung.
(Da scheinbar niemand mehr lust hat sein Wissen zu posten :evil: )

Code:

procedure TPlayer.IPlayClick(Sender: TObject); 
var I: integer; 
    nlength: string; 
begin 
if s = '' then exit; 
istopclick(self); 
mciSendString(PChar('open "' + s + '" alias MP3'), nil, 0, 0); 
mciSendString('play MP3', nil, 0, Player.Handle); 
setlength(nlength, 255);
mciSendString('status MP3 length',pchar(nlength), length(nlength), 0); 
showmessage(nlength); 
end;

MfG Moyyer

[SirThornberry]

wo hast du das gefunden? MSDN? Hat also nur das setLength gefehlt??

Zitat:

(Da scheinbar niemand mehr lust hat sein Wissen zu posten )

Vielleicht wusste es auch wirklich niemand. Alles was ich kenne beruht darauf das ganze zu encoden und dann per wave auszugeben bzw, die mp3 header auszulesen und dann daraus berechnen wie lang die date ist.

Funktioniert die Methode auch bei variablen Bitraden oder wird die länge nur berechnet und nicht wirklich überprüft (per filescan)

[Moyyer]

Zitat:

wo hast du das gefunden? MSDN? Hat also nur das setLength gefehlt??

Ich hab ein bisschen damit rumgespielt und irgendwann hats funktioniert. :dancer:

Ich kann allen nur raten, wenn sie einen leistungsfähigen Player programmieren wollen, es mit
MCISENDSTRING zu machen. Selbst Lautstärke ist damit kein Problem mehr.

Hilfreich ist auch wie oben genannt MSDN. Hier der Link
MCISENDSTRING

Ihr könnt den Player bald auf www.moyyer.de runterladen.
Fragen könnt ihr gern an mich stellen.

MfG Moyyer