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