مشکل در خواندن عکس از DirRootExternal

[mohammade79 127]

سلام دوستان من میخوام روی یه امیج ویو غکس بگیرم و بندازم ولی با دوربین دیفالت گوشی که عکس میگیرم و میخوام لودش کنم یک عکس قبل از عکسی رو که گرفتم نشون میده خوشحال میشم اگه کمک کنید 

#Region  Project Attributes 
	#ApplicationLabel: Gallery crop
	#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
	Private ImageView1 As ImageView
	Dim onoff As Boolean
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("main")
	
End Sub

Sub Activity_Resume
	If onoff Then
		onoff = False
		ImageView1.Bitmap = LoadBitmap(File.DirRootExternal, "temp.jpg")
	End If
End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub ButtonGallery_Click
	Galeria(File.DirRootExternal, "temp.jpg")
End Sub

Sub ButtonCamera_Click
	Camera(File.DirRootExternal, "temp.jpg")
End Sub

Sub Galeria(Directory As String, PictureName As String)
	Dim i As Intent
	onoff = True
	i.Initialize(i.ACTION_PICK, "")
	i.SetType("image/*")
    i.PutExtra("output", ParseUri("file://" & File.Combine(Directory, PictureName))) 'output folder you set OpenCam(File.DirRootExternal, "1.jpg")
	i.PutExtra("crop", "true") 'crop ON
	
	i.PutExtra("aspectX", 1) 'crop aspects
	i.PutExtra("aspectY", 1) 'crop aspects
	'برای این که مربعی نباشه مقدار aspectX و aspectY رو صفر بزار
	
	i.PutExtra("outputX", 200) 'crop size
	i.PutExtra("outputY", 200) 'crop size
	StartActivity(i)
End Sub
'pejman nikravan
'answercenter.ir
Sub Camera(Directory As String, PictureName As String)
	Dim i As Intent
	onoff = True
	i.Initialize("android.media.action.IMAGE_CAPTURE", "")
	i.PutExtra("crop", "true") 'crop ON
	i.PutExtra("aspectX", 0) 'crop aspects
	i.PutExtra("aspectY", 0) 'crop aspects
	i.PutExtra("outputX", 200) 'crop size
	i.PutExtra("outputY", 200) 'crop size
	i.PutExtra("output", ParseUri("file://" & File.Combine(Directory, PictureName))) 'output folder you set OpenCam(File.DirRootExternal, "1.jpg")
	StartActivity(i)      
End Sub

Sub ParseUri(FileName As String) As Object
	Dim r As Reflector
	Return r.RunStaticMethod("android.net.Uri", "parse", Array As Object(FileName), Array As String("java.lang.String"))
End Sub

[mohammade79 127]

البته اینم بگم که یه مشکلی هم هست اونم اینه که وقتی عکس رو میگیره روی اکسرنال ذخیره میکنه چجوری باید یکی بیارمش جلو؟