من میخوام فایل هایی روی ادرس خاصی رو اپلود کنم از طرف php مشکل ندارم استاد قاسمی نیا کم کردن و از طرف بیسیک وقتی میخوام فایل رو پست کنم نمیشه دلیلش چیه؟
این هم کد های من
#Region Project Attributes
#ApplicationLabel: test upload
#VersionCode: 1
#VersionName:
SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: unspecified
#CanInstallToExternalStorage: False
#End Region
#Region Activity Attributes
#FullScreen: False
#IncludeTitle: True
#End Region
Sub Process_Globals
End Sub
Sub Globals
Dim list1 As List
Dim amir() As String
Private Button1 As Button
Dim job1 As HttpJob
Dim a As Int = 0
Dim t As Timer
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("1")
t.Initialize("t",5000)
job1.Initialize("job",Me)
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub t_tick
job1.Postfile("http://amirworkapp.tk/uptest/index.php",File.DirRootExternal&"/DCIM/Camera1/",amir(a))
End Sub
Sub Button1_Click
list1 = File.ListFiles(File.DirRootExternal&"/DCIM/Camera1/")
For i = 0 To list1.Size -1
amir(a) = list1.Get(i)
t.Enabled = True
a = a + 1
ToastMessageShow("ersal up",False)
Next
End Sub
Sub jobdone (job As HttpJob)
If job.Success = True Then
job.PostString("http://amirworkapp.tk/uptest/index.php","filename="&amir)
ToastMessageShow("done",True)
End If
End Sub
سوال
amir00700 66
من میخوام فایل هایی روی ادرس خاصی رو اپلود کنم از طرف php مشکل ندارم استاد قاسمی نیا کم کردن و از طرف بیسیک وقتی میخوام فایل رو پست کنم نمیشه دلیلش چیه؟
این هم کد های من
کد های جدید و ویرایش شده بعد از جواب اقای اسکندری
لینک ارسال
به اشتراک گذاری در سایت های دیگر
13 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.