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

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

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 نقاط) | 163 مشاهدات
+1 تصويت
1 إجابة
سُئل نوفمبر 12، 2019 في تصنيف fmx بواسطة xorpas (1,420 نقاط) | 69 مشاهدات
0 تصويتات
2 إجابة
سُئل أكتوبر 5، 2019 في تصنيف fmx بواسطة xorpas (1,420 نقاط) | 358 مشاهدات
0 تصويتات
2 إجابة
سُئل فبراير 5، 2019 في تصنيف fmx بواسطة NADIRE (870 نقاط) | 149 مشاهدات
ادعُ اصدقائك في الفايسبوك لمشاركتك
Comodo SSL

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

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

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