mediaplayer og wma

Ja, selvfolgelig kan den det! Da, Delphi's TMediaPlayer benytter codecs der er installeret paa Windows - og ikke pre-definerede codecs.

Maaske er det fordi du ikke afslutter den igangvaerende afspilning inden du starter paa en ny afspilning! Altsaa med andre ord husker du at:

1) stoppe afspilningen (Stop)
2) lukke den igangvaerende afspilning (Close MCI channel)
3) Aabne den nye medie (Open MCI channel)
4) AutoRewind (Eller manuel rewind)
5) afspil den nye medie (Play)

Og husk at goere det i den raekkefoelge som listen ovenover viser!

Husk paa at disse proccesser tager lidt tid at udfoere alt efter stoerrelsen paa dine medier, saa du boer bruge TMediaPlayers Mode til at se mediaplayers status og saa du undgaar at presse TMediaPlayeren til at goere en operation, den ikke er klar til at udfoere.

Desuden kan du hive en ErrorMessage ud af MediaPlayeren, hvis der sker fejl! Det er altid rart saa man kan se, hvorfor fejlen opstod!

[Redigeret d. 09/05-04 14:04:23 af Søren Klit Lambæk]

Jeg mener ikke at mediaplayeren er lavet til at spille WMA. (Den gang da komponentet blev lavet fandtes det vist ikke). Du skal nok finde et andet komponent til det. Prøv at kigge på http://www.torry.net






-------------------------------------------------------
Jonas (Decko)
http://www.growyourownshit.com/users/Decko
-------------------------------------------------------

den kan jo godt afspille en sang så længe jeg ikke skifter

det jeg ikke forstår er at det virker med mp3 filer, der kan jeg godt vælge en sang før den er færdig uden problemer

det er kun med wma.
her er min play function hvis det kan hjælpe


function TForm1.PlaySong : string;
var
mp3File : string;
begin

if listbox1.Items.Count=0 then exit;


mp3File := listbox1.Items.Strings[listbox1.ItemIndex];


if not FileExists(mp3File) then begin
ShowMessage('The MP3 file does not exist!');
exit;
end;


Progress.MaxValue := 0;
Mediaplayer1.close;
mediaplayer1.FileName := mp3File;
mediaplayer1.open;
mediaplayer1.play;
timer1.Enabled := true;
Progress.MaxValue := mediaplayer1.Length;
timer2.Enabled := true;
end;