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

[shahan148 28]

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

 

من با کد زیر به کمک  کتابخانه 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

[shahan148 28]

یه مرد پیدا بشه جواب منو بده