[/color][color=#0000FF]Sub [/color][color=#000000]Activity_Create(FirstTime [/color][color=#0000FF]As[/color][color=#008B8B]Boolean[/color][color=#000000]) Activity.LoadLayout([/color][color=#800000]"[/color][color=#800000]Sermon[/color][color=#800000]"[/color][color=#000000]) [/color][color=#008000]'[/color][color=#008000] Change this to your Activity Layout[/color][color=#008000] [/color][color=#000000]Panel1.Color=[/color][color=#0000FF]Colors[/color][color=#000000].black
Panel1.Addview(Video,[/color][color=#800080]0[/color][color=#000000],[/color][color=#800080]0[/color][color=#000000],[/color][color=#800080]100%x[/color][color=#000000], [/color][color=#800080]100%y[/color][color=#000000]) StreamVideo=[/color][color=#0000FF]True[/color][color=#008000]'[/color][color=#008000]to play video file, change to false[/color][color=#008000] [/color][color=#000000]
[/color][color=#0000FF]If[/color][color=#000000] StreamVideo=[/color][color=#0000FF]True[/color][color=#0000FF]Then[/color][color=#000000] Video.LoadVideo([/color][color=#800000]"[/color][color=#800000]http[/color][color=#800000]"[/color][color=#000000],ServiceLink)[/color][color=#008000]'[/color][color=#008000]Setup for Streaming[/color][color=#008000] [/color][color=#0000FF]Else[/color][color=#000000] Video.LoadVideo([/color][color=#0000FF]File[/color][color=#000000].DirDefaultExternal,ServiceFile)[/color][color=#008000]'[/color][color=#008000]Setup for Loading Video[/color][color=#008000] [/color][color=#0000FF]End[/color][color=#0000FF]If[/color][color=#000000]
[/color][color=#0000FF]Sub [/color][color=#000000]video1_Complete [/color][color=#008000]'[/color][color=#008000]Video finished, so We end App[/color][color=#008000] [/color][color=#000000]Activity.Finish
سوال
kamran_ba 17
سلام من میخوام یه برنامه تلویزیون فارسی بسازم و کانالهای تلویزیونی رو به صورت آنلاین نمایش بدم. کد زیر رو پیدا کردم
[color=#0000FF]Sub [/color][color=#000000]Globals
[/color][color=#0000FF]Dim[/color][color=#000000] Video [/color][color=#0000FF]As[/color][color=#008B8B]VideoView[/color][color=#000000]
[/color][color=#0000FF]Dim[/color][color=#000000] Panel1 [/color][color=#0000FF]As[/color][color=#008B8B]Panel[/color][color=#000000]
[/color][color=#0000FF]Dim[/color][color=#000000] ServiceLink [/color][color=#0000FF]As[/color][color=#008B8B]String[/color][color=#000000]=[/color][color=#800000]"[/color][color=#800000]http://media.newspring.cc/video/2013/021013_DontWasteYourLife_01_iPod.mp4[/color][color=#800000]"[/color][color=#000000]
[/color][color=#0000FF]Dim[/color][color=#000000] ServiceFile [/color][color=#0000FF]As[/color][color=#008B8B]String[/color][color=#000000]=[/color][color=#800000]"[/color][color=#800000]021013_DontWasteYourLife_01_iPod.mp4[/color][color=#800000]"[/color][color=#000000]
[/color][color=#0000FF]Dim[/color][color=#000000] StreamVideo [/color][color=#0000FF]As[/color][color=#008B8B]Boolean[/color][color=#000000]
[/color][color=#0000FF]End Sub[/color][color=#000000]
[/color][color=#0000FF]Sub [/color][color=#000000]Activity_Create(FirstTime [/color][color=#0000FF]As[/color][color=#008B8B]Boolean[/color][color=#000000])
Activity.LoadLayout([/color][color=#800000]"[/color][color=#800000]Sermon[/color][color=#800000]"[/color][color=#000000]) [/color][color=#008000]'[/color][color=#008000] Change this to your Activity Layout[/color][color=#008000]
[/color][color=#000000]Panel1.Color=[/color][color=#0000FF]Colors[/color][color=#000000].black
Video.Initialize([/color][color=#800000]"[/color][color=#800000]Video1[/color][color=#800000]"[/color][color=#000000])
Panel1.Addview(Video,[/color][color=#800080]0[/color][color=#000000],[/color][color=#800080]0[/color][color=#000000],[/color][color=#800080]100%x[/color][color=#000000], [/color][color=#800080]100%y[/color][color=#000000])
StreamVideo=[/color][color=#0000FF]True[/color][color=#008000]'[/color][color=#008000]to play video file, change to false[/color][color=#008000]
[/color][color=#000000]
[/color][color=#0000FF]If[/color][color=#000000] StreamVideo=[/color][color=#0000FF]True[/color][color=#0000FF]Then[/color][color=#000000]
Video.LoadVideo([/color][color=#800000]"[/color][color=#800000]http[/color][color=#800000]"[/color][color=#000000],ServiceLink)[/color][color=#008000]'[/color][color=#008000]Setup for Streaming[/color][color=#008000]
[/color][color=#0000FF]Else[/color][color=#000000]
Video.LoadVideo([/color][color=#0000FF]File[/color][color=#000000].DirDefaultExternal,ServiceFile)[/color][color=#008000]'[/color][color=#008000]Setup for Loading Video[/color][color=#008000]
[/color][color=#0000FF]End[/color][color=#0000FF]If[/color][color=#000000]
Video.Play
[/color][color=#0000FF]End Sub[/color][color=#000000]
[/color][color=#0000FF]Sub [/color][color=#000000]video1_Complete
[/color][color=#008000]'[/color][color=#008000]Video finished, so We end App[/color][color=#008000]
[/color][color=#000000]Activity.Finish
[/color][color=#0000FF]End Sub[/color]
آدرس سرور مثلا شبکه 3 رو هم پیدا کردم:
http://www1.live.irib.ir/web/live/tv/channel3?file=irib3-1&streamer=rtmp://cdn.live.irib.ir:1935/irib3
حالا فقط نمیدونم چطور آدرس شبکه سه رو تو این سورس قرار بدم. لطفا اگه میدونید کمک کنید ممنون
لینک ارسال
به اشتراک گذاری در سایت های دیگر
15 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.