رفتن به مطلب
  • 0

ایجاد یک Chooser برای اپلود انتخاب عکس و اپلود


majid08

سوال

سلام من تو برنامم یه فرم درست کردم که اطلاعات فرئ رو میگیره میفرسته به سرور در دیتابیس ذخیره میشه

من میخام یه Chooser هم اضافه کنم که بتونم عکس رو هم برام بفرسته لبته یه کد تو سایت پیدا کردم که یه عکس بنام test.jpg رو از روی حافظه گوشی انتقال میده به سرور ولی من میخام کاربر بتونه خودش انتخاب کنه

کدهام

Sub Activity_Create(FirstTime As Boolean)
	'Do not forget to load the layout file created with the visual designer. For example:
	Activity.LoadLayout("insert1")


job2.Initialize("job2",Me)

Spinner1.AddAll(Array As String("تست"))
labels.Initialize("labels")

	
	
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub



Sub Button1_Click
	job2.PostString("http://xxxxx.ir/x/xxxx.php","name=" & EditText1.Text & "& tozehat=" & EditText2.Text & "& number=" & EditText3.Text & "& group1=" & labels.Text & "& link1=" & EditText4.Text)
	ProgressDialogShow2("لطفا کمی صبر کنید",False)
	SendFile
End Sub

Sub JobDone (job As HttpJob)
ProgressDialogHide
	If job.Success= True Then
		If job.JobName="job2" Then ToastMessageShow("اطلاعات شما با موفقیت ارسال شد و بعد از تایید نمایش داده می شود",False)		
	Else
		ToastMessageShow("متاسفانه مشکلی در ارسال اطلاعات بوجود آمده است",False)
	End If
job.Release

	If job.JobName="http2" Then
	ToastMessageShow("ارسال شد",False)
	Else
ToastMessageShow("ارسال نشد !",True)
End If

End Sub


Sub SendFile
    Dim http2 As HttpJob
	http2.Initialize("job",Me)

http2.PostFile("http://xxxxx.ir/x/xxxxx.php?FileName="&EditText4.Text&".jpg",File.DirRootExternal,"test.jpg")
End Sub



Sub Spinner1_ItemClick (Position As Int, Value As Object)
	labels.Text=Value
End Sub

post-2383-0-93138900-1440828626_thumb.jpg

لینک ارسال
به اشتراک گذاری در سایت های دیگر

2 پاسخ به این سوال تاکنون داده شده است

ارسال های توصیه شده

سلام

خب شما متیونید از کلاس ContentChooser مربوط به کتابخونه Phone ( اگه اشتباه نکنم ) میتونید همچین کاری رو انجام بدید.

کتابخونه Dialogs  هم فک کنم کلاسی به اسم FileDialog  داره

میتونید با این دو مورد کار کنید

لینک ارسال
به اشتراک گذاری در سایت های دیگر

سلام 

من این رو درست کردم ولی میخام فقط فایل های jpg رو بتونن اپلود کنن

کد من

	Dim cc As ContentChooser
cc.Initialize("cc")
cc.Show("image/*","انتخاب فایل")
لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.

مهمان
این موضوع برای عدم ارسال قفل گردیده است.
  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...