Mp3 Länge mit mcisendstring

[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 )

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