رفتن به مطلب
  • 0

آپلود فایل با کتابخانه AriaAsyncTask v4.0


shahan148

سوال

سلام خدمت دوستان عزیز

 

من با کد زیر به کمک  کتابخانه AriaAsyncTask v4.0   می خوام یک فایل را آپلود کنم  ولی متاسفانه  خطا میده و سرویس متوقف میشه

 

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


Sub Process_Globals
	Dim out As OutputStream
	
Dim task As AriaAsyncTask
Dim down As AriaAsyncTaskDownloader
End Sub

Sub Service_Create

out = File.OpenOutput(File.DirInternal ,"/iman.txt",True)

task.Initialize("task")
task.Run(Null)

down.Initialize(task)

End Sub

Sub AriaTask_DoInBackground(params() As Object) As Object

		Dim af As AriaFile
	af.initialize(File.DirInternal,"iman.txt")
	
	Return down.UploadFile("http://site.ir/uplode.php",af,Null)

End Sub

Sub AriaTask_OnPostExecute(param As Object)
	Dim callback As String = param
		If callback.StartsWith("success") Then

ToastMessageShow("Upload Anjam Shod", True)

		Else
ToastMessageShow("nashod", True)
		End If
End Sub

لینک ارسال
به اشتراک گذاری در سایت های دیگر

1 پاسخ به این سوال تاکنون داده شده است

ارسال‌های توصیه شده

بایگانی شده

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

  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...