من از اموزش جناب شاهدیاینجا برای پست کردن اطلاعات استفاده کردم ولی اطلاعات ارسال نمیشه اینم کد
#Region Activity Attributes
#FullScreen: False
#IncludeTitle: True
#End Region
Sub Process_Globals
End Sub
Sub Globals
Private EditText1 As EditText
Private ImageView1 As ImageView
Private Spinner1 As Spinner
Dim job1,job2 As HttpJob
Dim picch As ContentChooser
Dim inmp As InputStream
Dim btm As Bitmap
Dim namee As String
Dim namee1 As String
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("ersalla")
Activity.Color = Colors.Red
job1.Initialize("job1",Me)
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub Spinner1_ItemClick (Position As Int, Value As Object)
End Sub
Sub ImageView1_Click
picch.Initialize("picch")
picch.Show("image/*","یک تصویر انتخاب کنید")
End Sub
Sub picch_Result (Success As Boolean, Dir As String, FileName As String)
namee = FileName
namee1 = Dir
If Success = True Then
inmp = File.OpenInput(Dir,FileName)
btm.Initialize2(inmp)
ImageView1.SetBackgroundImage(btm)
job1.PostFile("http://mysite/uplode.php",Dir,FileName)
ProgressDialogShow2("please ...",False)
Else
ToastMessageShow("خطایی رخ داده",False)
End If
End Sub
Sub jobdone (job As HttpJob)
ProgressDialogHide
If job.Success = True Then
If job.JobName = "job1" Then
ToastMessageShow("okkkkk",False)
End If
Else
ToastMessageShow("nooooo",False)
End If
End Sub
عکسی که انتخاب میکنم میاد روی ایمیج ویو ولی ارسال نمیشه به سرور اینم کد های php سرورش
سوال
amiro72 17
سلام
من از اموزش جناب شاهدی اینجا برای پست کردن اطلاعات استفاده کردم ولی اطلاعات ارسال نمیشه اینم کد
#Region Activity Attributes #FullScreen: False #IncludeTitle: True #End Region Sub Process_Globals End Sub Sub Globals Private EditText1 As EditText Private ImageView1 As ImageView Private Spinner1 As Spinner Dim job1,job2 As HttpJob Dim picch As ContentChooser Dim inmp As InputStream Dim btm As Bitmap Dim namee As String Dim namee1 As String End Sub Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("ersalla") Activity.Color = Colors.Red job1.Initialize("job1",Me) End Sub Sub Activity_Resume End Sub Sub Activity_Pause (UserClosed As Boolean) End Sub Sub Spinner1_ItemClick (Position As Int, Value As Object) End Sub Sub ImageView1_Click picch.Initialize("picch") picch.Show("image/*","یک تصویر انتخاب کنید") End Sub Sub picch_Result (Success As Boolean, Dir As String, FileName As String) namee = FileName namee1 = Dir If Success = True Then inmp = File.OpenInput(Dir,FileName) btm.Initialize2(inmp) ImageView1.SetBackgroundImage(btm) job1.PostFile("http://mysite/uplode.php",Dir,FileName) ProgressDialogShow2("please ...",False) Else ToastMessageShow("خطایی رخ داده",False) End If End Sub Sub jobdone (job As HttpJob) ProgressDialogHide If job.Success = True Then If job.JobName = "job1" Then ToastMessageShow("okkkkk",False) End If Else ToastMessageShow("nooooo",False) End If End Sub
عکسی که انتخاب میکنم میاد روی ایمیج ویو ولی ارسال نمیشه به سرور اینم کد های php سرورش
چیکار کنم که عکس رو اپلود کنه توی سرور ؟
لینک ارسال
به اشتراک گذاری در سایت های دیگر
0 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.