Einzelnen Beitrag anzeigen

greenmile

Registriert seit: 17. Apr 2003
1.107 Beiträge
 
Delphi 10.3 Rio
 
#4

AW: TMediaplayer / TMediaplayerControl

  Alt 13. Jun 2014, 15:02
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;

Geändert von greenmile (13. Jun 2014 um 15:05 Uhr)
  Mit Zitat antworten Zitat