بدست آوردن آدرس عکس از ImageView

[mehran7880 33]

سلام. خسته نباشید

من دنبال این بودم که بتونم از طریق گالری عکسی رو انتخاب کنم و به ImageView انتقال بدم بعد همین عکس رو در بانک اطلاعاتی ذخیره کنم. جست و جو کردم و هر دو رو پیدا کردم و توسط کد زیر عکس را وارد ImageView می کنم:

Sub btnOpen_Click
	Dim PicChooser As ContentChooser
	PicChooser.Initialize("PicChooser")
	PicChooser.Show("image/*", "یک عکس انتخاب کنید")
End Sub

Sub PicChooser_Result(Success As Boolean, Dir As String, FileName As String)
	If Success = True Then
		Dim inp As InputStream
		Msgbox(FileName,1)
		inp = File.OpenInput(Dir, FileName)
		Dim btm As Bitmap
		btm.Initialize2(inp)
		ImageView1.SetBackgroundImage(btm)
	Else
		ToastMessageShow("انجام نشد، دوباره تلاش کنید", True)
	End If
End Sub

ولی حاالا مشکلی که دارم نمی تونم آدرس عکس رو پیدا کنم. من با msgbox از متغیر های Dir,FileName,inp,btm خروجی گرفتم ولی هیچکدوم آدرس عکس نیست تتا به تابع ذخیره در بانک اطلاعاتی بدم. لطفا راهنماییم کنید. ممنون

[AMiN.M7892 1,029]

باید با متدی به نام GetRealPath آدرس فایل رو بدست بیارید!