دانلود همزمان چند فایل با httpjob

[ali ahmadi 13]

سلام راهی هست که بتونیم با httpjob همزمان چند فایل رو دانلود کنیم؟؟

[Nemesis 1,846]

بله شما در jobdone یک select case تعیرف کن با  jobname

[ali ahmadi 13]

این کارو انجام دادم ولی فقط اولین جاب رو دانلود میکنه. در واقع دانلود ها رو به طور همزمان انجام نمیده

[Nemesis 1,846]

شما به محض اینکه درخواست دانلود میفرستی سیستم عامل شروع میکنه به دانلود شما syntax ها رو دوباره بررسی کنید

[ali ahmadi 13]

ببینید توی سلکت کیس جاب نیم دومی تعیین کردم که یه فایل متنی بسازه و تو ساب parse که کدای دانلود شده رو بررسی می کنه از اون فایل متنی استفاده کردم ولی ارور میده و میگه که اون فایل متنی وجود نداره.خب این یعنی دانلود صورت نگرفته

[Nemesis 1,846]

نمونه سورس رو بذارید تا بررسی بشه

[ali ahmadi 13]

Sub JobDone(Job As HttpJob)

ProgressDialogHide

If Job.Success = True Then

Select Job.JobName

Case "m"

content = Job.GetString

File.WriteString(File.DirInternal,"1.txt",c)

Case "m2"

content2 = Job.GetString

File.WriteString(File.DirInternal,"2.txt",c)

End Select

parseC

Else

ToastMessageShow( "failed",False)

End If

End Sub

[Nemesis 1,846]

یه سوال شما content  رو میخونی بعد C رو ذخیره میکنی؟

[ali ahmadi 13]

اشتباه نوشتم این درستشه

Sub JobDone(Job As HttpJob)
ProgressDialogHide
If Job.Success = True Then
	Select Job.JobName
		Case "m"
				C= Job.GetString
			 File.WriteString(File.DirInternal,"1.txt",c)
		Case "m2"
			c2= Job.GetString
			File.WriteString(File.DirInternal,"2.txt",c2)
		End Select
 	parseC
 Else
  ToastMessageShow( "failed",False)
  
End If
End Sub

[Nemesis 1,846]

این که درسته چطوری فراخوانی میکنی؟

 

parseC چه سابی هست

 

شما بیا یکاری  بکن یه log بگیر ببین فایل های دانلودیت چی هست

[ali ahmadi 13]

محتوای که دانلود میشه محتوای یه سایته و تو اون ساب اومدم یه سری اطلاعات رو ریختم تو حلقه یه لیست ویو ساختم

فکر کنم مشکل از این کد باشه

Dim pages As String = File.ReadString(File.DirInternal,"1.txt")
pages = pages & File.ReadString(File.DirInternal,"2.txt")

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

[Nemesis 1,846]

اینم که من دارم میبینم مشکل نداره البته واسه ساده تر شدن میتونی اینکارم بکنی البته فرقی نداره

Dim pages As String = File.ReadString(File.DirInternal,"1.txt")  & File.ReadString(File.DirInternal,"2.txt")

من باید برم تا شب برمیگردم اومدم مشکلت حل نشده بود برات حلش میکنیم

[ali ahmadi 13]

ممنونم ولی مشکلم حل نشده هنوز . ارور نات فوند میده

دانلود دومی رو انجام نمیده

[Nemesis 1,846]

خوب شما میتونی لینک فایل هاتو بذاری ببینم ؟

 

منظورم آدرس فایلی که میخوای دانلود کنی هست

[ali ahmadi 13]

چون اصل سورس پولی بوده به خاطره حقوقه صاحبش نمی تونم اینجا بذارم ولی اون قسمت هایی از کد که مربوط به دانلود فایل می شد رو گذاشتم براتون

فکر نمی کنم با این روش بشه چند فایل رو همزمان دانلود کرد

[Nemesis 1,846]

چون اصل سورس پولی بوده به خاطره حقوقه صاحبش نمی تونم اینجا بذارم ولی اون قسمت هایی از کد که مربوط به دانلود فایل می شد رو گذاشتم براتون

فکر نمی کنم با این روش بشه چند فایل رو همزمان دانلود کرد

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

:oops:

[ali ahmadi 13]

ببخشید خط دوم پستتون رو نخونده بودم

فایل نیست.دو صفحه ی مختلف از یک سایتن مثلا صفحه 1 و صفحه 2 آدرسشون مهم نیست مهم اینه که هر دوشون همزمان دانلود بشن

[Nemesis 1,846]

متن تست کردم جواب داد ولی باید بدونی که اگه صفحه یک سایت رو میخوای به string بگیری در واقع سورس اونو بهت میده

اینو ببیبن نیاز به لایوت هم نیست

Sub Process_Globals

End Sub

Sub Globals
	Dim hj1,hj2 As HttpJob
	Dim lbl1,lbl2 As Label
End Sub

Sub Activity_Create(FirstTime As Boolean)

	lbl1.Initialize("")
	lbl2.Initialize("")
	Activity.AddView(lbl1,10%x,10%y,80%x,40%y)
	Activity.AddView(lbl2,10%x,60%y,80%x,40%y)
	hj1.Initialize("job1", Me)
	hj2.Initialize("job2", Me)
	hj1.Download("http://answercenter.ir/topic/5593-%D8%AF%D8%A7%D9%86%D9%84%D9%88%D8%AF-%D9%87%D9%85%D8%B2%D9%85%D8%A7%D9%86-%DA%86%D9%86%D8%AF-%D9%81%D8%A7%DB%8C%D9%84-%D8%A8%D8%A7-httpjob/")
	hj2.Download("http://answercenter.ir/")
End Sub

Sub JobDone(Job As HttpJob)
	If Job.Success Then
		Select Job.JobName
			Case "job1"
				lbl1.Text = Job.GetString
			Case "job2"
				lbl2.Text = Job.GetString
		End Select
		Job.Release
	End If			
End Sub

[ali ahmadi 13]

بله میدونم سورس میده منم از همین کد استفاده می کنم فقط به جای lbl2.Text = Job.GetString

File.WriteString(File.DirInternal,"2.txt",content2) گذاشتم که انجام نمیده این کارو

[Nemesis 1,846]

بله میدونم سورس میده منم از همین کد استفاده می کنم فقط به جای lbl2.Text = Job.GetString

File.WriteString(File.DirInternal,"2.txt",content2) گذاشتم که انجام نمیده این کارو

این مشکلتو حل میکنه تست کن

Sub Process_Globals

End Sub

Sub Globals
	Dim hj1,hj2 As HttpJob
	Dim lbl1,lbl2 As Label
End Sub

Sub Activity_Create(FirstTime As Boolean)

	lbl1.Initialize("lbl1")
	lbl2.Initialize("")
	Activity.AddView(lbl1,10%x,10%y,80%x,40%y)
	Activity.AddView(lbl2,10%x,60%y,80%x,40%y)
	hj1.Initialize("job1", Me)
	hj2.Initialize("job2", Me)
	hj1.Download("http://answercenter.ir/topic/5593-%D8%AF%D8%A7%D9%86%D9%84%D9%88%D8%AF-%D9%87%D9%85%D8%B2%D9%85%D8%A7%D9%86-%DA%86%D9%86%D8%AF-%D9%81%D8%A7%DB%8C%D9%84-%D8%A8%D8%A7-httpjob/")
	hj2.Download("http://answercenter.ir/")
End Sub

Sub JobDone(Job As HttpJob)
	If Job.Success Then
		Select Job.JobName
			Case "job1"
				lbl1.Text = Job.GetString
				writefile
			Case "job2"
				lbl2.Text = Job.GetString
				writefile
		End Select
	End If			
End Sub

Sub writefile
	If lbl1.Text.Length <> 0 And lbl2.Text.Length <> 0 Then
		File.WriteString(File.DirInternal,"job1.txt",lbl1.Text)
		File.WriteString(File.DirInternal,"job2.txt",lbl2.Text)
		ToastMessageShow("file created",False)

	End If
End Sub

[mirsedali 99]

سلام

می خواستم بدونم راهی هست که چند تا فایل با یه متغیر دانلود(از هر کتابخونه ای!) همزمان دانلود بشه؟!

من میخوام موقعی که یه لیستی از برنامه م آپدیت میشه، تصاویر مربوط به آیتم های اضافه شده به لیست هم دانلود بشه و سرجاش قرار بگیره. تعداد آیتم ها و بالطبع، تعداد تصاویر در هر بار بروزرسانی ممکنه تغییر بکنه. میخوام ببینم به جز ریختن فایلها داخل یه فایل زیپ، راهی هست که عکس ها تک تک روی هاست قرار بگیره و به لینک های متفاوت، همزمان دانلود بشه؟!