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