procedure PlayVideo(Title,...">
EasyDelphi Q&A

.تم الانتقال للموقع الجديد . وسيبقى الموقع القديم هذا متاح للقراءة فقط حتى الانتهاء من نقل كل الاسئلة إلى الموقع الجديد

يمكنك طرح الاسئلة والنقاشات في الموقع الجديد. الذهاب للموقع الجديد


+2 تصويتات
205 مشاهدات

السلام وعليكم ورحمة الله وبركاته وبعد
حاولت إضافة إجراءات جديدة لمكون mediaplayer ولكن لم أعرف فهده هي محاولاتي

 

Type
Tmyhelper =class helper for tmediaplayer
Public
Procedure loadfromstream(stream:tstream)
Ebd;

في الإجراء
Procedure tmyhelper.loadfromstream(stream: tstream);
Var
S: tfilestream;
Filename:tfilename;
Begin
S:= tfilestream.create(filename,fmopenread);
Try
//S.read( s,sizeof(s));//loadfromstream
Finally
S.free;

End;

وفي إجراء loadfromfile
يكون كاتالي
 

Procedure tmyhelper.loadfromfile(const filename: tfilename);
Var
S: tfilestream;
Begin

S:=tfilestream.create(filename,openread);
Try
//S.copyfrom(s,sizeof(s));//loadfromstream
Finally
S.free;

End;



لم أعرف الكود الظي أضعه في الإجراء الدي يجعلني ٱحمل  مثلا ستريم أو ملف ثناءي أو حتى ملف  أي شيءالى المتغير ستريم
وشكرا لتعاونكم

سُئل في تصنيف Components بواسطة (430 نقاط) | 205 مشاهدات

11 إجابة

+1 تصويت

تفضل

procedure PlayVideo(Title, LinkToPlay, LbMsg: string);
var
  Intent: JIntent;
begin
  Intent := TJIntent.Create;
  Intent.setAction(TJIntent.JavaClass.ACTION_VIEW);
  Intent.setPackage(StringToJString('org.videolan.vlc'));
  Intent.setDataAndType(StrToJURI(LinkToPlay), StringToJString('video/*'));
  Intent.putExtra(StringToJString('title'), StringToJString(Title));
  Intent.putExtra(StringToJString('from_start'), StrToBool('false'));
  Intent.putExtra(StringToJString('position'), StrToInt('90001'));
  SharedActivity.startActivity(Intent);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  LinkToPlay: string;
begin
  LinkToPlay :=
    'https://byaara.club/f/videos/1516577461/e5c6d3ceb959f68241094a7dcc97900d/480p.mp4/index-v1-a1.m3u8';
  PlayVideo('Playing', LinkToPlay, 'Please Wait...');
end;

 

تم الرد عليه بواسطة (2,870 نقاط)
0
بارك الله فيكم وآآآسف على الازعاج وتشرفت بمعرفتك

اسئلة متعلقة

+2 تصويتات
1 إجابة
+1 تصويت
4 إجابة
سُئل ديسمبر 2، 2019 في تصنيف fmx بواسطة nacertaker (240 نقاط) | 118 مشاهدات
+1 تصويت
1 إجابة
سُئل نوفمبر 12، 2019 في تصنيف fmx بواسطة xorpas (1,360 نقاط) | 53 مشاهدات
0 تصويتات
2 إجابة
سُئل أكتوبر 5، 2019 في تصنيف fmx بواسطة xorpas (1,360 نقاط) | 236 مشاهدات
0 تصويتات
2 إجابة
سُئل فبراير 5، 2019 في تصنيف fmx بواسطة NADIRE (870 نقاط) | 117 مشاهدات
ادعُ اصدقائك في الفايسبوك لمشاركتك
Comodo SSL

مرحبًا بك إلى EasyDelphi Q&A، حيث يمكنك طرح الأسئلة والحصول على الإجابة عليها من المستخدمين الآخرين.

لا يسمح بطلب او السؤال عن كراك او تفعيل او كسر او فك او اي شيء يخالف اتفاقيات الترخيص  مهما كان السبب ومهما كان البرنامج ونوعه. ولا حتى نشر روابط تحتوي على مثل هذه الاشياء لا في الاسئلة ولا في الاجابات ولا التعليقات . نهائيا

497 سؤال
752 إجابة
1,417 تعليق
271 مستخدم