من میخوام فایل هایی روی ادرس خاصی رو اپلود کنم از طرف 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 مشکل ندارم استاد قاسمی نیا کم کردن و از طرف بیسیک وقتی میخوام فایل رو پست کنم نمیشه دلیلش چیه؟
این هم کد های من
#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کد های جدید و ویرایش شده بعد از جواب اقای اسکندری
لینک ارسال
به اشتراک گذاری در سایت های دیگر
13 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.