پخش اهنگ در صورت وجود

[davood1382 302]

سلام دوستان من با این دستورات جلو رفتم http://answercenter.ir/topic/387-%D8%A2%D9%85%D9%88%D8%B2%D8%B4-%D8%AF%D8%A7%D9%86%D9%84%D9%88%D8%AF-%DA%A9%D8%B1%D8%AF%D9%86-%D8%B9%DA%A9%D8%B3-%D9%88-%D9%81%D8%A7%DB%8C%D9%84-%D9%88-%D8%B0%D8%AE%DB%8C%D8%B1%D9%87-%D8%A2%D9%86/  

حالا من برنامه ای دارم که مولتی پنل داره و با تگ و سندر لینک ها رو از دیتابیس میگیره و دانلود میکنه من دوتا دکمه دارم اولی پخش و دومی دانلود

میخوام اگر فایل مربوط به اون پنل دانلود شده بود و روی دکمه ی دانلود کلیک شد مسیجی بده و بگه دانلود...... در غیر این صورت دانلود کنه 

 

و....

 

اگر روی دکمه پخش کلیک شد و فایل موجود بود اون اهنگ پخش بشه و اگر موجود نبود مسیج بده که دانلود نیست 

 

اینا کدای الان منه

 

Sub Globals

Dim sql As SQL
Dim cur As Cursor
Dim job As HttpJob
Private lbl As Label
Private Panel1 As Panel
Private btndown As Button
Private btnplay As Button
Private lbl As Label
Private scr As ScrollView
Dim stop As Int = 3%y
End Sub


Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("scr")
If File.Exists(File.DirInternal,"test.db") = False Then
File.Copy(File.DirAssets,"test.db",File.DirInternal,"test.db")
End If
sql.Initialize(File.DirInternal,"test.db",False)
cur = sql.ExecQuery("SELECT * FROM tbl")
For i = 0 To cur.RowCount-1
cur.Position = i
Dim p As  Panel
p.Initialize("p")
scr.Panel.AddView(p,0,stop,100%x,100%y)
p.LoadLayout("im")
lbl.Text=  cur.GetString("matn")
stop = stop+35%y
btndown.Tag = cur.GetString("link")
scr.Panel.Height = stop
Next
If FirstTime = True Then
  job.Initialize("job",Me)
  End If
End Sub


Sub JobDone(jobb As HttpJob)
   If jobb.Success Then
     Dim out As OutputStream = File.OpenOutput(File.DirRootExternal, "filename.dat", False)
     File.Copy2(jobb.GetInputStream, out)
ToastMessageShow("aliiiiiiii",False)
     out.Close '<------ very important
   Else
     Log("Error: " & jobb.ErrorMessage)
   End If
   jobb.Release


End Sub






Sub btnplay_Click


End Sub


Sub btndown_Click
Dim iz As Button
iz=Sender
' job.Download(iz.Tag)
job.Download(iz.Tag)
End Sub

خیلی ممنوون میشم کمکم کنید 

[davood1382 302]

Up