TMediaplayer / TMediaplayerControl

[greenmile]

Hallo,

ich verwende TMediaplayer / TMediaplayerControl, um Videos wiederzugeben.

Wenn ich TMediaplayer (ohne TMediaplayerControl) eine Datei als .Filename gebe, dann wird die Datei unter iOS/Android abgespielt, ich kann diese jedoch nicht kontrollieren, was gerade unter iOS blöd ist: Wie komme ich da zurück?

Also habe ich ein TMediaplayerControl auf die Form gepackt und über die Eigenschaft .Mediaplayer mit dem TMediaplayer verknüpft. Jetzt passiert jedoch nichts mehr, es kommt also kein Video, nix. Funktioniert das so nicht? Bei den Beispielen von Embar sind TMediaplayer und TMediaplayerControl ebenfalls nicht miteinander verknüpft und die Videos kommen nur Bildschirmfüllend. Ist das ein Fehler oder mache ich etwas falsch? Kann man unter iOS die Wiedergabe sonst irgendwie kontrollieren, also z.B. bei einem Klick auf das Video beenden?

[MEissing]

IMHO nur Fullscreen möglich....

[greenmile]

Danke für die Info, aber wie beende ich das laufende Video unter iOS? Ich kann ja kein "onClick" abfangen.

[greenmile]

Workaround: Ich habe einen Timer, der unter iOS jede 1 Sekunde gestartet wird:

Code:

MediaPlayer.FileName := VideoDatei;
MediaPlayer.Play;
Sleep(500); // Damit das Video Zeit hat, anzufangen

{$IF DEFINED(iOS)}
VideoStopTimer.Enabled := true;
{$Endif}

Im Timer wird dann abgefragt, ob das Video zu Ende ist und dann geschlossen:

Code:

If (MediaPlayer.State=TMediaState.Stopped) then begin
  VideoStopTimer.Enabled := false;
  MediaPlayer.Stop;
  MediaPlayer.Clear;
End;