TMediaplayer / TMediaplayerControl

[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;