XE5 Android player ile online video

Merhabalar, Gerek dışardan belirli konularda yardım alarak gerekse kendi cabalarımla XE5'i daha fazla öğrenmeye çalışırken kendimce güzel bir örnek çıkardım ve düşündüm ki birçok arkadaşımız yararlanmak isteyebilir.
Projenin içeriği:
 ~VK.comdan XSuperObject yardımı ile Json verilerini parse edip Android playerde video izleme, ~Sibnet.com dan Android playerde video izleme,
~TurkanimeTv.net video playerinden Android playerde video izleme. Hatalarım varsa düzeltenleri için teşekkürler.

İndirmek  için tıklayın. - Download!

XE5 Android Video Açma

Herkese merhaba. Bu yazıda deploy ettiğimiz videoyu cihazın kendi video playeri ile çalıştıracağız. Benzer yöntemleri internetteki kaynaklardan edinebilirsiniz fakat en doğru yöntemi bilmemiz her zaman zorunludur. Resimdeki gibi bir ekran tasarlayabilirsiniz.

 

 

 Play butonuna aşağıdaki kodları yazıyoruz

procedure TForm1.Button1Click(Sender: TObject);
var
Intent: JIntent;
FileName, DestFileName: string;
Data: Jnet_Uri;
CompName: JComponentName;
const
VIDEO_FILENAME = 'videoviewdemo.mp4';
begin
FileName := System.IOUtils.TPath.GetDocumentsPath + PathDelim + VIDEO_FILENAME;
DestFileName := TPath.GetSharedDownloadsPath + PathDelim + VIDEO_FILENAME;
// Copy the file into a public path (you can use any public path)
TFile.Copy(FileName, DestFileName, true);
Data := TJnet_Uri.JavaClass.parse(StringToJString('file://' + DestFileName));
Intent := TJIntent.Create;
Intent.setAction(TJIntent.JavaClass.ACTION_VIEW);
if CheckBox1.IsChecked then
begin
CompName := TJComponentName.JavaClass.init(StringToJString('android'),
StringToJString('com.android.internal.app.ResolverActivity'));
Intent.setComponent(CompName);
end;
Intent.setDataAndType(Data, StringToJString('video/mp4'));
try
MainActivity.startActivity(Intent);
except
on E: Exception do
begin
Label1.Text := E.Message;
end;
end;
end;

Orjinal konu için tıklayınız. İngilizcem pek iyi sayılmaz ama anlayabildiğimce sizlere anlatmaya çalıştım.