Mit dem Mediaplayer MP4 abspielen

[blawen]

Unter FMX starte ich den Player wie folgt:

Delphi-Quellcode:

function TfrmMain.Video_abspielen(AVideo: String): Boolean;
begin
  try
    Result := True;
    MediaPlayer1.Stop;
    MediaPlayer1.FileName :=  GetPathWithVideo + AVideo;  
    MediaPlayer1.CurrentTime := 0;
    MediaPlayerControl1.Visible := True;
    MediaPlayer1.Play;
  Except
    memStatus.Lines.Add('Video nicht gefunden: ' + GetPathWithVideo + AVideo);
    Result := False;
  end;
end;

Unter der VLC dürfte es ähnlich sein.