کپی عکس از گالری

[MR.B4A 124]

سلام.

چه طوری میشه که یک عکس را از گالری به پوشه ای که میخوایم، کپی کنیم؟!

من از دستور copy از کتابخانه file  استفاده کردم، اما نتیجه ای نداد:

File.Copy(s_path,s_name,rp.GetSafeDirDefaultExternal("")&"\"&"picdeyly",s_name)

ممنون میشم راهنماییم کنید

[MR.B4A 124]

دوستان برای این کار هم از این تابع استفاده کنید:

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

با استفاده از کتابخانه content chosser 

و اینگونه از این تابع استفاده کنید

Sub cc_Result (Success As Boolean, Dir As String, FileName As String)
		GetPathFromContentResult(FileName)
End Sub

البته این کد فقط مسیر فایل رو بهتون برمیگردونه، اما چیزی رو در حافظه کپی نمیکنه

 

اینم دستور کپی خود عکس

البته ربطی به کدهای بالا نداره

Dim out As OutputStream
	out = File.OpenOutput(rp.GetSafeDirDefaultExternal(""),"pic.png",False)
	Dim bit1 As Bitmap
	bit1.Initialize3(img_pic.Bitmap)
	bit1.WriteToStream(out,100,"PNG")
	out.Close