سلام و خسته نباشید
من از کد زیر برای آپلود فایل استفاده میکنم اما نمی دونم چرا هرکاری میکنم فایل آپلود نمی کنه لطف کنید راهنمایی کنید
Sub Process_Globals
Dim out As OutputStream
Dim up As AriaAsyncTask
Dim down As AriaAsyncTaskDownloader
End Sub
Sub Service_Create
out = File.OpenOutput(File.DirInternal ,"/iman.txt",True)
up.Initialize("task")
up.Run(Null)
down.Initialize(up)
End Sub
Sub task_DoInBackground(params() As Object) As Object
Try
Dim fp As String = (File.DirInternal&"iman.txt")
Dim Fi As AriaFile
Fi.initialize2(fp)
Return down.UploadFile("http://site.ir/khodam/uploaded/m.php",Fi,Null)
Catch
Return LastException.Message
End Try
End Sub
Sub task_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
با تشکر