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

[majid08 266]

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

من میخام یه 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

[مجید آرتا 5,874]

سلام

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

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

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

[majid08 266]

سلام 

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

کد من

	Dim cc As ContentChooser
cc.Initialize("cc")
cc.Show("image/*","انتخاب فایل")