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

[mahdig502 27]

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

sub butten_click 
   t.Initialize("t",30000)
      t.Enabled = True
   mp.Initialize("mp")
   mp.Load("http://developerland.ir/dislove/folanfolan.mp3")
ProgressDialogShow("در حال دانلود...") 
   
End Sub


Sub mp_StreamReady   
    ProgressDialogHide
   ToastMessageShow("شروع پخش",False)
   bpouse.Visible = True
    mp.Play  
End Sub


Sub mp_StreamError (ErrorCode As String, ExtraData As Int)
ToastMessageShow("لطفا به اینترنت وصل شده و دوباره امتحان کنید",True)
End Sub


Sub t_tick
If isProgressRunnig Then
ProgressDialogHide
isProgressRunnig = False
'ToastMessageShow("لطفا به اینترنت وصل شده و دوباره امتحان کنید",True)
End If
T.enabled = False
End Sub


Sub bpouse_Click
mp.Pause
bplay.Visible = True
End Sub


Sub bplay_Click
mp.Play
bplay.Visible = False
End Sub

 

[mahdig502 27]

Up

[مهدی ایزدی 9,203]

درود

http://answercenter.ir/topic/6392-%D8%B3%D9%88%D8%B1%D8%B3-%D9%86%D9%85%D8%A7%DB%8C%D8%B4-%D8%B1%D9%88%D9%86%D8%AF-%D8%AF%D8%A7%D9%86%D9%84%D9%88%D8%AF-%D9%81%D8%A7%DB%8C%D9%84-%D9%86%D9%85%D8%A7%DB%8C%D8%B4-%D8%B1%D9%88%D9%86%D8%AF-%D8%AF%D8%B1-%D9%86%D9%88%D8%AA%DB%8C%D9%81/

http://answercenter.ir/topic/11160-%D8%B3%D9%88%D8%B1%D8%B3-%D9%86%D9%85%D8%A7%DB%8C%D8%B4-%D8%B1%D9%88%D9%86%D8%AF-%D8%AF%D8%A7%D9%86%D9%84%D9%88%D8%AF-%D9%81%D8%A7%DB%8C%D9%84-%D8%A2%D9%BE%D8%AF%DB%8C%D8%AA/

 

و همچنین کتابخانه و سورس زیاد هستش

همچنین میتونید از محصولات آریا استفاده کنید