مشکل در لغو دانلود

[alinoori 123]

Sub btnCancel_Click

 btnCancel.SetBackgroundImage(LoadBitmap(File.DirAssets,"cancel1.jpg"))
 time.Enabled =True
	CallSubDelayed2(DownloadService, "CancelDownload", link1)

	
	
End Sub

Sub dd_Complete(Job As HttpJob)
  If Job.Success Then
 کار انجام شد
   Else
   

ToastMessageShow("خطا در برقراری ارتباط با سرور",False)
    
    
     ToastMessageShow("از سرور دوم دانلود میشود.",False)

	Dim dd As DownloadData
	
	
	 link1 = "لینک دوم"
	
	dd.url = link1
	dd.EventName = "dd"
	dd.Target = Me
	CallSubDelayed2(DownloadService, "StartDownload", dd)
	

   

   End If




	Log("Job completed: " & Job.Success)
	Job.Release
End Sub

سلام

 

من یه لینک قرار دادم برای دانلود و فقط جاب دان شد مشکلی ناره و کار انجام میشه

و وقتی کار انجام نشد و سرور مشکل داشت یه لینک دوم گذاشتم تا از اونجا دوباره دان شه

 

ولی مشکل اینجاس وقتی دانلود رو کنسل میکنم

جاب رو ناموفق فرض میکنه و میره لینک دوم رو دان میکنه

 

نمیشه وقتی دکمه کنسل رو زد کلا بی خیال جاب بشه؟

[alinoori 123]

خب مشکلمو حل کردم ولی فک نکم کار جالبی باشه

daim add as int


Sub btnCancel_Click



 btnCancel.SetBackgroundImage(LoadBitmap(File.DirAssets,"cancel1.jpg"))
 time.Enabled =True
	CallSubDelayed2(DownloadService, "CancelDownload", link1)

	
	add=0
End Sub

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

و وقتی دوباره دکمه دانلود رو بزنه عدد 1 میشه

Sub dd_Complete(Job As HttpJob)
  If Job.Success Then
 کار انجام شد
   Else
   
if add=1 then
ToastMessageShow("خطا در برقراری ارتباط با سرور",False)
    
    
     ToastMessageShow("از سرور دوم دانلود میشود.",False)

	Dim dd As DownloadData
	
	
	 link1 = "لینک دوم"
	
	dd.url = link1
	dd.EventName = "dd"
	dd.Target = Me
	CallSubDelayed2(DownloadService, "StartDownload", dd)
	
end if
   

   End If




	Log("Job completed: " & Job.Success)
	Job.Release
End Sub