انتخاب عکس از حافظه برای اپلود

[majid08 266]

سلام

من این کدها رو نوشتم واسه انتخاب عکس و اپلود ولی میخاد 10 بار انتخاب کنی تا یه بار درست در بیاد لطفا ببینید مشکل از کجاست

Sub add_aks_Click
	Try
		

	Dim cc As ContentChooser
cc.Initialize("cc")
cc.Show("image/*","انتخاب فایل")
	Catch
		Log(LastException)
	End Try
End Sub







Sub cc_Result (Success As Boolean, Dir As String, FileName As String)
  If Success Then
    Log("filename: "&FileName)

       profile_aks.Text = GetPathFromContentResult(FileName)
        Log("normalize : "&aks.Text)
             
    Else
        If LastException.IsInitialized Then ToastMessageShow(LastException.Message, True)
    End If
	

End Sub







Sub GetPathFromContentResult(UriString As String) As String
  If UriString.StartsWith("/") Then Return UriString 'If the user used a file manager to choose the image
  Dim Cursor1 As Cursor
  Dim Uri1 As Uri
  Dim Proj() As String = Array As String("_data")
  Dim cr As ContentResolver
  cr.Initialize("")
  If UriString.StartsWith("content://com.android.providers.media.documents") Then
  Dim i As Int = UriString.IndexOf("%3A")
  Dim id As String = UriString.SubString(i + 3)
  Uri1.Parse("content://media/external/images/media")
  Cursor1 = cr.Query(Uri1, Proj, "_id = ?", Array As String(id), "")
  Else
  Uri1.Parse(UriString)
  Cursor1 = cr.Query(Uri1, Proj, "", Null, "")
  End If
  Cursor1.Position = 0
  Dim res As String
  res = Cursor1.GetString("_data")
  Cursor1.Close
  Return res
End Sub