مولتی jobe

[alirezakazemizaroomi 437]

سلام به همگی من یه مولتی باتون دارم که لینکهای فیلم رو ازدیتابیس میگیره و دانلود میکنه من با کدهای زیر لینکهارو دانلود میکنم فقط میخوام بعداز دانلود فیلم ها روپخش کنم؟؟  

Btn.tag = cur1.GetString("Link")

Sub Btn_Click
    Dim iz As Button
    iz = Sender
    ht.Initialize("ht",Me)
    ht.Download(iz.Tag)
End Sub

چطوری  بعداز دانلود فیلم ها روپخش کنم؟؟

[sganji 678]

اول سیو کن فیلم ها رو بعد کتابخونه audio رو تیک برن و بعد به متغیر از نوع videoplayer تعریف کن و ...

برای ذخیره فیلم ها یه آموزش دادم تو بخش آموزش های تصویری،آموزش ذخیره و دانلود فایل

[alirezakazemizaroomi 437]

سلام من آموزشا رودیدم ولی اونا فقط واسه دانلود یک لینک توضیح دادن ولی من میخوام تومولتی باتن یک نوع دکمه تعریف کنم که وقتی کلیک شد اگه فایل وجود داره فقط پخش کنه اگه وجود نداره اول دانلود کنه وبعد پخش کنه؟ من کد مربوط به پخش ودانلود یک موزیک را دارم ولی نمیدونم چطوری برای چند تا موزیک بکار ببرم؟ کداش اینجوری:

Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.
Dim hj As HttpJob
End Sub


Sub Globals
    'These global variables will be redeclared each time the activity is created.
    'These variables can only be accessed from this module.
    Private Button1 As Button
    Dim link,name,dier As String
    Dim no As Notification
    Dim sound As MediaPlayer
End Sub


Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example:
    Activity.LoadLayout("1")
File.MakeDir(File.DirRootExternal, "MusicB4A")
End Sub


Sub Activity_Resume


End Sub
Sub JobDone(Job As HttpJob)                             
If Job.Success = True Then
Select Case Job.JobName
  Case "job1"
  Dim o As OutputStream
  o = File.OpenOutput(dier, name, False)
    File.Copy2(Job.GetInputStream, o)
    o.Close
    Job.Release
    Case "job2"
    Dim o As OutputStream
  o = File.OpenOutput(dier, name, False)
    File.Copy2(Job.GetInputStream, o)
    o.Close
    Job.Release
    ToastMessageShow("فایل دانلود و ذخیره شد",True)
    sound.Initialize2("")
sound.Load(File.DirRootExternal & "/MusicB4A", "MigeDosamNadare128.ogg")
    sound.Looping=False
    sound.Play
    Case "job3"
    Dim o As OutputStream
  o = File.OpenOutput(dier, name, False)
    File.Copy2(Job.GetInputStream, o)
    o.Close
    Job.Release
    no.Cancel(1)
    ToastMessageShow("فایل دانلود و ذخیره شد",True)
    sound.Initialize2("")
sound.Load(File.DirRootExternal & "/MusicB4A", "MigeDosamNadare128.ogg")
    sound.Looping=False
        sound.Play
        Button1.Text="پخش شدن"


 End Select
 Else
ToastMessageShow(hj.ErrorMessage,True)
End If
ProgressDialogHide
End Sub
Sub Activity_Pause (UserClosed As Boolean)


End Sub
Sub Button1_Click
 If File.Exists(File.DirRootExternal & "/MusicB4A", "MigeDosamNadare128.ogg") = False Then
   Button1.Text="در حال دانلود شدن"
name="MigeDosamNadare128.ogg"
dier=File.DirRootExternal& "/MusicB4A"
link="http://dl.pop-music.ir/music/1393/Shahrivar/01%20Dige%20Doostam%20Nadaare.mp3"
hj.Initialize("job3",Me)
hj.Download(link)
no.Initialize
no.Icon="icon"
no.Light=False
no.Vibrate = False
no.sound = False
no.AutoCancel=True
no.OnGoingEvent=True
no.SetInfo("در حال دانلود",name,Null)
no.Notify(1)
ProgressDialogShow("در حال دانلود فایل...صبر کنید")
ToastMessageShow("لطفا منتظر بمانید,",  True)
    Else
    ToastMessageShow("فایل موجود است",  True)


sound.Initialize2("")
sound.Load(File.DirRootExternal & "/MusicB4A", "MigeDosamNadare128.ogg")
    sound.Looping=False
        sound.Play
        Button1.Text="پخش شدن"


    End If


End Sub

من نمیدونم این کدها را چطوری برای لینک هایی که از دیتابیس میگیرم وتو مولتی پنل میارم اجرا کنم؟؟؟

[sganji 678]

اول میای از دیتابیس میگیری!

بعد تو دیتابیس یه فیلد به اسم name درست میکنی.

بعد وقتی دکمه دانلود رو زد میای میگی اگه فایل تو کارت حافظه با نامی که از name دیتابیس گرفتی وجود داشت پخش کن در غیر این صورت بیا دانلود کن و بزار تو کارت حافظه با همون name که از دیتابیس گرفتی.

(منم به کامپیوتر دسترسی ندارم وگرنه حتما یه سورس یا کد یا آموزش برات میزاشتم)

در مورد پخش هم کتابخونه audio رو تیک بزن بعد یه متغیر از نوع videoplayer تعیریف و بعد اینشیالایز و دادن مسیر ویدیو و بعد اضافه کردن به اکتیویتی و بعد اجرا...

[alirezakazemizaroomi 437]

اول میای از دیتابیس میگیری!

بعد تو دیتابیس یه فیلد به اسم name درست میکنی.

بعد وقتی دکمه دانلود رو زد میای میگی اگه فایل تو کارت حافظه با نامی که از name دیتابیس گرفتی وجود داشت پخش کن در غیر این صورت بیا دانلود کن و بزار تو کارت حافظه با همون name که از دیتابیس گرفتی.

(منم به کامپیوتر دسترسی ندارم وگرنه حتما یه سورس یا کد یا آموزش برات میزاشتم)

در مورد پخش هم کتابخونه audio رو تیک بزن بعد یه متغیر از نوع videoplayer تعیریف و بعد اینشیالایز و دادن مسیر ویدیو و بعد اضافه کردن به اکتیویتی و بعد اجرا...

 

منون از پاسخت الان تواین خط کد ("sound.Load(File.DirRootExternal & "/MusicB4A", "ahang aval.ogg به جای این ahang aval.ogg چی بذارم؟؟

[alirezakazemizaroomi 437]

آق لطفا یکی با کد جواب بده

[sganji 678]

به جاش میتونی بنویسی:

Cursor.getstring("name")

اسپم هم نده اخطار داده شد...