procedure PlayVideo(Title,...">
EasyDelphi Q&A
+2 تصويتات
59 مشاهدات

السلام وعليكم ورحمة الله وبركاته وبعد
حاولت إضافة إجراءات جديدة لمكون 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 بواسطة (400 نقاط) | 59 مشاهدات

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,800 نقاط)
0
بارك الله فيكم وآآآسف على الازعاج وتشرفت بمعرفتك

اسئلة متعلقة

+2 تصويتات
1 إجابة
0 تصويتات
4 إجابة
سُئل ديسمبر 2، 2019 في تصنيف fmx بواسطة nacertaker (220 نقاط) | 46 مشاهدات
+1 تصويت
1 إجابة
سُئل نوفمبر 12، 2019 في تصنيف fmx بواسطة xorpas (1,320 نقاط) | 36 مشاهدات
0 تصويتات
2 إجابة
سُئل أكتوبر 5، 2019 في تصنيف fmx بواسطة xorpas (1,320 نقاط) | 64 مشاهدات
0 تصويتات
2 إجابة
سُئل فبراير 5، 2019 في تصنيف fmx بواسطة NADIRE (870 نقاط) | 87 مشاهدات
ادعُ اصدقائك في الفايسبوك لمشاركتك
Comodo SSL

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

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

482 سؤال
743 إجابة
1,395 تعليق
252 مستخدم