play a stream media

playstream.pas

 

uses 
	iOSapi.Foundation, iOSapi.MediaPlayer, FMX.Platform.iOS; 

Type 

TForm1 = Class( TForm ) 
	Procedure FormCreate( Sender: TObject ); 
Private 
	{ Private declarations } 
Public 
	{ Public declarations } 
	MPlayer : MPMoviePlayerViewController; 
End; 

Procedure TForm1.FormCreate( Sender: TObject ); 
Var 
	URL : NSURL; 
	URLStr: String; 
Begin 
	URLStr := 'Http://webradio.antennevorarlberg.at:80/classicrock'; // <----- *Add here you video stream URL* 
	URL := TNSUrl.Wrap( TNSUrl.OCClass.URLWithString( NSStr( URLStr ) ) ); 
	MPlayer := TMPMoviePlayerViewController.Wrap( TMPMoviePlayerViewController.Alloc.InitWithContentURL( URL ) ); 
	MPlayer.MoviePlayer.SetMovieSourceType( MPMovieSourceTypeStreaming ); 
	WindowHandleToPlatform( Self.Handle ).View.AddSubview( MPlayer.view ); 
	MPlayer.Retain; 
End; 

//- See more at: http://codeverge.com/embarcadero.delphi.firemonkey/is-media-player-support-live-vi/1052586#sthash.nMR1IYin.dpuf

MPMoviePlayerViewController? imcomplete