Tmediaplayer xe 2

[bernhard_LA]

der Tmediaplayer hat weiterhin beim Abspielen einzelner Files Probleme, auch mit der neuen Codeversion.
Ihm fehlen vermutlich die richtigen Codecs.

Kann ich die Liste der verfügbaren Codecs mir vom Tmediaplayer ausgebenlassen ?

Delphi-Quellcode:

procedure TMediaPlayerForm.PlayFile(s: string);
var
  MediaPlayer1: TMediaPlayer;
begin
  if (FileExists(s)) then
  begin
    MediaPlayer1 := TMediaPlayer.Create(Self);
    try
      MediaPlayer1.Parent := Self;

      MediaPlayer1.Display := Panel1;
      MediaPlayer1.FileName := s;
      MediaPlayer1.Wait := true;
      MediaPlayer1.Open;
      MediaPlayer1.play;
    finally
      begin
        //  warte bis video abgespielt ....
        repeat
          sleep(1000);
        until (MediaPlayer1.Position = MediaPlayer1.Length);
        FreeAndNil(MediaPlayer1);
      end;
    end;
  end;
end;