FireMonkey ve Mobil uygulama (iOS, Android, Windows Phone) ile ilgili sorularınızı bu foruma sorabilirsiniz.
AliZairov
Üye
Mesajlar: 341 Kayıt: 06 Nis 2012 03:09
Konum: Azerbaycan, Bakü
İletişim:
Mesaj
gönderen AliZairov » 07 Şub 2016 04:20
Günaydın. Delphi media player malum netdeki videoları oynatamıyor. Bu soruna çare için Androidin kendi bileşeni olan VideoView bi şekilde kodla foruma çağırmak istiyorum. Yeterli örnek olmadığından böyle sıkıntı yaşıyorum. Şimdi video ses var görüntü yok bu sorunu çöze bilmiş diğilim.
Kod: Tümünü seç
var
S: string;
NativeLayout: JNativeLayout;
VideoView: JVideoView;
MediaPlayer: JMediaPlayer;
begin
S := 'http://clips.vorwaerts-gmbh.de/VfE_html5.mp4';
TUIThreadCaller.CallWithAsyncCallback(
procedure
begin
NativeLayout := TJNativeLayout.JavaClass.init(TAndroidHelper.Activity,
MainActivity.getWindow.getDecorView.getWindowToken);
VideoView := TJVideoView.JavaClass.init(TAndroidHelper.Activity);
MediaPlayer := TJMediaPlayer.JavaClass.init;
VideoView.setX(50);
VideoView.setY(50);
VideoView.setBackgroundColor(TJColor.JavaClass.BLACK);
VideoView.setVideoURI(StrToJURI(S));
VideoView.requestFocus(0);
MediaPlayer.setDataSource(StringToJString(S));
MediaPlayer.prepare;
VideoView.start();
MediaPlayer.start();
NativeLayout.setPosition(50, 50);
NativeLayout.setSize(50, 50);
NativeLayout.setControl(VideoView);
end,
procedure
begin
end);
end;
En son
AliZairov tarafından 24 Şub 2016 04:14 tarihinde düzenlendi, toplamda 1 kere düzenlendi.
AliZairov
Üye
Mesajlar: 341 Kayıt: 06 Nis 2012 03:09
Konum: Azerbaycan, Bakü
İletişim:
Mesaj
gönderen AliZairov » 24 Şub 2016 04:31
Günaydın. Tam istediğim gibi olmasada iş görür sorunu bi nevi çözdüm.
Kaynak:
Kod: Tümünü seç
unit VideoView;
interface
uses
System.SysUtils,
FMX.Types,
FMX.Helpers.Android,
Androidapi.Helpers,
Androidapi.JNI.App,
Androidapi.JNI.Net,
Androidapi.JNI.VideoView,
Androidapi.JNI.Widget;
type
TVideoView = class(TObject)
private
FDialog: JDialog;
FVideoView: JVideoView;
public
procedure Play(Source: string);
end;
implementation
{ TVideoView }
procedure TVideoView.Play(Source: string);
begin
CallInUIThread(
procedure
begin
FDialog := TJDialog.JavaClass.init(TAndroidHelper.Activity, -1);
FDialog.setCancelable(True);
FVideoView := TJVideoView.JavaClass.init(TAndroidHelper.Activity);
FVideoView.setVideoURI(StrToJURI(Source));
FVideoView.start;
FDialog.setContentView(FVideoView);
FDialog.show;
end);
end;
end.
Kullanımı:
Kod: Tümünü seç
var
S: string;
Video: TVideoView; //uses VideoView;
begin
S := 'http://clips.vorwaerts-gmbh.de/VfE_html5.mp4';
Video := TVideoView.Create;
Video.Play(S);
ikurt07
Üye
Mesajlar: 120 Kayıt: 11 Kas 2005 04:21
Konum: Antalya
İletişim:
Mesaj
gönderen ikurt07 » 08 Eki 2019 03:05
teşekkürler ben de aynı sorunu yaşıyorum
kodu geliştirebildiniz mi